Steuerzeichen

[Guido R.]

Dieses Projekt führe ich noch mit D2007 durch. Somit sollte Unicode eigentlich kein Problem sein...

Die Daten habe ich mir vorher in ein String gelesen

S := ParadoxTable.FieldByName('BLOEDESMEMO').AsString;

Ich probiere Deine Methode gleich mal aus...

Gruß
Guido R.

[Guido R.]

Ich hab Deinen Vorschlag leicht abgewandelt, aber so funktioniert es tatsächlich ...

Delphi-Quellcode:

function TMain.CleanText(S: String): String;
var i:Integer;
begin
 Result := '';
 if Length(S)>0
  then for i := 1 to Length(S) 
        do if (Ord(S[i]) > 31) or (S[i] in [#10, #13])
            then Result := Result+S[i];
 Result:=Trim(StringReplace(Result,'"','´´',[rfReplaceAll]));
end;

Thx !

[Luckie]

Würdest du bitte deinem Thema noch einen aussagekräftigen Namen geben? Und für die Zukunft ein kleiner Hinweis: Titel aus nur einem Wort sind in den seltensten Fällen aussagekräftig.

[DeddyH]

Und eine Kombination unserer beiden Codes dürfte schneller sein. Noch flotter ginge es dann wohl nur noch über Pointer.

Delphi-Quellcode:

function TMain.CleanText(const S: String): String;
var
  i, j: integer;
begin
  SetLength(Result, Length(S));
  j := 0;
  for i := 1 to Length(S) do
    if (Ord(S[i]) > 31) or (S[i] in [#10, #13]) then
      begin
        inc(j);
        Result[j] := S[i];
      end;
  SetLength(Result, j);
  Result:=Trim(StringReplace(Result,'"','´´',[rfReplaceAll]));
end;

[sx2008]

Ich würde aus der Methode TMain.CleanText() dann noch eine normale Funktion machen,
da sie ja in keinen Zusammenhang mit der Klasse TMain steht.
Namensvorschlag:
function RemoveControlChars(const S: String): String;