Hm naja ich habs ja schon mal anders versucht, aber mit meiner geistigen Kompetenz ist da eher Bullsh*t rausgekommen, anstatt ein vernünftiger Quelltext
Ich muss sagen, dass der jetzige Quelltext, den ich zusammengewürfelt habe eigentlich eher aus dem Internet rauskopiert ist. Dadurch ist er noch nicht wirklich auf meine Bedürfnisse zusammengeschnitten. Ich hab mich aber bemüht, den Quelltext Zeile für Zeile zu verstehen und bin soweit, dass ich weiß was bei jeder Zeile gemacht wird.
Und da komm ich zum Entschluss, dass die While Schleife evtl. durch eine If-Abfrage ersetzt werden kann.
Nur da bekomm ich meine Probleme.
Die If Abfrage hab ich mir so vorgestellt:
Code:
Button Klick
begin
speichere daten in zeiger
if (wenn...) nächstes glied = leer/nicht vorhanden/nil dann
mach Edit1.text := IntToStr(zeiger.id) + 1; // Dieser Teil soll einfach nur die Felder "vorbereiten" sodass ich neue eingaben machen kann.
Edit2.Text := ''
else
Zeige mir Daten vom nächsten Listenglied in Edit1 und Edit2 // Soll einfach das nächste Glied anzeigen
end
So ungefähr soll es laufen, wenn ich auf den Button klicke.
@taaktaak
Das new() muss ich einbauen. ANsonsten kommt ein fehler.
Und wenn ich new() beim Form.Create einbaue, dann funktioniert meine Vorwärts/Rückwärts-Blätter funktio nicht mehr.