Deklaracja listy jednokierunkowej

0

Witam
Dopiero zaczynam programować i mam problem z deklaracją listy jednokierunkowej, staram się to zrobić według tego tutoriala Wskaźniki. Listy jedno i dwukierunkowe.
t

type
 PElement = ^TElement;
 TElement = record
   Next: PElement; // wskaźnik na element następny listy
   Dane: Integer; // tu możemy użyć dowolnego typu danych
 end;
 
public 
 Root: PElement; // potrzebujemy początku listy
 Last: PElement; // koniec listy także się przyda
 procedure GenerateList(Count: Integer);
 procedure DestroyList;

Niestety program się sypie, komunikat błędu to:
unit1.pas(40,5) Fatal: Syntax error, "=" expected but "identifier ROOT" found
...Niestety nie wiem gdzie ma być to '='
Chciałbym jeszcze dodać, że korzystam z Lazarus.
Pozdrawiam i czekam na odpowiedź,
Marek

0

a gdzie nazwa klasy?

0

No zapewne jej brakuje:), czy mógł bym prosić o jakiś przykłąd? Widać mały błąd w tutorialu

0

Mogłeś poszukać w googlu ale masz: OOP
generalnie definicja wygląda tak:

type
TKlasa=class(KlasaBazowa)
public/private/protected
 [...]
end;
0

Dzięki za pomoc

1 użytkowników online, w tym zalogowanych: 0, gości: 1