Avatar billede deacon Nybegynder
25. februar 2002 - 22:29 Der er 2 kommentarer og
1 løsning

Stoppe variabel!

Jeg har lige lavet en test på noget, hvor jeg har en Gauge1 og nogle timere.
Jeg har sat Test: Integer.
Og ved OnCreate ved min form: Test:= 0;
Derefter har jeg sat en kode så at den Gauge tæller på altså + 1 ved timeren.
hvordan stopper jeg den når den er på 100.
(Det hjalp ikke med at sætte timerens enabled til false!).
Avatar billede stoney Nybegynder
25. februar 2002 - 22:43 #1
tilføj test : integer; under public

procedure TForm1.Timer1Timer(Sender: TObject);
begin
gauge1.AddProgress(1);
test := test + 1;
label1.caption := inttostr(test);
if gauge1.Progress = 100 then
begin
timer1.Enabled := false;
test := 0;
end;
end;

Stoney
Avatar billede stoney Nybegynder
25. februar 2002 - 22:44 #2
glemte lige denne

procedure TForm1.FormCreate(Sender: TObject);
begin
test := 0;
end;

Stoney
Avatar billede deacon Nybegynder
27. februar 2002 - 15:30 #3
tak :)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester