Sonderzeichen in Strings und diese abfragen

[DGL-luke]

dafür könntest du meine explode-funktion etwas zweckenfremden.



type TCharSet = Set of Char;

Delphi-Quellcode:

procedure explode(s:string;delim:TCharSet;var res:TStringList); overload;

function countchars(s:string;c:char):integer;
var i:integer;
begin
result:=0;
 for i:= 1 to length(s) do
  if s[i]=c then result:=result+1;
end;

var i:integer;
    index,count: integer;
    aindex:integer;
begin
res.Clear;
index:=1;
aindex:=0;
count:=0;
for i:=1 to length(s) do
 begin
  if (s[i] in delim) then
   begin
    res.Add( copy(s,index,count) );

    index:=index+count+1;
    aindex:=aindex+1;
    count:=0;
   end
   else begin
     if i=length(s) then res.add(copy(s,index,count+3))
     else count:=count+1;
    end;
 end;
end;

wenn du in dieser funktion nun deinen string und alle nicht gewünschten zeichen übergibst, kriegst du in deinem stringlist.text den string komplett ohnedie zeichen wieder zurück.