Hello again,
also ich bin nun an folgendem Punkt angelangt. Ich habe die Klassen te_game, te_set und te_init erstellt mit folgendem Inhalt:
Delphi-Quellcode:
unit te_init;
interface
uses te_game;
procedure InitVariables;
implementation
procedure InitVariables;
begin
akt_points_a := 0;
akt_points_b := 0;
end;
end.
Delphi-Quellcode:
unit te_game;
interface
uses Dialogs,SysUtils;
var
akt_points_a,akt_points_b:integer;
function SetPoint(player,point: integer):boolean;
implementation
function SetPoint(player,point: integer):boolean;
begin
// wenn player = 1
case player
of
1 :
begin
// wenn point > 0 erhoehe Spieler1
if point > 0
then inc(akt_points_a);
// wenn point < 0 senke Spieler1
if point < 0
then dec(akt_points_a);
end;
2 :
begin
// wenn point > 0 erhoehe Spieler2
if point > 0
then inc(akt_points_b);
// wenn point < 0 senke Spieler2
if point < 0
then dec(akt_points_b);
end;
end;
showmessage(inttostr(akt_points_a));
end;
end.
Im FormCreate meiner Applikation rufe ich auf:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
InitVariables;
end;
und wenn ich mal einen Testbutton für plus A drücke, passiert folgendes:
SetPoint(1,1);
Also Spieler 1 oder A erhält einen Pluspunkt.
Nun stehe ich vor dem Problem mit dem Zählen in der richtigen Reihenfolge => 0, 15, 30, 40 und wenn akt_points_a schon 40 hat und einer dazukommt, würde ich dann akt_games_a "inc"en...aber wie?