langkah pertama:
buatlah form dengan delphi, setelah itu buat box(edit1.text) dan button proses seperti pada gambar :
langkah kedua:
masukan code berikut pada button proses
procedure TForm1.prosesClick(Sender: TObject);
var nilai:real;
begin
nilai:=strtofloat(edit1.Text);
edit1.Text:=formatfloat('#,##0.00',nilai);
end;
keterangan:
Tulisan berwarna orange dan merah dapat diganti sesuai dengan apa yang sedang anda buat.
langkah ketiga:
pilih Run atau langsung tekan F9, setelah itu coba anda tuliskan angka pada box(contoh= 14.66666666666) lalu klik button proses. hasilnya=14.67
.
5 komentar:
terimakasih yah...ini syangat bermanfaat
Thanks gan...
Sangat membantu...
Makasih gan...
kalau di lazarus bagaimana yah?
Posting Komentar