Home » Tipps & Tricks » Object Pascal » Strings » Strings ersetzen

Strings ersetzen

Mit Hilfe der Funktion StringReplace kann man Strings nach bestimmten Vorkommen durchsuchen und diese dann ersetzen:Die Funktion erwartet 4 Parameter:

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

Dem ersten Parameter wird der Ausgangswert übergeben. Dem zweiten Parameter übergibt man den String, nach dem gesucht werden soll. Wenn ein Vorkommen gefunden wurde, wird es durch den dritten Parameter ersetzt.Mit dem vierten Parameter kann man angeben, ob alle oder nur das erste Vorkommen ersetzt werden sollen und ob Groß/Kleinschreibung ignoriert werden soll.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption:=StringReplace(Edit1.Text, 'Edit', 'Memo', [rfReplaceAll, rfIgnoreCase]);
end;

Hier wird Edit1.Text nach dem String Edit durchsucht und durch Memo ersetzt. Es werden alle Vorkommen ersetzt und die Groß/Kleinschreibung wird ignoriert.Diese Funktion steht erst ab Delphi 5 zur Verfügung.