Delphi-Quellcode:
procedure suchdateien(maske:string);
var search:TSearchRec; //??? ;P
pfad, typ:string;
begin
typ:=ExtractFileName(maske);
pfad:=ExtractFilePath(maske);
if pfad[length(pfad)]<>'\' then //nötigenfalls backslash setzen
pfad:=pfad+'\';
{Dateien suchen...}
if FindFirst(maske,$3F, search)=0 then
repeat
form_objekte.filelb_bilder.Items.Add(search.Name) //auflisten
until FindNext(search)<>0;
end;
so mach ich das
er bringt ja bei fehlermeldung immer richtige bilddatei, aber er kann sie nicht öffnen weil wie oben, das verzeichniss "texturen" nicht im namen vorhanden is
gruss haegar