Eigentlich hab ich das Programm rekursiv umgesetzt. Hier ist der Code mit dem Algorithmus:
Delphi-Quellcode:
procedure BewegeTurm (Quelle, Hilf, Ziel : char; n : integer);
begin
if n = 1 then {Ende der Rekursion}
begin
BewegeStein (Quelle, Ziel, 1);
pause (Form1.Geschw*125);
end
else
begin
BewegeTurm (Quelle, Ziel, Hilf, n-1);
if Not Form1.Gestartet then Exit;
BewegeStein (Quelle, Ziel, n);
pause (Form1.Geschw*125); { unterbrechbare Pause, besser als 'Sleep' }
if Not Form1.Gestartet then Exit;
BewegeTurm (Hilf, Quelle, Ziel, n-1)
end
end;
Nun will ich wie gesagt den Zwischenstand abspeichern, hab aber absolut keine Ahnung wie.
Hab mich schon nen bissl belesen zu dem Thema aber nichts brauchbares gefunden.
Ich hatte mir überlegt den Zwischenstand als Bild zu speichern z.B. eine .bmp. Aber da stellen sich sicherlich 2 Probleme, ich denke das ich 1) nur schwer wenn überhaupt die Daten aus dem Bild kriege und 2) das ich net weiterspielen kann wenn ich die Datei dann mal wieda geladen habe.
Wäre echt froh, wenn ich mir helfen könntet. Danke
[edit=MrSpock]Delphi Tags hinzugefügt. Mfg, MrSpock[/edit]