View Full Version : ذخيره نام فالهاي موجود در يك آدرس
MozenAbasi
جمعه 30 مرداد 1388, 18:57 عصر
:لبخندساده:سلام دوستان ، خدا قوت
مي خواستم بدونم كه چه طوري ميشه نام فايل هاي موجود در يك آدرس رو ( مثلا محتويات يك CD) رو در يك Memo ليست كرد در ضمن آدرس مورد نظر توسط كاربر تعيين مي گردد.
Felony
جمعه 30 مرداد 1388, 19:59 عصر
توسط توابع FindFirst و FindNext ، نمونه کد زیر رو ببینید :
var
s:tsearchrec;
a:string;
begin
selectdirectory('Please select a directory :','',a);
if findfirst(a+'*.*',faanyfile,s)=0 then
repeat
listbox1.Items.Add(a+s.Name);
until findnext(s)<>0;
findclose(s);
end;
MozenAbasi
شنبه 31 مرداد 1388, 11:50 صبح
اگه ميشه در مورد اين خط از قطعه كد بالا بيشتر توضيح بديد ، چون دستور selectdirectory رو نميشناسه .
(selectdirectory('Please select a directory :','',a
Felony
شنبه 31 مرداد 1388, 13:03 عصر
یونیت FileCtrl رو اضافه کنید .
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.