Датотеки со случаен
пристап
Податок од тип ЗАПИС (
RECORD )
Var ucebnik
: RECORD
Naslov:string[30];
Avtor : string[20];
Strani:integer;
END;
Дефинирање со кориснички тип со наредбата
type
Type kniga
= RECORD
Naslov:string[30];
Avtor : string[20];
Strani:integer;
END;
Var ucebnik
: kniga;
Пристап до податоците во записот
Ucebnik.naslov:= ‘Programski Jazici’;
или
With
ucebnik do
Begin
Naslov:=’Programski Jazici’;
Strani:=200;
End;
Датотеки со директен пристап
Var
ucebnici : FILE
OF ucebnik;
или
Var
ucebnici : FILE OF RECORD
Naslov:string[30];
Avtor :
string[20];
Strani:integer;
END;
Наредби
Assign(ucebnici,’uc2012.dat’) ;
Eof(ucebnici);
Rewrite(ucebnici);
Reset(ucebnici);
N:=Filesize(ucebnici);
{Број на записи
во датотеката }
Seek(ucebnici,10);
{ ја позиционира на 10-ти слог(запис) }
N:=filepos(ucebnici)
;
{ дава број на
записи }
Seek(ucebnici,
filepos(ucebnici)-1;
{ скип -1 ,
позиционира на претходен слог}
Seek(ucebnici,filesize(ucebnici)); { на
последен слог }
Write(ucebnici,запис);
{ го запишува
записот во датотеката}
Read(ucebnici,запис);
{ чита податоци во
записот }
Close(ucebnici);
{ ја затвара
датотеката }
Truncate(ucebnici); { ја
отсекува }
Rename(ucebnici,новоиме); { ја
преименува }
Erase(ucebnici);
{ ја брише }
|