Forum: Win32/Win64 API (native code)
Delphi
by himitsu,
2. Mär 2010
Der Name "ListFileDir" ist aber auch mißverständlich ... Dir und/oder File?
Forum: Win32/Win64 API (native code)
Delphi
by himitsu,
2. Mär 2010
procedure ListFileDir(const Path: String; DirFileView: TCustomListView);
var
SR: TSearchRec;
begin
DirFileView.Items.BeginUpdate;
try
if FindFirst(IncludeTrailingPathDelimiter(Path) + '*.*', faAnyFile, SR) = 0 then
begin
repeat
if (SR.Name <> '.') and (SR.Name <> '..')
Forum: Win32/Win64 API (native code)
Delphi
by himitsu,
2. Mär 2010
if (SR.Name <> '.') and (SR.Name <> '.') then begin
Es gibt zwar noch Wege dieses zu "optimieren", allerdings ist FindFirst/FindNext sowas von langsam, daß sich sowas nicht wirklich lohnt.
.htaccess :angel2: