Verden1
-
Pranešimai
13 -
Užsiregistravo
-
Lankėsi
-
Atsiliepimai
0%
Reputacijos išklotinė
-
Verden1 sureagavo į zyzlyz Free Pascal įrašymas į tekstinius failus
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.
-
Verden1 sureagavo į zyzlyz Free Pascal įrašymas į tekstinius failus
Assign argumentuose nurodyk pilną adresą. Pvz:
Assign(rf,'C:\rez.txt');