Autor Beitrag
suga2001
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 38



BeitragVerfasst: Di 29.01.08 18:23 
also ich habe folgendes problem. ich sollte ein memoryspiel basteln, was ich, denke ich auch mehr oder weniger hinbekommen habe. nun will ich aber ein neues spiel starten und er gibt mir das angefangene zurück. leider hab ich nur ne englische version und hab keinen anderen lösungsansatz. :roll:
verwendet habe ich :
ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
var
  Form2: TForm2;
  zweiteKarte:boolean=true;
  Bild1,Bild2:integer;
  Bild: Array[1..27] of string;
  Platz:Array[1..54] of integer;
  name1,name2:string;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button2Click(Sender: TObject);
begin
Form1.Visible:=true;              
Form1.Close;
 end;



p.s. danke schon mal im voraus :D

Moderiert von user profile iconChristian S.: size- durch Delphi-Tags ersetzt
Xion
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
EE-Maler
Beiträge: 1952
Erhaltene Danke: 128

Windows XP
Delphi (2005, SmartInspect), SQL, Lua, Java (Eclipse), C++ (Visual Studio 2010, Qt Creator), Python (Blender), Prolog (SWIProlog), Haskell (ghci)
BeitragVerfasst: Di 29.01.08 21:19 
da ich nur Delphi kann, weiß ich es nicht genau, aber es scheint in anderen Sprachen üblich zu sein, dass man sagt: "Starte mal Prog neu" und dann fängt er neu an. In Delphi ist das so pauschal nicht möglich. Du könntest
a) die Datei nochmal ausführen oder
b)die Initialisierung nochmal drüberlaufen lassen.

b) würde ich dringendst empfehlen ;) Also einfach alle Variablen zurücksetzen auf Anfangswert.

_________________
a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)
suga2001 Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 38



BeitragVerfasst: Di 29.01.08 22:14 
Titel: alle Variablen zurücksetzen auf Anfangswert.
und wie stelle ich das an?????

danke für die antwort
jaenicke
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 19346
Erhaltene Danke: 1754

W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
BeitragVerfasst: Di 29.01.08 23:08 
Naja, so wie du sie auch beim ersten Start auf den Wert gesetzt hast...
Ich meine, irgendwoher müssen die Initialwerte deiner Variablen ja stammen.
Xion
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
EE-Maler
Beiträge: 1952
Erhaltene Danke: 128

Windows XP
Delphi (2005, SmartInspect), SQL, Lua, Java (Eclipse), C++ (Visual Studio 2010, Qt Creator), Python (Blender), Prolog (SWIProlog), Haskell (ghci)
BeitragVerfasst: Mi 30.01.08 13:56 
vermutlich das unter Form1.Create...das musst du dann halt rausnehmen in eine andere procedure (Bsp: InitializeGame). Dies kannst du dann immer aufrufen, wenn er alles auf anfangs-werte setzen soll.

_________________
a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)
Bergmann89
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 1742
Erhaltene Danke: 72

Win7 x64, Ubuntu 11.10
Delphi 7 Personal, Lazarus/FPC 2.2.4, C, C++, C# (Visual Studio 2010), PHP, Java (Netbeans, Eclipse)
BeitragVerfasst: Mi 27.02.08 20:59 
HI,

du kannst ja auch Variante A nehmen und ddas Prog einfach neu starten!
Das geht mit ShellExecute (Unit ShellAPI). Mach ich auch ab und zu ma so ^^

MfG Bergmann
Narses
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Administrator
Beiträge: 10185
Erhaltene Danke: 1261

W11x64
TP3 .. D7pro .. D10.2CE
BeitragVerfasst: Mi 27.02.08 22:31 
Moin!

user profile iconBergmann89 hat folgendes geschrieben:
du kannst ja auch Variante A nehmen und ddas Prog einfach neu starten!
Das geht mit ShellExecute (Unit ShellAPI). Mach ich auch ab und zu ma so ^^
Das halt ich im Allgemeinen für eine weniger gute Idee... :?

Wir haben auch ein Tut dazu in der Library (da wird das Programm übrigens auch nicht beendet, um ein neues Spiel zu starten). :nixweiss:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.