string ab bestimmtem zeichen in tstringlist einfügen

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