Einfaches Listenprogramm mittels Zeigern

[Nathaniel]

Hallo,

danke für die Antwort, allerdings war diese nicht das Problem. Das Problem habe ich soeben gelöst bekommen und es lag daran, dass ich bei dem Wechsel zwischen den Namen mittels den BtnWeiter und BtnVor auf eine Speicheradresse zugegriffen habe, welche nicht existiert hat... Ich hab jetzt einfach die Funktion in UData "getNext" wie folgt deklariert:

Delphi-Quellcode:

procedure getNext(info:TInfo; var ausgabe:TInfo);
begin
// if Current^.VorElement <> nil then
  begin
      Current^.Namen.Vorname  := info.Vorname;
      Current^.Namen.Nachname := info.Nachname;

      Current := Current^.NachElement;

      ausgabe.Vorname:=Current^.Namen.Vorname;
      ausgabe.Nachname:=Current^.Namen.Nachname;

  end

Also mittels Referenzparameter Ausgabe.
Diese Prozedur rufe ich auf wenn der BtnWeiter betätigt wurde:

Delphi-Quellcode:

procedure TForm1.BtnWeiterClick(Sender: TObject);
var aus:TInfo;
begin
      getNext(getInformation, aus);
      EdVorname.Text:=aus.Vorname;
      EdNachname.Text:=aus.Nachname;
end;

Danke trotzdem : )