Problem mit txt Dateien

[Tyrael Y.]

..wie wäre es mit

Delphi-Quellcode:

function GetOnlyValidChars(aString:String):String;
  newString := '';
  for i := 0  to length(aString) do
  begin
     if not(aString[i] in [#0]) then  //hier könntest du noch mehr zeichen ausschliessen
     begin
       newString := newString + aString[i];
     end;
  end;
  result := newString;
end;