Zitat von
glkgereon:
Delphi-Quellcode:
procedure AddNode(Parent: Pointer; PX, PY, Count: Integer);
var
Temp: TNode;
i: Integer;
begin
for i := 1 to Count do begin
Temp.ChildCount:=StrToInt(InPutBox('Childs','ChildCount','1'));
...
Hi,
du kannst nicht einfach mit Zeigern auf lokale Variablen arbeiten. Die werden vom Laufzeit-Prolog deiner Prozedur auf dem Stack angelegt und verlieren ihre Gültigkeit in dem Augenblick, in dem deine Prozedur verlassen wird.
Versuche die Variable Temp auf dem Heap anzulegen.
Grüße vom marabu