Thursday, 5 April 2012

Membandingkan Angka besar-kecil pada Delphi

untuk code di onclick button bandingnya seperti ini :

procedure TForm1.b_bandingClick(Sender: TObject);
begin
if ed_bil1.Text > ed_bil2.Text then
lbl_hasil.Caption:='lebih besar bilangan pertama'
else if ed_bil1.Text < ed_bil2.Text then
lbl_hasil.Caption:='lebih besar bilangan kedua'
else
lbl_hasil.Caption:='bilangan pertama dan kedua sama besar';
end;

ScreenShoot programnya :




bagi yang mau download silahkan klik disini.

0 comments:

UbaidRahman