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

[Sir Rufo]

Hmm, bei deinem ersten Beitrag auf den Button Bearbeiten drücken
Vor und nach dem Quelltext ein paar Zeichen einfügen

Das geht ganz ohne Delphi - und wir können dann deinen Quelltext anschauen ohne Augenkrebs zu bekommen.

[Hanoi1]

Oh, das habe ich falsch verstanden...
Ich bin erst seit heute hier.

[stahli]

Herzlich willkommen erst mal.

Versuch mal ein Application.ProcessMessages; in Deiner Schleife. Dann erhält das Formular die Möglichkeit, sich neu zu zeichnen.

Generell ist die VCL allerdings für anspruchsvollere grafische Anwendungen nicht unbedingt geeignet.

[Hanoi1]

Danke für den Tipp! Das werde ich bald umsetzen.

[Hanoi1]

Gibt es noch weitere Vorschläge bezüglich sleep oder Timer?

[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...

[Hanoi1]

Über die Array-Shapes habe ich auch nachgedacht, diese aber wieder verworfen, weil ich diesen Algorithmus in möglichst kurzer Zeit erklären muss - und mein Publikum hat keine Ahnung von Arrays (kein Witz). Darum würde nur zusätzlicher Erklärungsbedarf entstehen...

Die Sache mit der Variablen ist zwar auch eine Möglichkeit, aber direkt vereinfachen würde es mein Problem ja nicht.

Die Anmerkung zu meiner Schleife ist allerdings berechtigt. Danke!