Bis auf best. alle anderen Zeichen aus String 'rausfiltern

[jfheins]

Ich möchte gerne in einem String Zeichen so filtern, dass nur noch buchstaben darin vorkommen, also alle nicht-Buchstaben entfernen. gibt es da vielleicht eine funktion, die das macht ???

[Dax]

Iterier doch durch den String und kopiere die Buchstaben in einen neuen String rein. Eine schnellere Methode kenne ich leider nicht.

[jfheins]

Im moment gehe ich jedes zeichen im string durch und füge es ggf. in einen neuen string. (Meintest du das mit Iterieren ?)

Aber es muss doch irgendwie einfacher gehen ?! :?

[Dax]

Es geht bestimmt einfacher, aber ich wüsste keinen Weg.

BtW: Du hast den Begriff "Iterieren" komplett richtig erklärt. ;)

[Matze]

Du könntest es auch StringReplace (StringReplace) versuchen. Man muss diese Procedure aber für jedes zeichen einzeln aufrufen, was kompliziert wird, wenn nicht nur Zahlen, sondern auch die Sonderzeichen wie "[, ], }, =, ..." vorkommen...

[Dax]

Aber wenn du StringReplace nutzt um die unerwünschten Zeichen zu löschen, ist es langsamer als meine Methode.

[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

[Dax]

Ich glaube aber immer noch, das die Kopiermethode schneller ist, weil man bei dem löschen einzelner Zeichen ja den Rest vom String eins zurückgeschoben wird, und das braucht Zeit.

[Duffy]

Hallo Dax,
das mag wohl so sein, aber ich denke, daß es sich erst bei ein paar ... Strings bemerkbar macht.

bye
Claus

[Jens Schumann]

Hallo,
folgende Funktion hat Hagen mal im Entwickler Forum gepostet.
Die Funktion ist die schnellste die ich kenne

Delphi-Quellcode:

    function DeleteNonNumbers(const Value: String): String;
    var
      I: Integer;
      P: PChar;
    begin
      SetLength(Result, Length(Value));
      P := PChar(Result);
      for I := 1 to Length(value) do
        if Value[I] in ['0'..'9'] then
        begin
          P^ := Value[I];
          Inc(P);
        end;
      SetLength(Result, P - PChar(Result));
    end;

Hier wird nur Delphi MemoryManager nur zweimal belästigt. Bei den o.g. Funktionen bei jedem Schleifendurchlauf.