Grafische Lösung der Türme von Hanoi (Rekursion)

[Mavarik]

Bitte beachten!

Zitat von Sir Rufo:

Code:

[DELPHI]
procedure foo;
begin
end;
[/DELPHI] // <<---  "/" nicht vergessen

Vielleicht eher die Verwendung von

Delphi-Quellcode:

CASE XY of
  1 : A := B;
end; // of case

oder erstelle die Shapes in einem Array dann brauchst Du die Case auch nicht...

und

 Form1.Label2.caption:= IntToStr(StrToInt(Form1.Label2.Caption)-1);
Mach aus der Procedure eine Procedure der Form...

Dann keine Datenhaltung von integer in einem String - Dafür gibt es Variablen

Delphi-Quellcode:

var
  Whatever : Integer;

...
Label1.Caption := inttostr(Pred(Whatever));

Delphi-Quellcode:

Repeat
  // Whatever
Until;

Ohne begin & end
Wenn Du das alles berücksichtigt hast, hänge und das Projekt an den Thread dran, dann können wir die besser helfen...