pert.5 looping delphi

Looping atau perulangan yang digunakan sama seperti looping yang digunakan dalam pascal, untuk lebih jelas silakan anda baca artikel pascal looping.
Buat Tampilan seperti ini :
delp1.jpg

Listing Program :procedure TForm6.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 5 do
ehasil.SelText:=inttostr(i);
end;

procedure TForm6.Button2Click(Sender: TObject);
var
i:integer;
begin
for i:=5 downto 1 do
ehasil.SelText:=inttostr(i);
end;

procedure TForm6.Button3Click(Sender: TObject);
var
i:integer;
begin
i:=0;
while i=15;
end;

procedure TForm6.Button5Click(Sender: TObject);
begin
close;
end;

procedure TForm6.Button6Click(Sender: TObject);
begin
ehasil.Text:=”;
end;

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s