Tolong pilih kategori sesuai, jenis posting (diskusi atau bukan) dan sertakan tag/topik yang sesuai seperti komputer, java, php, mysql, dll. Promosi atau posting tidak pada tempatnya akan kami hapus!
- Bagi Anda yang ingin mendaftar, baca link berikut:
http://diskusiweb.com/discussion/50491/how-to-registrasi-diskusiweb-com-baca-ini-terlebih-dahulu
- Cara menyisipkan kode program supaya tampil rapi dan terformat dengan baik di diskusiweb.com: http://www.diskusiweb.com/discussion/50415/cara-menyisipkan-kode-program-di-diskusiweb-com
- Cara posting gambar/image di post Anda: http://www.diskusiweb.com/discussion/47345/cara-menyisipkan-menyertakan-image-pada-posting/p1

format rupiah di delphi

para master saya mau tanya bagaimana caranya membuat inputan text edit di delphi bisa menampilkan format rupiah dan juga ada 2 angka di belakang koma jadi hasilnya kaya gini 15,000.96 mohon pencerahannya
Tagged:

Comments

  • FloatToStrF(15000.96 , ffCurrency , 12 , 2);
  • saya sudah buat untuk menampilkan , tapi saat mau di tambah . tidak bisa
    saya pasang source code di event on key up

    Pascal. lang="pascal"
    procedure Tftransaksikas.tjumlahKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    var
    srupiah :string;
    irupiah :currency;
    begin

    srupiah := tjumlah.text;
    srupiah := stringreplace(sRupiah,',','',[rfreplaceall,rfignorecase]);
    srupiah := stringreplace(srupiah,'.','',[rfreplaceall,rfignorecase]);
    irupiah := strtocurrdef(srupiah,0);

    tjumlah.text := formatcurr('#,###.##',irupiah);
    tjumlah.selstart := length(tjumlah.text);

    end;

    mohon pencerahannya agar bisa ditambahkan 2 angka di belakang koma

  • TMaskEdit ?

    coba elo liat dokumentasi delphi elo
  • bukan mas cuma pake text edit standar delphi
  • lha iya, kenapa kagak pake TMaskEdit saja ?
    format nya bisa elo atur semaunya
  • owh saya ga tau cara penggunaannya kalo pake tmaskedit bagaimana cara penggunaannya supaya bisa formatnya 15,000.96
  • edited July 2014
    docs :
    http://docwiki.embarcadero.com/Libraries/XE2/en/Vcl.Mask.TMaskEdit
    http://docwiki.embarcadero.com/Libraries/XE2/en/System.MaskUtils.TEditMask

    eg, utk isian IP EditMask di set : "!099.099.099.099;1; "

    elo baca sendiri dokumentasinya
    gw kagak bisa coba, soalnya gw lagi di luar, kagak di depan komputer gw yg ada delphi nya
  • makasih mas saya coba pelajari dulu
  • DecimalSeparator  := ',';
    ThousandSeparator := '.';
  • maksudnya itu buat apa mas my_h4d ?
  • itu kalo pake FloatToStrF()
    http://www.delphibasics.co.uk/RTL.asp?Name=ThousandSeparator
    http://www.delphibasics.co.uk/RTL.asp?Name=DecimalSeparator

    sebenernya sama ribetnya
    baik elo pake model :
    [1]
    - pake TEdit
    - tiap kali onkeydown, nilai dikembalikan tanpa format : 1234567.89
    - tiap kali onkeyup, nilai kembali pake format : Rp 1.234.567,89

    [2]
    - pake TMaskEdit
    - tiap kali onkeydown, EditMask dihilangkan
    - tiap kali onkeyup, EditMask dibuat currency

    itu juga belum masalah :
    - hanya boleh ketik angka
    - masalah letak cursor editing nya
  • kalo masalah ribet ya lebih ribet kalo pake TEdit.
    karena setelah bisa ditampilkan berbentuk Rp 1.234.567,89 saat isi edit akan dipakai lagi maka harus menghilangkan tanda Rp dan tanda . nya

    kalo mask edit tidak perlu.
  • edited July 2014
    kalo TMaskEdit itu ribetnya ...

    misal yg harus di entri angka : 1234567.89

    kalo EditMask di set : "Rp ###.###.##0,00;0; "

    yg mengetik kursornya harus pas di warna merah
    artinya harus melihat / menghitung dulu panjang angka yg mau di entri

    kalo TEdit atau EditMask tidak di set
    bisa langsung isi 1-1

    [1      ]
    [12     ]
    [123    ]
    [1234   ]
    [12345  ]
    ... dst ...
  • jadi lebih baik pake tmaskedit atau tedit mas ? maaf masih kurang ngerti cara penggunaannya
  • Menurutku sih lebih mudah menggunakan TEdit. tapi kalau ada waktu ada baiknya di coba sendiri biar mengerti perbedannya.
Sign In or Register to comment.