Hallo,
Ik moet alle bestanden in een bepaalde folder inlezen en stockeren in een Stringlist.
Maar als ik als test de bestandsnamen toon op het scherm verschijnt er niks. Blijkbaar wordt de lijst niet opgevuld.
Mijn code :
Code:
var
Dir : string;
SR : TSearchRec;
DirList : TStrings;
index : integer;
....
// select main folder where files are located
with TFileOpenDialog.Create(nil) do
try
Options := [fdoPickFolders];
if Execute then
begin
ShowMessage(FileName);
dir := Filename;
end;
finally
Free;
end;
// loop files in the 'dir' path
DirList := TStringList.Create;
try
if FindFirst(dir , faAnyFile, SR) = 0 then
begin
repeat
DirList.Add(SR.Name); //Fill the list
until FindNext(SR) <> 0;
FindClose(SR);
end;
// to delete : display all values to check
for Index := 0 to DirList.Count - 1 do
Showmessage( DirList.Strings[Index]);
finally
DirList.Free;
end;
Enig idee wat er verkeerd loopt?
Alvast bedankt
Lainkes
Bookmarks