procedure TForm1.Button1Click(Sender: TObject);
var a:file;
begin
assignfile(a,'c:\Podatak1.txt');
rewrite(a);
end;
....kako napravit 100 fajlova redom:
Podatak1.txt
Podatak2.txt
Podatak3.txt
Ako netko ima ideju kako tu upotrijebiti naprimjer:
for ......to
ili
repeat until
ili
while??????
for neki_broj:=1 to 100 do
begin
assignfile(fajl,'c:\Podatak'+neki_broj,'.txt');
rewrite(fajl);
Naravno ovo ne radi ali ako netko zna kako na taj ili slican nacin........