stacküberlauf beseitigen

[moppedfahrer]

Ok also das hier is wohl das entscheidende, denke ich :

Delphi-Quellcode:

procedure speichern(woher,wohin:integer);
begin
setlength(rec,length(rec)+1);
rec[high(rec)].X:=woher;
rec[high(rec)].Y:=wohin;
if form1.zeit.checked=false then
 form1.listbox1.items.Add('  '+inttostr(rec[high(rec)].X)+' --> '+inttostr(rec[high(rec)].Y));
end;
                 
procedure hanoi(hoch,woher,wohin:integer);
begin
if hoch=1 then speichern(woher,wohin)
 else begin
       hanoi(hoch-1,woher,woher xor wohin);
       speichern(woher,wohin);
       hanoi(hoch-1,wohin xor woher,wohin)
      end;
end;