[ milos04 @ 27.12.2009. 11:29 ] @
iz datoteke treba ocitati drzavu, pdv, carinsku stopu i cenu. kako da ucitam sve to ul lancanu listu?
ja sam probao ovako, ali nece

Code:
program citanje;

Type    automobil = record
        drzava: string[30];
        PDV: double;
        cs: double;
        cena: double;
        end;

        listpok = ^listzapis;
        listzapis = record
        zap: automobil;
        next: listpok;
        end;

      

var    f: file of automobil;
        glava, novi, posl,pok:listpok;
        podat: listzapis;
        unos:integer;

begin
assign(f, 'dz5.dat');
reset(f);

posl:=nil;
glava:=nil;
        while not eof(f) do
        begin
        read (f, podat);
                new(novi);
                novi^.next = nil;
                novi^.zap =podat.zap;
                if glava = nil then
                        glava:= novi
                        else
                        posl^.next := novi;
                        posl :=novi
        end;
close(f);
end.
[ tkaranovic @ 27.12.2009. 14:22 ] @
Vrlo malo fali da (pro)radi:

Citat:

read (f, podat.zap);
new(novi);
novi^.next := nil;


Stavio sam tagove za citat da se vidi obojen deo koji nedostaje.

[ Rapaic Rajko @ 04.01.2010. 14:41 ] @
Hm, nece biti da je to problem...

Autor je pomesao record za bazu automobil ('file of automobil') sa pointerom na record za listu listpok.

Dakle, u pocetnom kodu menja se deklaracija varijable podat u

Code:

  podat: automobil;


Ostatak koda nisam proveravao, ali ovo iznad je bas strcalo; nije bilo govora o nekakvom citanju fajla.

Pozz

Rajko
[ tkaranovic @ 05.01.2010. 02:09 ] @
Citat:
Rapaic Rajko:
Autor je pomesao record za bazu automobil ('file of automobil') sa pointerom na record za listu listpok.

To sam i ja napisao:
Citat:
Rapaic Rajko:
Dakle, u pocetnom kodu menja se deklaracija varijable podat u

Code:

  podat: automobil;



Ako ostane:
Code:

        podat: listzapis;

onda se sa:
Code:

        read (f, podat.zap);

čita (isto) automobil.