22. maj 2008 - 00:11Der er
4 kommentarer og 1 løsning
Label kode ?
Heej :)
Er igang med et lille spil. Men er støt på et lille problem :)
Har 2 "Label" hvor den ene vis mine ressourcer, og den anden viser hvor mange ressourcer jeg max kan have. Men mangler en lille kode til at når mine ressourcer overstier, min max ressource loft så skal den stå stille. :)
ressourcer per sekund er: 12 Og må max have 21
Så koden skal gøre så mine ressourcer ikke går længere ind 21, men bliver ved 21 :)
type TForm1 = class(TForm) private fCurrentResource: integer; public end
...
begin fCurrentResource := min(fCurrentResource + 1,MaxResource); Label1.Caption := IntToStr(fCurrentResource); end;
Min-funktionen (der ligger i Math-unitten) returnerer det mindste af de to tal. Dvs når fCurrentResource + 1 er større end MaxResource returnerer min værdien MaxResource.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.