bestimmte buchstaben durch bestimme zahlen im string ersetz.

[Blackheart]

Delphi-Quellcode:

var temp: string;
begin
  temp:= Memo1.Text;
  temp := StringReplace(temp, 'a', '0', [rfReplaceAll, rfIgnoreCase]);
  temp := StringReplace(temp, 'c', '2', [rfReplaceAll, rfIgnoreCase]);
  Memo1.Text:=temp;
end;