Forum: Programmieren allgemein
Delphi
by Zacherl,
29. Mär 2015
Habe mal meine Funktion entsprechend angepasst:
function RemoveCharsFromString(const AStr, CharsToRemove: String): string;
var
I, J: Integer;
L: array of Boolean;
begin
FillChar(L, SizeOf(L), #0);
for I := 1 to Length(CharsToRemove) do
begin
L] := true;
Forum: Programmieren allgemein
Delphi
by Zacherl,
29. Mär 2015
Hatte noch nen SetLength am Ende vergessen und mir ist wohl ein -1 bei der Schleife reingerutscht. So funktioniert es und ist sogar noch schneller als DeddyHs Version:
function RemoveCharsFromString(const AStr: String; CharsToRemove: TSysCharSet): string;
var
I, J: Integer;
begin
SetLength(Result, Length(AStr));
J := 1;
for I := 1 to Length(AStr) do
begin
if (not (AStr in...
Forum: Programmieren allgemein
Delphi
by Zacherl,
29. Mär 2015
Erster Versuch, der DEUTLICH schneller ist, als alle anderen bisher geposteten Lösungen:
function RemoveCharsFromString(const AStr: String; CharsToRemove: TSysCharSet): string;
var
I, J: Integer;
begin
SetLength(Result, Length(AStr));
J := 1;
for I := 1 to Length(AStr) do
begin
if (not (AStr in CharsToRemove)) then
Forum: Programmieren allgemein
Delphi
by Zacherl,
29. Mär 2015
Ja, alle Vorkommen des Such-Strings. Der Threadersteller will aber glaube ich jedes Zeichen im CharToRemove String entfernen.