> zapis binarne datoteke se sastoji od imena države, stope PDV-a (P, u %), carinske stope (C, u %) i cene auta (A);
Code:
TAuto = record
Drzava: string[30];
PDV: double;
CS: double;
Cena: double;
end;
PList = ^TLista;
TLista = record
Auto: TAuto;
Next: PLista;
end;
Dakle binarni fajl o kome se govori sadrži recorde tipa TAuto, fajl promenljiva sa kojom ćeš raditi daklariši kao "file of TAuto", dalje koristi standardne funkcije za otvaranje fajla i čitanje. Ujedno prilom čitanja sadržaja tog fajla praviš i jednostruko povezanu listu, to ide otprilike ovako (pseudokod):
Code:
var
Curr, Prev: PList;
begin
Curr := nil;
Prev := nil;
while not EOF(BinarniFajl) do
begin
New(Curr);
Read(BinarniFajl, Curr.Auto);
Curr.Next := nil;
if Assigned(Prev) then
Prev.Next := Curr;
Prev := Curr;
end;
end;
> Važno: da bi bilo moguce jednostavno stvoriti ulazne binarne datoteke, napraviti i pomocni program koji cita podatke sa standardnog
> ulaza i upisuje ih u binarnu datoteku, sa kojom ce glavni program kasnije raditi.
Deklarišeš istu fajl promenljivu kao i za čitanje fajla i potom učitavaš podatak po podatak (drzava, pdv...) i upisuješ ih u fajl.