dann musst du den Spieler eben in Private declarieren bzw. in Public (je nach dem wie sichtbar das werden soll.
Also wird das
Delphi-Quellcode:
var Spieler: TSpieler
begin
Spieler := TSpieler.create;
Spieler.Geld := 1000;
Spieler.free;
end;
zu
Delphi-Quellcode:
TForm1 = class(TForm)
[...]
public
Spieler: TSpieler
[...]
procedure TForm1.FormCreate(Sender: TObject);
begin
Spieler := TSpieler.Create;
end;
[...]
procedure TForm1.OneOfYourMoneyProcedures;
begin
Spielder.Geld := 1000;
end;
[...]
procedure TForm1.FormDestroy(Sender: TObject);
begin
Spielder.Free;
end;
somit ist Spieler nicht Global und kann doch noch von überall genutzt werden.
Somit können auch andere Objekte über Form1.Spieler darauf zugreifen