1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

type
  TNode=record
    next, prev: ^TNode;
    value: TObject;
  end;

  PNode: ^TNode;
 
 TLinkedList = class
    //werte etc
    first, last: PNode;
    //blabla
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure DrawFunction1(Werte: TMesswerte);
var Cursor_Messreihe: PNode; //Cursor zur Angabe der betrachteten Messreihe
    Cursor_Messwerte: PNode; //Cursor zum Auslesen der Messwerte in einer Messreihe
    punkt:TMesspunkt;
begin
  Cursor_Messreihe := Werte.Daten.first;
  while Cursor_Messreihe <> nil do begin
    Cursor_Messwerte := TDoubleLinkedList(Cursor_Messreihe^.value).first;
    Punkt := TMessPunkt(Cursor_Messwerte^.value);
    while Cursor_Messwerte <> nil do begin					

1:

Punkt := TMessPunkt(Cursor_Messwerte^.value);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

type
  TLinkedList = class; // forward declaration

  PNode = ^TNode; 
  TNode = record 
    next, prev: PNode; 
    value: TLinkedList; 
  end; 

  TLinkedList = class 
    //werte etc 
    first, last: PNode; 
    //blabla 
  end;