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.
Share this article :
+
Previous
Next Post »
0 Komentar untuk "Membandingkan Angka besar-kecil pada Delphi"