Форум по Delphi программированию - Показать сообщение отдельно - Подскажите Ламеру начет замены символов в Tmemo

Decoding · #2 29.10.2006, 18:08

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
   for i := 0 to Memo1.Lines.Count-1 do
      Memo1.Lines.Strings[i] := StringReplace( Memo1.Lines.Strings[i], '=', ': ', [] );
end;