Wednesday, 20 March 2013

Separator desimal

saya pakai coding ini buat perkalian bilangan decimal dan bulat tapi error..!!! Menurut anda semua ada masalah di apanya yach ..!!

procedure TFrmlabel.NorollA ;
var
bil1,bil2 :real ;
kali, x :real ;

begin
bil1 :=StrToFloat(AEBW.Text);// berisi bilangan Decimal contoh 13.5
bil2:=10;
kali :=(bil1*bil2);
x :=int(kali);

end;

Bang Imam Chalimi Bin Moeslim, Errornya gini Project Gaproc_System.exe raised exception class EconvertError With Message"13.5" is not a valid floating point value.


Imam Chalimi Bin Moeslim
itu karena regional setting di komputer agan desimalnya pake koma bukan titik.
solusinya masukkan 13,5 (pake koma) atau tambahkan code berikut pada FormCreate ..

procedure TForm1.FormCreate(Sender: TObject);
begin
ThousandSeparator:=',';
DecimalSeparator:='.';
end;

1 comment:

  1. Mas maaf mau bertanya..
    Saya kan bikin program perhitungan angka Di delphi7..
    Saat mau di simpan ke database malah error..
    Tipe data yang saya gunakan di sql server adalah float..

    Masalahnya gini mas..
    Saat bilangan desimal menggunakan titik data berhasil disimpan..
    Tapi saat data menggunakan koma malah error..

    Kira2 solusinya gimana ya mas, agar bilangan koma tadi bisa di simpan ke databasenya..

    Mohon bantuannya mas..

    ReplyDelete

Install Fortesreport community Delphi 7 dan RX Berlin

Download  Pertama2 kita harus punya file installernya terlebih dahulu, download  https://github.com/fortesinformatica/fortesrepo...