Sad citam ponovo tvoj post i resenje je ustvari preterano lako :) S obzirom da se sa procitanim recima nista ne radi ne moras ni da ih citas :)
Citat:
djdejan:Problem je sledeci: potreban mi je mali programcic koji ucitava jedan INTEGER broj iz reci fajla d:\fajl.txt
Dobijeni broj treba da uveca za 1 i da ga ponovo upise u taj isti d:\fajl.txt
Znaci ucitas samo prvi red u kojem se nalazi taj integer, dodas mu jedan i ponovo ga upises na prvo mesti i kraj :)
Code:
var F:Text; I:Integer;
begin
Assign( F, 'D:\Fajl.txt' );
Reset( F );
ReadLn( F, I );
Close ( F );
Inc( I );
Rewrite( F );
WriteLn( F, I );
Close( F );
end;
Nisam siguran da li Text moze da koristi seek da se vrati na pocetak, ali ovo ce sigurno da radi.