Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**Guido R.**

Hallo !

Ich schreibe derzeit an einem Programm, dass anhand einer Paradox-Datenbank ein SQL-Scrip für den Import in ein anderes Programm erzeugen soll.
An wenigen Stellen werden aus der Paradox-DB Steuerzeichen aus einem (vermutlich defekten) Memo-Feld importiert. Ich habe versucht diese Steuerzeichen ( [NUL], [SI], [DC4], [EOT] ... ) aus dem Text auszufiltern.
Leider ohne großen Erfolg.

Zunächst habe ich versucht, alle Steuerzeichen mit Hilfe einer Funktion herauszufiltern :

markieren

Delphi-Quellcode:

			function TMain.CleanText(S: String): String;

var i:Integer;

begin

 for i := 0 to 31

  do if (i<>10) AND (i<>13)

      then S:=StringReplace(S,CHR(i),'',[rfReplaceAll]);

 Result := S;

End;

Auch der direkte Aufruf mit

markieren

Delphi-Quellcode:

			 {...}

 S:=StringReplace(S,CHAR(#0),'',[rfReplaceAll]);

 S:=StringReplace(S,CHAR(#4),'',[rfReplaceAll]);

 S:=StringReplace(S,CHAR(#20),'',[rfReplaceAll]);

 {...}

bzw.

markieren

Delphi-Quellcode:

			 {...}

 S:=StringReplace(S,#0,'',[rfReplaceAll]);

 S:=StringReplace(S,#4,'',[rfReplaceAll]);

 S:=StringReplace(S,#20,'',[rfReplaceAll]);

 {...}

erbrachte nicht das gewünschte Ergebnis.

Einzig der Trim-Befehl brachte einen kleinen Erfolg. Dieser entfernte die Steuerzeichen, die sich am Anfang oder Ende des Strings befanden.
Befinden sich jedoch Steuerzeichen inmitten des Strings, so werden diese nicht entfernt.

Hat jemand eine Idee, wie ich ALLE Steuerzeichen entfernen kann ?

Gruß
Guido R.