Frage zu linearer Liste

[Churchy]

Achso ok danke
Das is mal gut zu wissen ^^

So jetzt hab ich alles einmal geändert und mittlerweile hängt sich Delphi auf sobald ich.

Der nicht funktionierende Quelltext sieht so aus:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);                //vor Key hinzufügen
var x: integer;
    templiste, 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 := liste;
      templiste.key := i;
      templiste.text := edit1.Text;
      templiste.next := q;
    end;
    templiste := templiste.next;
  end;
end;

procedure TForm1.Button5Click(Sender: TObject);                //hinter Key hinzufügen
var  x: integer;
     templiste, 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.next := templiste.next;
      templiste.next := q;
      q.key := i;
      q.text := edit1.Text;
    end;
    templiste := templiste.next;
  end;
end;