Noch eine Anmerkung,
Amateurprofi, habe deine Routine noch ein bisl verbessert,
Das Verzichten auf die Zuweisung von C, bringt nochmal ca 13% mehr Geschwindigkeit bei mir.
Delphi-Quellcode:
function StringTest(const S,Remove:String):String;
type
TBA=Array[Char] of Boolean;
TPBA=^TBA;
var P:TPBA; I,J:Integer; C:Char;
begin
P:=AllocMem(SizeOf(TBA));
for I:=1 to Length(Remove) do P[Remove[I]]:=True;
SetLength(Result,Length(S));
J:=0;
for I:=1 to Length(S) do begin
//C:=S[I];
if not P[S[I]] then begin
Inc(J);
Result[J]:=S[I];
end;
end;
SetLength(Result,J);
FreeMem(P);
end;