Hoşgeldin, Ziyaretçi:

Üye Ol
Yeni Tema ! Yeni temamız forumumuza hayırlı olsun.Bu konuda fikirlerinizi beyan edebilirsiniz.
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Delphi'de 100'den 0'a Geri Sayım
#1
Kod:
procedure Delay(ms : longint);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'; end;


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi form açılışına şifre koymak Kim-Jong 0 189 09-07-2015, Saat: 09:34
Son Yorum: Kim-Jong
  Delphİ Hesap Makinesi Programı (Kodları) Kim-Jong 0 175 09-07-2015, Saat: 09:33
Son Yorum: Kim-Jong
  Delphi Dosya Silme Kodu Kim-Jong 0 182 09-07-2015, Saat: 09:32
Son Yorum: Kim-Jong

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi

Türkçe Çeviri:MCTR MyBB, © 2002-2016 MyBB Group.
Desing and Coding By Mustafa SEVİM