Problem mit Zeiger

[sirius]

Auch hier kann ich nur sagen, dass es auch TList gibt

Aber zu deinem Code, so wie er da steht:

Wo tust du denn Queue.last setzen, bevor du Queue.last^ "aufrufst"?

Edit: versuch mal so

Delphi-Quellcode:

procedure RQInsert(var Queue: TQueue; El: TValue; Prior: Integer); 
var 
  NewEl: PRQueue; 
begin 
  New(NewEl); 
  NewEl^.Value := El; 
  NewEl^.Priority := Prior; 
  NewEl^.Next := Nil; 
  if RQIsEmpty(Queue) then 
    Queue.First := NewEl
  else
    Queue.Last^.Next := NewEl; // Hier wird jetzt hoffentlich nicht mehr abgebrochen 
  Queue.Last := NewEl; 
end;