string ab bestimmtem zeichen in tstringlist einfügen

[JWeis]

hallo leute!
Ich hab ein problem :coder2:

wie kann ich einen string ab jedem \ in einen neuen string teilen, so dass

Zitat:

C:\WINNT\Temp\asdf.txt

so

Zitat:

string1 'C:'
string2 'WINNT'
string3 'Temp'
string4 'asdf.txt'

gespeichert wird

kann ich dazu ne Tstringlist benutzen?

Ps: Hab gesucht doch nichts gefunden. :(

[chrisw]

Delphi-Quellcode:

var s : String;
    MyStringList : TStringList;
...
MyStringList.Create;  //z.Bsp in FormCreate
...

begin
  s := 'c:\winnt\temp\asdf.txt';
  while pos('\',s) <> 0 do
  begin 
    MyStringList.Add(copy(s,1,pos('\',s)-1));
    delete(s,1,pos('\',s));
  end;
  MyStringList.Add(s);
end;

[SirThornberry]

ist bei deiner Delphiversion eigentlich ganz einfach:

Delphi-Quellcode:

DeineStringList.Delimiter := '\';
DeineStringList.DelimitedText := 'c:\winnt\temp\asdf.txt';

[JWeis]

danke für die antworten. Ihr habt mir sehr geholfen!!! :thumb: