Hallo,

ich habe die folgende Prozedur, die mit Hilfe einer verketteten Liste ein neues Element hinzufügen soll. Allerdings macht er es nicht so wie ich es gerne hätte und er bricht immer ohne Fehlermeldung ab. Ich kenn mich nicht so toll mit Pointer aus, kann mir jemand vllt helfen?

zusammenfalten · markieren

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
  begin
    Queue.First := NewEl;
  end;
  Queue.Last^.Next := NewEl; // Hier wird abgebrochen
  Queue.Last := NewEl;
end;

zusammenfalten · markieren

Delphi-Quellcode:

type
  TValue = Integer;
  PRQueue = ^TRQueue;
  TRQueue = record
    Value: TValue;
    Priority: Integer;
    Next: PRQueue;
  end;
  TQueue = record
    First: PRQueue;
    Last: PRQueue;
  end;

Was für ein Typ hat Queue?

Zitat von mkinzler:

Was für ein Typ hat Queue?

???
die typ-deklarationen stehen doch in der Code-Box darunter.

Zitat von fwsp:

zusammenfalten · markieren

Delphi-Quellcode:

type
  TValue = Integer;
  PRQueue = ^TRQueue;
  TRQueue = record
    Value: TValue;
    Priority: Integer;
    Next: PRQueue;
  end;
  TQueue = record
    First: PRQueue;
    Last: PRQueue;
  end;

Ich meinte nicht den Typ TRQueue sondern die Variable Queue ist sie vom Typ TRQueue oder PRQueue

Zitat von mkinzler:

Ich meinte nicht den Typ TRQueue sondern die Variable Queue ist sie vom Typ TRQueue oder PRQueue

weder noch, die ist vom typ TQueue, das fungiert als Sentinel.

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

zusammenfalten · markieren

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;

Wenn nur ein Element in der Queue ist, dann ist First = Last, aber mit dem Code würde er eine AV bringen, da First in einem anderen Zweig hinzugefügt wird und somit ist Last noch Nil...

War Müll

Zitat von sirius:

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

bei der Initialisierung des Queues:

markieren

Delphi-Quellcode:

procedure RQEmpty(var Queue: TQueue);
begin
  Queue.First := Nil;
  Queue.Last := Queue.First;
end;

Zitat von sirius:

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

was ich nicht verwenden darf.

//Edit
wenn ich deinen code verwende, bricht er zumindest nicht mehr ab. allerdings gibt er mir falsche werte aus, wenn ich mir das Front-Element anzeigen lassen möchte.
Wenn ich zum Beispiel den Queue damit fütter:

markieren

Delphi-Quellcode:

RQEmpty(MyQueue);
  RQInsert(MyQueue, 5, 3);
  RQInsert(MyQueue, 456, 99);
  RQInsert(MyQueue, 9, 1);
  RQInsert(MyQueue, 7, 5);
  Writeln(RQFront(MyQueue));

sollte 456 rauskommen, allerdings kommt 5 raus.

zusammenfalten · markieren

Delphi-Quellcode:

function RQFront(Queue: TQueue): TValue;
var
  HighestPrior: Integer;
begin
  if RQIsEmpty(Queue) then
  begin
    Writeln('Error: Queue is empty');
    Result := ErrorElem;
  end
  else if (Queue.First = Queue.Last) then
  begin
    Result := Queue.First.Value;
  end
  else
  begin
    HighestPrior := Queue.First.Priority;
    Result := Queue.First.Value;
    while (Queue.First <> Queue.Last) do
    begin
      Queue.First := Queue.First.Next;
      if (HighestPrior < Queue.First.Priority) then
      begin
        HighestPrior := Queue.First.Priority;
        Result := Queue.First.Value;
      end;
    end;
  end;
end;

//Edit 2
Funktioniert jetzt alles wunderbar, war ein kleiner Fehler in der Front-Prozedur.

Zitat von fwsp:

bei der Initialisierung des Queues:

markieren

Delphi-Quellcode:

procedure RQEmpty(var Queue: TQueue);
begin
  Queue.First := Nil;
  Queue.Last := Queue.First;
end;

Ich hoffe, das ist nur die Initialisierung und nicht, wie es aussieht, auch das Löschen der gesamten Liste (-->dispose)

Und RQIsempty liefert auch irgendwann einmal false?

Zitat von sirius:

Ich hoffe, das ist nur die Initialisierung und nicht, wie es aussieht, auch das Löschen der gesamten Liste

ja, das ist nur die initialisierung, (auch alles andere wenn es nach meinem prof geht.)

Zitat von sirius:

Und RQIsempty liefert auch irgendwann einmal false?

na klar, wenn Queue.First = Nil.