Delphi-Quellcode:
begin
new(PFieldID);
PFieldID:=CellQ.Pop;
FieldID.x:=PFieldID^.x;
FieldID.y:=PFieldID^.y;
FieldID.Wall:=PFieldID^.Wall;
dispose(PFieldID);
end;
also ich hab eine warteschlang "CellQ" vom type TQueue.
Die elemente in dieser schlange sind (pointer auf) einen record, mit (u.A.) x,y:Integer.
die elemente werden in einer externen prozedure der schlange hinzugefügt (die schlange wird via call by reference and diese prozedure übergeben).
Nach dem hinzufügen sind die werte auch richting (ich check intern noch ein mal), aber soblad ich den oben stehenden quelltext durchlaufen lasse wird folgender wert in PFieldID geschireben..
.PrimGenerator ## Pointer x was:9345488
.PrimGenerator ## Pointer Y was:16