Thema: Delphi Basketball Freiwurf

Einzelnen Beitrag anzeigen

OmahaHawk

Registriert seit: 13. Mär 2009
20 Beiträge
 
#3

Re: Basketball Freiwurf

  Alt 13. Mär 2009, 21:50
Zitat von DeddyH:

procedure TDeinForm.NeuesLevel;
begin
//Level hochzählen
FLevel := FLevel + 1;
//Wurfvariable zurücksetzen
FWurf := 0;
end;

rocedure TDeinForm.Punkte(iPunkte: integer);
begin
//Gesamtpunkte aufaddieren
FGesamt := FGesamt + iPunkte;
end;[/delphi]
procedure TDeinForm.NeuesLevel;
rocedure TDeinForm.Punkte(iPunkte: integer);

Sind das button oder label oder was sind das ??

muss ich noch was bei den variablen (var) einfügen ?
Danke für eure Hilfe !
  Mit Zitat antworten Zitat