an Formular übergebener Pointer ist nil

[Hazardos]

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...