Forum: Object-Pascal / Delphi-Language
Delphi
by mashutu,
11. Jan 2008
Nur mal grob (hab das auch schon lange nicht mehr gemacht):
Du uebergibst eine Kopie deines Systemzustands an die rekursiv arbeitende Methode.
Scheitert die Methode beim Versuch den gewuenschten Zustand herzustellen veraenderst Du den Zustand und versuchst es erneut.
Pseudocode
function TesteDasSystem(var S:Tsystem):boolean;
function SetzeZustand(S:TSystem):TSystem;
begin
Forum: Object-Pascal / Delphi-Language
Delphi
by mashutu,
10. Jan 2008
Ich habe jetzt nicht die Zeit um auf Dein Problem im Detail einzugehen.
Die Idee ist in der Regel folgende:
type
tSystem = class(TObject)
cubes : TCubes;
end;
var xCubes : tSystem;