Baumstruktur mit fehlern :(

[marabu]

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