Einlesen einer r-Code Quelldatei

[himitsu]

Oder ohne Tabelle

Delphi-Quellcode:

procedure Translate(var s: String);
var 
  i: Integer; 
begin 
  for i := 1 to Length(s) do 
    if s[i] in [#0..#31, #127..#255] then s[i] := ' ';
end;

Natürlich kann man es auch so machen, daß nur die benötigten Zeichen übrig bleiben ^^

z.B.
if not (s[i] in ['0'..'9', 'a'..'z', 'A'..'Z', '_']) then s[i] := ' ';