[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]

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

[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]

ни кто не подскажет что за ошибка и как ее устранить?

[Aristarh Dark]

Справку читать почаще - проблем будет поменьше:

Returns a string with occurrences of one substring replaced by another substring.

Unit

SysUtils

Category

string handling routines

Delphi syntax:

function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;


Description

StringReplace replaces occurrences of the substring specified by OldPattern with the substring specified by NewPattern. StringReplace assumes that the source string may contain Multibyte characters.

S is the source string, whose substrings are changed.

OldPattern is the substring to locate and replace with NewPattern.

NewPattern is the substring to substitute for occurrences of OldPattern.

Flags is a set of flags that govern how StringReplace locates and replaces occurrences of OldPattern. If Flags does not include rfReplaceAll, StringReplace only replaces the first occurrence of OldPattern in S. Otherwise, StringReplace replaces all instances of OldPattern with NewPattern. If the Flags parameter includes rfIgnoreCase, The comparison operation is case insensitive.

и вот

TReplaceFlags indicates how to perform a search-and-replace operation

Unit

SysUtils

Delphi syntax:

type TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);

Description

TReplaceFlags is a set of flags that govern how to locate and replace a substring within a string.

[Страдалецъ]

Можно несколько уменьшить код если написать так:

Код:

procedure TForm1.Button3Click(Sender: TObject);
begin
 Memo1.Text := StringReplace(Memo1.Text, 'html', 'xml',[rfReplaceAll]);
end;

[PhoeniX]

Я бы ещё добавил флаг Ignore Case...

Код:

 Memo1.Text := StringReplace(Memo1.Text, 'html', 'xml',[rfReplaceAll,rfIgnoreCase]);