Forum: Win32/Win64 API (native code)
Delphi
by Sir Rufo,
2. Mär 2010
umbenennen und denjenigen, der den so benannt hat, steinigen :mrgreen:
Forum: Win32/Win64 API (native code)
Delphi
by Sir Rufo,
2. Mär 2010
Der Vergleich geht sogar noch kürzer:
if ( SR.Name <> '.' ) then
Forum: Win32/Win64 API (native code)
Delphi
by Sir Rufo,
1. Mär 2010
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
begin
repeat
if (SR.Attr AND faDirectory <> faDirectory) then
begin
dview:= Form2.DirFileView.Items.Add;
dview.ImageIndex:= 1;
dview.Caption:= SR.Name;
end;
until FindNext(SR) <> 0;