Anonymní profil Viktor – Programujte.com

Aaah už jsem to vyřešil pardooon.

Ahoj,

potřeboval bych přidat hodnoty ze souboru do spojového seznamu..

// Pridani hodnoty ze souboru do spojaku
procedure PridejZeSouboru(var P:TSpoj;Hodnota:string);
begin
 new(R);
 R^.Dalsi:=P;
 R^.Obsah:=Hodnota;
 P:=R;
end;

// Pruchod souborem
assign(SouborHodnot, NazevSouboruHodnot);
reset(SouborHodnot);
while not eof (SouborHodnot) do
begin
 readln(SouborHodnot,Hodnota);
 if Hodnota <> '' then
 begin
  PridejZeSouboru(P,Hodnota);
 end;
end;

Udělal jsem si na to proceduru, ale když dám potom cyklus while, kde si chci vypsat obsah seznamu, tak mi to vypíše několikrát to samý..

Předem díky