[malay]

мне в программе нужно заменить в поле 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" он ругается! в чем дело? подскажите пожалуйста!

[lmikle]

Потому что нужная тебе функция называется StringReplace

[malay]

Сообщение от lmikle

Потому что нужная тебе функция называется StringReplace

спасибо! но теперь вот что[Error] rd_.pas(129): Not enough actual parameters

Код:

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;

Admin: Теги, и еще раз теги! При рецедиве - бан.

[malay]

Сообщение от malay

спасибо! но теперь вот что[Error] rd_.pas(129): Not enough actual parameters

Код:

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;

Admin: Теги, и еще раз теги! При рецедиве - бан.

куда эти теги?

[Admin]

Сообщение от malay

куда эти теги?

http://www.delphisources.ru/pages/forum_rules.html

[malay]

Код:

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]

если че не так извените я здесь первыый раз!

[malay]

зачем они? мне нужно просто слова поменять! все равно что "собака" на "кошку"