Thema: Delphi Globale Variablen!

Einzelnen Beitrag anzeigen

Benutzerbild von tmode00
tmode00

Registriert seit: 21. Mai 2005
Ort: Gera
22 Beiträge
 
Delphi 7 Enterprise
 
#5

Re: Globale Variablen!

  Alt 6. Jul 2005, 19:08
Also,

Im Interface Teil:

Delphi-Quellcode:
Type
TSpieler = class(TObject) //Spielerklasse

private
Geld:Integer; //Feld von Spieler was das gesamte Geld des Spielers beinhalten soll

end;
Im Implementationsteil (in irgeneiner Routine):


Delphi-Quellcode:
var Spieler: TSpieler
begin
Spieler := TSpieler.create;
Spieler.Geld := 1000;
Spieler.free;
end;
So nun hat der Spieler innerhalb der Routine 1000 Geld. Aber von überall soll man Geld verwenden können z.B.:

Button1.Click:

Delphi-Quellcode:
var Wasgeldkostet: TSpieler;
begin
Wasgeldkostet := TSpieler.Create;

Label1.caption := InToSTR(Wasgeldkostet.Geld) //würde nichts ergeben!
end;
Nun möchte ich aber das wasgeldkostet auf das Spielergeld zugreift! Ich weis nicht wie ichs genauer erklären soll was ich meine....
Thomas Seidel
begin; 011010101101010100101010; end;
  Mit Zitat antworten Zitat