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 ???

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

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 ?!

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

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

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...

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

Hallo jfheins,
ich denke, diese Funktion erfüllt auch deine Wünsche ...

zusammenfalten · markieren

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

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.

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

bye
Claus

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

zusammenfalten · markieren

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.