مشکل در کار با لیست باکس

[farzadkamali]

با سلام

من با کد زیر کلیه فایل هایی رو که توی یه پوشه قرار دارند ،توی لیست باکس میریزم اما داده تکراری هم ریخته میشه. ظاهراً هر فایل رو دوبار اضافه میکنه. چرا؟



ListFileDir(ExtractFilePath(Application.ExeName)+' pictiure\',ListBox1.Items);


یه سوال دیگه پیغام listindex out of bounds(-1) ماله چیه؟ بغضی مواقع ظاهر میشه و برخی مواقع هم خیر. چه طور میشه مشکل رو حل کرد؟ فکر کنم مال این باشه که می خواد از آیتم -1 لیست شروع کنه در حالی که لیست باکس از 0 شروع میشه. ولی من هیچ کجا چنین کدی ندادم که بخواد به آیتم -1 رجوع کنه.

[hossein_h62]

سلام
تکه کدی که قرار دادین که چیزیو نشون نمیده!!!
کد پروسیجر اصلیتون رو با روال زیر کنترل کنید :
procedure ListFileDir(Path: string; FileList: TStrings);
var
SR: TSearchRec;
begin
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
begin
repeat
if (SR.Attr <> faDirectory) then
begin
FileList.Add(SR.Name);
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;