Bordmittel gesucht: Bestimmte Zeichen aus String entfernen

**Rakshasa**

Hallo,

ich frage mich gerade, ob Delphi von "Haus aus" eine function hat, mit der bestimmte Zeichen aus einem String entfernt werden können? Optional auch im Aufruf mehrere Zeichen, nicht nur eines?
Ich behelfe mich zur Zeit mit einer eigenen function, vielleicht wird dann auch mein Anliegen klarer:

markieren

Delphi-Quellcode:

			Function RemoveChars(const sSource: String; DeleteChars: Array of Char): String;

var

i: integer;

begin

Result := sSource;

for i := Low(DeleteChars) to High(DeleteChars) do

 Result := StringReplace(Result, DeleteChars[i], '', [rfReplaceAll]);

end;

Der Aufruf erfolgt dann über

markieren

Delphi-Quellcode:

			var

s: String;

begin

s := 'DIES ist ein TestString. Tab-Zeichen: '#9;

s := RemoveChars(s, ['D', #9]);

// Entfernt das "D" und das Tab-Zeichen (#9) aus dem String

end;

Ja, wie gesagt: Gibt es dafür ein Bordmittel?

[edit=SirThornberry]Code-Tags durch Delphi-Tags ersetzt - nächstes mal bitte gleich die Delphi-Tags verwenden - Mfg, SirThornberry[/edit]

Bordmittel gesucht: Bestimmte Zeichen aus String entfernen

Bordmittel gesucht: Bestimmte Zeichen aus String entfernen

Forumregeln