Channel PIN : C004874EF
"JOIN BBM Channel Official Anak Kos Entertainment"

Wednesday, April 17, 2013

Aplikasi Looping Sedehana (Delphi)


Adapun postingan ini saya buat adalah untuk sambungan postingan sebelumnya, yaitu Aplikasi Login Sederhana, karna dalam file exe nya sudah saya sertakan Program Loopingnya...
Cekidot.....

procedure TForm2.Button1Click(Sender: TObject);

var a,b,num : integer;

begin

a := strtoint(edit1.Text);

b := strtoint(edit2.Text);

for num :=  a to b do

showmessage (inttostr(num));

end;

0 comments:

Post a Comment

Terimakasih telah berkunjung dan berkomentar disini...