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 : )