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

Kim-Jong

Onursal
Onursal
Katılım
18 May 2015
Mesajlar
1,226
Tepkime puanı
0
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;
 
Üst