Free Pascal įrašymas į tekstinius failus

Sveiki, taigi iškilo klausimėlis, galvoju gal atsiras žmonių neblogai išmanančių FPS programavimo kalbą.

Aš norėčiau, kad sukurta programėlę atliktų dialogą su vartotoju ir įvestus duomenis įrašytų į ATSKIRUS txt failus.

Pirminis kodas atrodo taip, tačiau, žinoma jis neveikia, bet gal rasite klaidą ar kokią įžvalga pasidalinsite:

program testing;

var

Df : array [1..100] of text;

i:integer;

SomeUserInput:integer;

begin

for i:=1 to 1000 do

begin

Assign(Df,'rez.txt'); Rewrite(Df); // gal kas žinot kaip padaryti, kad kaskart atliekant cikla 'rez.txt'

Read(SomeUserInput); // pasikeistų į 'rez1.tx' , 'rez2.txr' ir tt..?

WriteLn(Df,'some words + ',SomeUserInput);

Close(Df);

end;

Readln;

end.

Norint pakeisti failo pavadinimą, aš daryčiau taip:

var i : integer;
   df : text;
   name,number : String; 
begin
for i:= 0 to n do
 begin
  Str(i,number) // Pavercia 'i' į number String'ą
  name := 'rez'+number+'.txt'; // Sulieju Stringus
  Assign(df,name); // Priskiriu
 end;
end.

Ačiū, tai veikia. Tik dar norėjau paklausti kaip saugoti failus į atskira direktoriją nei numatytoji?

Ačiū, tai veikia. Tik dar norėjau paklausti kaip saugoti failus į atskira direktoriją nei numatytoji?

Assign argumentuose nurodyk pilną adresą. Pvz:

Assign(rf,'C:\rez.txt');