ich weiß nicht, ob ich dein Problem richtig verstanden habe, aber du könntest es so versuchen (ungetestet, gerade im Browser getippt):
Delphi-Quellcode:
function RemoveCharacters(
const s:
string; ForbiddenCharacters:
set of char):
string;
var
i: integer;
j: integer;
begin
SetLength(result,length(s));
j := 1;
for i := 1
to length(s)
do
begin
if not (s[i]
in ForbiddenCharacters)
then
begin
result[j] := s[i];
inc(j);
end;
end;
SetLength(result,j);
end;
Memo1.Text := RemoveCharacters(
SQL,[#13,#10]);