Zeichen ersetzen

[turboPASCAL]

Zitat von FreakLitkowsky:

Wisst ihr dafür vielleicht etwas?

Japp, 2 min Zeit für die Suche der DP. Zeichen AND ersetzen


So als Überlegung:

Delphi-Quellcode:

function CheckCharsInString(const BadChars: array of Char; RepleaceChar: Char; Text: string): string;
var i,n : integer;
begin
  for i := 1 to length(Text) do
    for n := 0 to High(BadChars) do
      if Text[i] = BadChars[n] then Text[i] := RepleaceChar;

  Result := Text;
end;

procedure ...
var
  s : string;
begin
  s := 'ABC$abc~123.ACB';
  s := CheckCharsInString(['$','~','.'], '_', s);

  // s ist nun 'ABC_abc_123_ACB'
end;

Nicht getested.