Müller -> Müller (oder wie wandle ich den Zeichensatz um?)

[johny]

Mit dieser Funktion werden aus einem String ':' und '.' gelöscht. Du kannst die Funktion so abwandeln, dass bestimmte Zeichen durch andere ersetzt werden.

Delphi-Quellcode:

function ChangeString(s:string):string;
var
 iPosition : integer;
 sString : string;
begin
 iPosition := 1;
 while iPosition <= length(s) do
 begin
  case s[iPosition] of
   '.',':':
   iPosition := iPosition+1;
   else
   sString := sString + s[iPosition];
   iPosition := iPosition + 1;
  end;
 end;
 Result := sString;
end;

Delphi-Quellcode:

procedure ...
var
sString : string;
begin
sString := 'Umzuwandelnder Text'
ChangeString(sString);
end;