Sonderzeichen in Strings und diese abfragen

[Yheeky]

Hi,

man darf ja in keinem Windows Verzeichnis die Sonderzeichen "" verwenden. Ich möchte nun Strings abfragen, ob sich Sonderzeichen in ihnen befinden. Bisher mache ich das so:

Code:

[...]
if SmartListView1.Items[I].SubItems[2] = '/' then
Result := StringReplace(SmartListView1.Items[I].SubItems[2], '/', '', [rfReplaceAll]);
if SmartListView1.Items[I].SubItems[2] = '\' then
Result := StringReplace(SmartListView1.Items[I].SubItems[2], '\', '', [rfReplaceAll]);
.
.
.
[...]

Wie kann ich das Allgemein abfragen? Vielleicht mit einem Array?

Gruß Yheeky

[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.