|
#1
|
|||
|
|||
delphi
мне в программе нужно заменить в поле memo слово "html" на "xml" и вот что у меня получилось:
Код:
procedure TForm1.Button3Click(Sender: TObject); var a: integer; begin for a:=0 to Memo1.Lines.Count do Memo1.Lines[a]:=Replace(Memo1.Lines[a], 'html', 'xml'); end; end; lmikle: Где теги??? но на "Replace" он ругается! в чем дело? подскажите пожалуйста! |
#2
|
|||
|
|||
Потому что нужная тебе функция называется StringReplace
|
#3
|
|||
|
|||
зачем они? мне нужно просто слова поменять! все равно что "собака" на "кошку"
|
#4
|
|||
|
|||
Цитата:
Код:
procedure TForm1.Button3Click(Sender: TObject); var a: integer; begin for a:=0 to Memo1.Lines.Count do Memo1.Lines[a]:=StringReplace(Memo1.Lines[a], 'html', 'xml');//курсор здесь end; end; Последний раз редактировалось malay, 18.04.2009 в 12:54. |
#5
|
|||
|
|||
Цитата:
|
#6
|
||||
|
||||
Цитата:
|
#7
|
|||
|
|||
Код:
procedure TForm1.Button3Click(Sender: TObject); var a: integer; begin for a:=0 to Memo1.Lines.Count do Memo1.Lines[a]:=StringReplace(Memo1.Lines[a], 'html', 'xml');//курсор здесь end; end; вот так? |
#8
|
|||
|
|||
если че не так извените я здесь первыый раз!
|
#9
|
|||
|
|||
ни кто не подскажет что за ошибка и как ее устранить?
|
#10
|
||||
|
||||
Справку читать почаще - проблем будет поменьше:
Цитата:
Цитата:
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#11
|
||||
|
||||
Можно несколько уменьшить код если написать так:
Код:
procedure TForm1.Button3Click(Sender: TObject); begin Memo1.Text := StringReplace(Memo1.Text, 'html', 'xml',[rfReplaceAll]); end; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#12
|
||||
|
||||
Я бы ещё добавил флаг Ignore Case...
Код:
Memo1.Text := StringReplace(Memo1.Text, 'html', 'xml',[rfReplaceAll,rfIgnoreCase]); Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj |