Alle Variablen in einem Programm auf Knopfdruck zurücksetzen

[Helmut]

Hallo,

ich beschäftige mich grad mit folgendem Problem:
Nachdem in meinem Programm (spiel) der spieler gewonnen oder verloren hat kann er das spiel neustarten (oder auch mitten im spiel über die menüleiste).
Also wird auf knopfdruck wieder die form sichtbar wo man die spieleinstellungen angibt. Das Problem: ich hab so viele variablen, das ich immer wenn ich beim klick auf neustarten alle variablen auf die standartwerte manuell zurücksetze immer wleche vergesse. Ausserdem sind komponenten sichtbar die beim normalen start des programmes nicht sofort sichtbar sind (diese komponenten wurden erst im verlauf des spiels auf sichtbar gesetzt).

Gibt es eine Möglichkeit das "eleganter" zu machen? Vielleicht ein direkter befehl der alles auf originalstart zurücksetzt?

mfg
Helmut

[Luckie]

Schreib dir eine Prozedur, in der du alles wieder zurücksetzt. Das mußt du dann zwar auch schreiben, aber nur einmal.

[Helmut]

genau das wollte ich ja vermeiden :(

Ich hab das gemacht, allerdings ist da soviel zurückzusetzen das ich überhaupt nichtmehr durchblicke. Dauernd stürtzt mein programm nach dem neustart ab mitten im spiel und ich weiss nicht warum.
Hab auch schon bei application-methoden gesucht. Aber das einzige was mir hoffnung gab war application.restore und das macht ja nicht das was ich brauche...

Aber wenns nicht anders geht dann nehm ich den neustarten-knopf raus. Ist ja auchnicht so schlimm wenn der anwender das programm nochmal starten muss.

[Luckie]

Bei mir wäre das Spiel im Starmenü hier: Start -> Programme -> Zubehör -> Spiele.

Wäre nicht so toll alle 2 Minuten diesen ganzen Weg machen zu müssen. :roll:

[Helmut]

hm.... ja.. du hast ja recht, schön isses nicht grad :roll: :oops:

[Hansa]

Es gibt noch eine weitere prinzipielle Möglichkeit : Du packst alle Variablen in EINEN Record:

Code:

TYPE SpielTyp = 
  RECORD
    punkte : integer;
    gewonnen : boolean;
    ...
  END;

VAR SpielVar : SpielTyp;

Das hat aber wiederum Vor- und Nachteile.

Vorteil : mit

Code:

FillChar (Spielvar,0,sizeof (SpielVar));

kannst Du auf einen Schlag alles auf Null, Leerzeichen und boolean auf false setzen, Du kannst nichts vergessen.

Nachteil : 1. Alles was <> 0 ist, z.B. true muß trotzdem von Hand auf einen Wert gesetzt werden. 2. Statt

Code:

punkte := 0

mußt Du dann schreiben :

Code:

SpielVar.punkte := 0;

also mehr Schreibarbeit. Letzteres kannst Du dir aber durch WITH fast sparen.

Ich habe das so noch nicht selber gemacht, aber bei Deiner Sache könnte eine solche Vorgehensweise durchaus Sinn machen. Trotzdem würde auch ich das ganze trotzdem in eine Prozedur packen,z.B.:

Code:

PROCEDURE SpielNeu;
  BEGIN
    FillChar (Spielvar,0,sizeof (SpielVar));
    WITH Spielvar DO BEGIN   // von 0 abweichende Werte setzen
      Level1 := 500;
      Leveel2 := 1000;
....
    END;
  END;

Gruß
Hansa

[Helmut]

Hi Hansa,

deine Idee klingt echt gut, aber das ist wie du schon sagst noch mehr Arbeit, alle variablen umzubenennen.
Mein Spiel ist nun schon fertig, und ich müsste dann ja dne kompletten quelltext neuschreiben (bzw. alle variablennamen ändern). Also komtm das nicht in frage :(

Wenn es keine möglichkeit gibt (und sos cheint es ja...) dann mach ich das halt mit der normalen < alle-variablen-und-einstellungen-zurücksetzen >-methode. Zumindest weiss ich jetzt das es wohl nix gibt was mir das erleichtert.

Danke für eure Hilfe! Noch ein Paar sachen und das programm ist endlich fertig :)

[edit]

achja, nur um das nochmal zu sagen:

die ganze sache dreht sich zwar hauptsächlich um variablen zurücksetzen, aber auch andere sachen. Zum beispiel werden komponenten verscjoben, sichtbar/unsichtbar gemacht, enabled/disabled. Bilder werdne in timages geladen. Naja, und die abstürtze kommen halt wenn zum beispiel irgendetwas geladen/angezeigt wird was in dem zustand der komponente nicht möglich ist. Zum beispiel eine Form in den vordergrund holen die im moment disabled ist.
Hört sich eigentlich ganz einfach an das alles wieder zurückzustellen... aber irgendwie ist es das ganz und garnicht :oops:
Ich hab mind. 120 variablen, 9 forms und hunderte komponenten auf diesen die fast alle während des spiels verändert werden... :lol:

[/edit]

[e-dancer]

with spielvar do begin
.x
.y
.dsfdf
.dfdfdf
//und alle anderen variablen
end;

so ist es nicht mehr schreibarbeit!!

[Haegar]

darf man fragen um was für ein spiel es sich denn handelt!? :D

gruß haegar

[Luckie]

Zitat:

Zitat von Helmut

Ich hab mind. 120 variablen, 9 forms und hunderte komponenten auf diesen die fast alle während des spiels verändert werden... :lol:

Tja, da würde ich sagen schlecht geplant. Bist du gar nicht am Anfang auf die Idee gekommen, dass man auch mal wieder von vorne anfagen wollen könnte? :roll: