Unit 1
Delphi-Quellcode:
...
type
Element = ^TDaten;
TDaten=Record
index : Integer;
Zeit : TDateTime;
Kopf : String; //Zeichenzahl : byte
Text : String; //Zeichenzahl : word
Next,Prev : Element;
end;
...
var Anfang, Ende, tmp : Element;
...
New (Anfang);
tmp^.index := i;
...
tmp^.Prev := Ende;
Ende^.next := tmp;
...
procedure KnopfDrück;
begin
Form2 := tForm2.create (self);
Form2.Anfang := Anfang;
end;
Unit2
Delphi-Quellcode:
...
type
...
public
Anfang, Ende, Current : Element;
procedure oncreate;
begin
showmessage (Anfang^.text);
//AV => Anfang = nil
end;
das dürfte das wichtigste gewesen sein... an manchen stellen vereinfacht, da die ganze streamgeschichte die da noch mit drin hängt nicht relevant ist und es so übersichtlicher ist...