فراخواني فايل متني؟ [بایگانی]

manzare

پنج شنبه 24 مرداد 1387, 12:46 عصر

چطور ميتوان به طور تصادفي يك فايل متني را از يك شاخه ي خاص (حاوي چندين فايل متني)خواند و در يك memoنمايش داد

amin_alexi

پنج شنبه 24 مرداد 1387, 13:11 عصر

میتو نی یه لیست از فایلها درست کنی و به لیست اندیس بدی ...
بعد با تابع Random یه عدد توهمون رنج تولید کنی و ... عدد میشه اندیس فایل و فایل رو نشون میدی ...

manzare

جمعه 25 مرداد 1387, 08:54 صبح

سلام چطور ميشه يه ليست از فايل درست كرد؟ plz code

Felony

جمعه 25 مرداد 1387, 10: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);