pada saat saya browsing, saya menemukan sebuah artikel yang menarik. disini mejelaskan tentang bug kecil yang mungkin tidak kita sadari pada fungsi round.
bug tersebut adalah, jika nilai pecahan berkoma yang dimasukkan adalah nilai ganjil, maka akan dinaikkan ke atas, tetapi jika genap malah di turunkan ke bawah untuk pembulatannya.
maka untuk mengatasinya, kita harus melupakan fungsi round bawaan delphi - dan membuat fungsi baru. contoh fungsi untuk round :
CMIIW
sumber : http://www.q3.nu/trucomania/truco.cgi?374&ing
Edit1.Text := IntToStr(Round(23.5)); //->24 Edit2.Text := IntToStr(Round(22.5)); //-> 22 |
Syntax Highlighted with https://pascal-id.org/syntax |
maka untuk mengatasinya, kita harus melupakan fungsi round bawaan delphi - dan membuat fungsi baru. contoh fungsi untuk round :
function MyRound(Const X: Extended): Int64; begin Result:= Trunc( X ); if ( Frac( X ) >= 0.5 ) then Result:= Result + 1; end; |
Syntax Highlighted with https://pascal-id.org/syntax |
CMIIW
sumber : http://www.q3.nu/trucomania/truco.cgi?374&ing
Random Articles
- Menampilkan TEKS dengan sudut kemiringan tertentu di canvas
- Membuat Plugin Untuk Aplikasi Delphi
- TDBF
- Yang Tidak Bisa Dilakukan Turbo Pascal #1
- Meload data besar dalam dbgrid
- TheDevShop releases dbQwikSite Personal Edition
- Koneksi dari Delphi 7.0 menggunakan Database MySQL 5.0
- Random bilangan integer (n)
- Menambahkan skrolbar horisonal pada listbox
- Disable Internet Explorer
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago