Fájlkeresési probléma delphiben

Fájlkeresési probléma delphiben
2007-09-18T18:10:32+02:00
2007-09-18T19:36:45+02:00
2022-11-05T22:45:44+01:00
*deleted_34167910
Sziasztok!
A következő lenne a problémám:
Ki akarom listázni egy mappában lévő összes .jpg fájlt. Úgy, hogy először berakom őket egy tömbbe, (a későbbi műveletek miatt), és egy listboxhoz is hozzá adom őket. Ez színtaktikailag elvileg helyes, de futtatás közben a delphi hibát jelez, és leáll. Kérlek segítsetek megkeresni, mi lehet a probléma!


N:=0; FindFirst(DirectoryOutline1.Directory+'*.jpg', faAnyFile , DirInfo); while Error = 0 do begin n:=n+1; tomb[n]:=dirInfo.name; listbox1.Items.Add(tomb[n]); FindNext(DirInfo); end; FindClose(DirInfo);
Mutasd a teljes hozzászólást!
bocs, nem teljes jó, amit az előbb mutattam, az első fájlt kihagyja. Helyesen:
var N: integer; DirInfo: TSearchRec; tomb: array[1..10000] of string; Error: integer; begin N:=0; Error := FindFirst(DirectoryOutline1.Directory+'\*.jpg', faAnyFile , DirInfo); while Error = 0 do begin n:=n+1; tomb[n]:=dirInfo.name; listbox1.Items.Add(tomb[n]); Error:= FindNext(DirInfo) end; FindClose(DirInfo);end; end.
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd