حلقه برای ساخت چند فایل

[dr-delphi]

باسلام دوستان
من یک سوال بسیار ساده دارم که گمونم همتون بتونید جواب بدید:
می خوام چند فایل از یک نوع با کلاس tfilestream بسازم من این کار رو با حلقه for امتحان کردم ولی موفق نشدم
برای مثال یک ادیت دارم ومی خوام مقدار عددی که بهش میده فایل تکست در درایوcبسازه
میشه کمکم کنید

[a_mosavian]

حالش نیست. اما اگه بهت بگم که از آرایه دینامیک استفاده نکن (چون Error میده) و بجاش از یه آرایه ثابت با حداکثر بازه استفاده کن کمکت می کنه؟

[loo30fer]

دوست عزیز اگه درست متوجه شده باشم میخواین اگه کاربر تو Edit نوشت 10 ده تا فایل تو درایو C بسازی درسته ؟

[Felony]

اون وقت مشکل کجاست ؟

var
i: Integer;
FS: TFileStream;
begin
for i:= 1 to StrToInt(Edit1.Text) do
begin
FS:= TFileStream.Create('C:\'+ IntToStr(i)+ '.txt', fmCreate);
try
// Fill files here
finally
Fs.Free;
end;
end;
end;

[vcldeveloper]

اما اگه بهت بگم که از آرایه دینامیک استفاده نکن (چون Error میده)
Error میده؟!! از کجا به این نتیجه رسیدید که error مورد نظر از آرایه دینامیک هست، نه از کد شما؟

[dr-delphi]

با تشکر از تمام دوستان مشکل من تا اینجا حل شد ولی به یه مشکل بزرگتر بر خوردم که از نسبت به سوال قبل قابل مقایسه نیست :
تو پروژه مون یهListBox1داریم و یک دکمه و یک ادیت ودکمه دیگه.میخوام تو ادیت اسم فایل مورد نظر رو بنویسم وتوListBox1ثبت کنم مثلا دو ایتم به نام delphiوmediaثبت کردم و می خوام با کلیک بر روی دکمه دوم فایل تکست با نام های که توListBox1ثبت کردم ایجاد بشه مثلا تو درایوc.?
میشه به این سوال جواب بدید توش گیر کردم گمونم برای اساتید یه کار بسیار ساده ای هستش:قلب:

[Felony]

برای اضافه کردن به ListBox :

ListBox1.Items.Add(Edit1.Text);

برای ساخت فایل ها :

var
i: Integer;
FS: TFileStream;
begin
for i:= 0 to ListBox1.Items.Count - 1 do
begin
FS:= TFileStream.Create('C:\'+ ListBox1.Items[i]+ '.txt', fmCreate);
try
// Fill files here
finally
Fs.Free;
end;
end;
end;