Hallo
ich benutzt FindFirst, FindNext um Dateien in einem Ordner auszulesen..
und das soll in einem LISTVIEW aufgelistet werden..
Delphi-Quellcode:
sr: TSearchRec;
if FindFirst(applpath + 'daten\*.dat', faAnyFile, sr) = 0 then
begin
repeat
if (sr.Attr and faAnyFile) = sr.Attr then
begin
dateiname := sr.Name;
V1 := copy(dateiname,1,pos('_',dateiname)-1);
delete(dateiname,1,pos('_',dateiname));
V2 := copy(dateiname,1,pos('_',dateiname)-1);
delete(dateiname,1,pos('_',dateiname));
V3 := copy(dateiname,1,pos('.',dateiname)-1);
.....
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
Das funktioniert auch super!
Aber,
wenn man bei der Eigenschaft der .dat Datei, "Datei kann achieviert werden" nicht ankreuzen, dann wird diese Datei nicht in der Listview angezeigt ..
warum ist es so?
Vielen Dank!!
Gruss, greyblue