Text ersetzen

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var i: integer;
begin
  Memo2.Clear;
  Memo2.Lines.BeginUpdate;
  for i := 0 to Memo1.Lines.Count - 1 do
    if Pos('rfu',AnsiLowerCase(Memo1.Lines[i])) = 1 then
      Memo2.Lines.Add(StringReplace(Memo1.Lines[i],'rfu','RFU_CON',[rfIgnoreCase]))
    else
      Memo2.Lines.Add(Memo1.Lines[i]);
  Memo2.Lines.EndUpdate;
end;