habs so gemacht^^
Delphi-Quellcode:
go:=filelistbox1.Directory;
repeat
Delete(go, length(go), length(go));
until (LastDelimiter('\', go)=length(go));
go is ein String...
und jetzt hab ich das nächste prob mit diesem filelistbox-kram -.- aba neuer thread
thx an alle