Bis auf best. alle anderen Zeichen aus String 'rausfiltern

[Duffy]

Hallo jfheins,
ich denke, diese Funktion erfüllt auch deine Wünsche ...

Delphi-Quellcode:

function DeleteUnknownChars(Str: string): string;
var
  I: Integer;
begin
  for I := Length(Str) downto 1 do
  begin
    if not(Str[I] in ['a'..'z', 'A'..'Z']) then
      Delete(Str, I, 1);
  end;
  Result := Str;
end;

bye
Claus