View Full Version : فراخواني فايل متني؟
manzare
پنج شنبه 24 مرداد 1387, 13:46 عصر
چطور ميتوان به طور تصادفي يك فايل متني را از يك شاخه ي خاص (حاوي چندين فايل متني)خواند و در يك memoنمايش داد
amin_alexi
پنج شنبه 24 مرداد 1387, 14:11 عصر
میتو نی یه لیست از فایلها درست کنی و به لیست اندیس بدی ...
بعد با تابع Random یه عدد توهمون رنج تولید کنی و ... عدد میشه اندیس فایل و فایل رو نشون میدی ...
manzare
جمعه 25 مرداد 1387, 09:54 صبح
سلام چطور ميشه يه ليست از فايل درست كرد؟ plz code
Felony
جمعه 25 مرداد 1387, 11:52 صبح
اینم کدش که لیست تمام فایلهای موجود در شاخه ی D:\ رو نشون میده :
var
s:tsearchrec;
begin
if findfirst('D:\'+'*.*',faanyfile,s)=0 then
repeat
listbox1.Items.Add(s.Name);
until findnext(s)<>0;
findclose(s);
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.