Container Schleife

[grenzgaenger]

meinst so was?

Delphi-Quellcode:

function translate(const quelle: string; vonC, NachC: char): string;
var
 c: char;
begin
 result := '';
 for c in quelle do
  if c = VonC then
   result := result + NachC
  else
   result := result + c;
end;