Hızlı Konu Açma

Hızlı Konu Açmak için tıklayınız.

Son Mesajlar

Konulardaki Son Mesajlar

Reklam

Forumda Reklam Vermek İçin Bize Ulaşın

Delphi'de 100'den 0'a Geri Sayım

BlackKey

Üye
Fenerbahçe
Kayıtlı Üye
Katılım
12 Eylül 2014
Mesajlar
167
Tepkime puanı
0
Puanları
0
Kod:
[B]procedure Delay(ms : longint);[/B][B]var TheTime : LongInt;
begin
TheTime := GetTickCount + ms;
while GetTickCount < TheTime do
Application.ProcessMessages;
end;


procedure TForm1.Button1Click(Sender: TObject);
var i,s:integer;
begin
s:=100;
for i:=1 to 100 do begin
s:=s-1;
edit1.Text:=inttostr(s);
Delay(1000);
end;
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
halt;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:='100'; [/B][B]end;[/B]
 

Users Who Are Viewing This Konu (Users: 0, Guests: 1)

Üst