![](https://uzdarbis.lt/uploads/set_resources_11/84c1e40ea0e759e3f1505eb1788ddf3c_pattern.png)
![](https://uzdarbis.lt/uploads/set_resources_11/84c1e40ea0e759e3f1505eb1788ddf3c_default_photo.png)
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');