|
23.11.2011, 17:02
|
#1
|
Оператор ЭВМ
Регистрация: 11.11.2011
Адрес: Ростов-на-Дону
Сообщений: 41
Написано 9 полезных сообщений (для 17 пользователей)
|
Замена символов в строке
и так есть код
var i:integer;
s:string;
begin
s:='gui_des';
setcolor(0);
for i:=1 to Length(s) do
begin
if s[i]='_' then s[i]:='+';
end;
drawtext(s,0,0);
repaint;
delay(2000);
end.
Вообщем не фурычит обращение к символу по его номеру в строке.... каким другим способ можно решить эту задачу? мне нужна замена определенного символа
|
(Offline)
|
|
23.11.2011, 17:57
|
#2
|
ПроЭктировщик
Регистрация: 22.10.2010
Сообщений: 196
Написано 16 полезных сообщений (для 30 пользователей)
|
Ответ: Замена символов в строке
getChar вроде. И не забываем сперва обращаться к доку
__________________
Для меня нет ничего не реального в кодинге, но мне лень
gainOS - прорыв в проектировании ОС на MIDlet Pascal
|
(Offline)
|
|
23.11.2011, 19:17
|
#3
|
Оператор ЭВМ
Регистрация: 11.11.2011
Адрес: Ростов-на-Дону
Сообщений: 41
Написано 9 полезных сообщений (для 17 пользователей)
|
Ответ: Замена символов в строке
да, так и решил , после минут десяти раздумий, просто привычно как в турбике, можно обращаться как к массиву ... =)
Делал циклом, но решил либу написать на J2ME ))слава богу ещё ума хватает на это)
если кому станет интересно,то могу и доделать до лучшего библиотеку)щас пока просто заменяется один символ,на другой, всё внутри вообщем)
Хотя если сделать так :
r:='abvgd';
r2:='абвгд';
s:=replacer('a12sasbwvsagffd',r,r2);
будет таковым возврат - a12sasбwвsaгffд
=)
Последний раз редактировалось ViNT, 24.11.2011 в 18:13.
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
23.11.2011, 22:28
|
#4
|
ПроЭктировщик
Регистрация: 22.10.2010
Сообщений: 196
Написано 16 полезных сообщений (для 30 пользователей)
|
Ответ: Замена символов в строке
эх.
function Replace(strIn, patern: string): string;
var p,len: integer;
return: string;
begin
return := '';
len := Length(patern);
p := Pos(strIn, patern);
while (p >= 0) do
begin
return := return + Copy(strIn, 0, p)+patern;
strIn := Copy(strIn, p+len, Length(strIn));
p := Pos(strIn, patern);
end;
Result := return;
end;
Ну как то так
__________________
Для меня нет ничего не реального в кодинге, но мне лень
gainOS - прорыв в проектировании ОС на MIDlet Pascal
|
(Offline)
|
|
24.11.2011, 00:19
|
#5
|
Оператор ЭВМ
Регистрация: 11.11.2011
Адрес: Ростов-на-Дону
Сообщений: 41
Написано 9 полезных сообщений (для 17 пользователей)
|
Ответ: Замена символов в строке
Сообщение от alexprey
эх.
Ну как то так
|
да всё, то что я написал вполне удовлетворяет мои потребности)) и с моими задачами нормально справляются, но спасибо за ответ)
|
(Offline)
|
|
24.11.2011, 10:16
|
#6
|
ПроЭктировщик
Регистрация: 19.02.2011
Сообщений: 134
Написано 81 полезных сообщений (для 219 пользователей)
|
Ответ: Замена символов в строке
Текущая реализация немного... примитивная, что ли?
Хорошая реализация для замены одного совпадения:
// заменить(где, что, чем):результат public static String replace(String where, String what, String with) { int i = where.indexOf(what); if (i == -1) return where; return where.substring(0, i) + with + where.substring(i + what.length()); }
__________________
Мой сайт-блог. Игры, обновления, примеры для Haxe, JavaScript(+HTML5), GameMaker, Love2d...
|
(Offline)
|
|
18.12.2011, 08:22
|
#7
|
Оператор ЭВМ
Регистрация: 12.10.2011
Адрес: Воронеж
Сообщений: 46
Написано 2 полезных сообщений (для 2 пользователей)
|
Ответ: Замена символов в строке
Сообщение от treycerok
setcolor(0);
|
эммммм. а с каких это пор setcolor берет всего один параметр. вроде их три................
..............
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 13:04.
|