tach auch!
hab ein kleines problem. habe folgenden code um dateien und verzeichnisse anzuzeigen.
das klappt aber nich wenn das verzeichnis schreibgeschuetzt ist. dann wird das verzeichnis
auf die Seite der dateien sortiert. kann mir jemand sagen wo's hackt,
ich glaub ich mache immer den selben denkfehler.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
dircount:=0;
filecount:=0;
x:=20;
y:=20;
if FindFirst('C:\*.*', faReadOnly + faHidden + faSysFile + faVolumeID + faDirectory + faArchive + faAnyFile, sr) = 0 then
begin
repeat
if sr.attr <> fadirectory then
begin
canvas.TextOut(300,y,sr.Name);
inc(y,20);
inc(filecount);
end;
if sr.Attr = fadirectory then
begin
canvas.TextOut(20,x,sr.Name);
inc(x,20);
inc(dircount,1);
end;
until FindNext(sr) <> 0;
FindClose(sr);
end;
label1.Caption:=inttostr(dircount)+' '+'Verzeichnisse'+' '+inttostr(filecount)+' '+'Dateien';
end;