Sa pointerima mozes da radis kako hoces. Ako sam te dobro razumeo, zelis da imas jedan pointer na pocetak liste i da svaki sledeci bude iza njega... to bi bilo ovako:
Code:
type
PMojTip = ^TMojTip;
TMojTip = record
Podatak: Integer;
Sledeci: PMojTip;
end;
To bi bila deklaracija tipa, a funkcija za dodavanje bi bila ovakva:
Code:
var
PrviClan, PoslednjiClan: PMojTip;
function DodajNov(Podatak: Integer): PMojTip;
begin
if PrviClan = nil then
begin
New(PrviClan);
PrviClan^.Podatak := Podatak;
PrviClan^.Sledeci := nil;
PoslednjiClan := PrviClan;
end
else
begin
New(PoslednjiClan^.Sledeci);
PoslednjiClan^.Sledeci^.Podatak := Podatak;
PoslednjiClan^.Sledeci^.Sledeci := nil;
PoslednjiClan := PoslednjiClan^.Sledeci;
end;
DodajNov := PoslednjiClan;
end;
Pisao sam najjednostavnije sto znam... nadam se da ti je jasno kako ovo radi.