k danke an alle die mir geholfen haben, ich glaube mittlerweile hab ich das Prinzip der Zeiger und somit der Listen verstanden
Einzig und allein vor einem Key einfügen endet weiterhin in einer (mir nicht erklärbaren) Endlosschleife :-/
@Klaus01: Jo es soll an dieser Stelle eingefügt werden und ich hab mittlerweile den Fehler gefunden (das ungleich einfach mit = vertauschen...
).
Also nochmal zum vor dem Key hinzufügen:
ich ordne jedem Listenelement eine Zahl zu und eben auf genau diese will ich hier zugreifen. Soll heißen ich will je nachdem vor (funktioniert nicht) oder nach (funktioniert) diesem Element einfügen.
Der Quelltext sieht so aus:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject); //vor Key hinzufügen
var x: integer;
templiste, buffer, q: PListe;
begin
x:= strtoint(edit2.Text);
templiste := liste;
while templiste <> nil do begin
if templiste.key = x then begin
i := i+1;
new(q);
q := templiste;
templiste.key := i;
templiste.text := edit1.Text;
templiste.next := q;
end;
templiste := templiste.next;
end;
end;