@hos2sly untuk funtion ke currencynya bisa seperti yang harapkan, kmrn saya coba2 lagi untuk membuat function untuk mengembalikan ke awal lagi. Ternyata tidak bisa2 juga, apa saya yang lemot yach heee...mohon bantuannya saya buat seperti ini : function strconvert(edt2: Tedit): string; var cyc2 : String; begin Result :='0'; cyc2 := CurrToStr(edt2.Text); Result := Trim(Format('%d',[cyc2])); edt2.Text := Result; end; Pada saat di compile selalu ada error : there is no overload version of 'CurrTo Str' than can be called with these argument. Lalu pas di cek ada masalah di : cyc2 := CurrToStr(edt2.Text); lalu saya ganti dengan : cyc2 := CurrToStr(StrToCurr(edt2.Text); program bisa di compile tetapi pada saat di jalan kan muncul error : 'xxxxx' is not a valid floating point value. Mohon pencerahannya

mending pake DbEdit kalo mau koneksi langsung ke Db, kalo ini simple banget... tinggal koneksi k ADO atau BDE. untuk format Currencynya... dobel klik di komponen ADO atau BDE - lanjutkan klik kanan pilih Add Field. pilih field yg mau diformat currency, cari d Object Inspector - DisplayFormat, kemudian isi dengan format currency #,###0.

ini sekedar aku ambil dr koleksi aku...untuk keperluan sampean tinggal modif aja....sesuai kebutuhan sampean...

function  FloatToDec(r: Real; count: Integer): string;
var
  str: string;
begin
  str := '%.' + IntToStr(Count) + 'n';
  result := format(str, [r]);
end;
function  DecToStr(Dec: string): string;
var
  i: Integer;
begin
  result := '';
  for i := 1 to Length(Dec) do
  begin
    if Dec[i] <> ThousandSeparator then
    result := result + Dec[i];
  end;
end;
function  DecToFloat(Dec: string): Real;
begin
  Dec := DecToStr(Dec);
  result := StrToFloatDef(Dec, 0);
end;

@juandon, itu function yg dipost mas kofa lebih simpel tuh, pake itu aja klo pake caraku agak ribet, ini lah bedanya on professional sama on intermediate. any way, kita boleh punya style sndirikok dlm programming, itu justru akan menujukkan siapa diri kita, OK

sebenarnya sekarang dah lumayan banyak component2 yg support untuk kasus ini, tanpa harus menyuguhkan coding 1 huruf pun, tgl klak-klik klak-klik jadi deh... :mrgreen: Tapi klo emang mau maen coding saya kasih contoh coding yg biasa saya gunakan:

    { Private declarations }
    HargaNet: Currency;
procedure TFrTambahDataSettingHarga.EdHargaNetKeyPress(Sender: TObject;
  var Key: Char);
begin
     if Key='.' then
        Key:=',';
     if Not (Key in ) then
        Key:=#0;
     if Key=#13 then begin
        Key:=#0;
        SendMessage(Handle,WM_NEXTDLGCTL,0,0);
     end else
     if Key=#27 then begin
        Key:=#0;
        Close;
     end;
end;
procedure TFrTambahDataSettingHarga.EdHargaNetChange(Sender: TObject);
begin
     if EdHargaNet.Text='' then begin
        HargaNet:=0;
        EdHargaNet.Text:='0';
        EdHargaNet.SelectAll;
     end;
     if EdHargaNet.Text[1]<>'R' then begin
        try
           StrToCurr(EdHargaNet.Text);
           HargaNet:=StrToCurr(EdHargaNet.Text);
        except
              ShowMessage('Format Harga Net salah!');
              EdHargaNet.SelectAll;
        end;
     end;
end;
procedure TFrTambahDataSettingHarga.EdHargaNetEnter(Sender: TObject);
begin
     EdHargaNet.Text:=FloatToStr(HargaNet);
     EdHargaNet.SelectAll;
end;
procedure TFrTambahDataSettingHarga.EdHargaNetExit(Sender: TObject);
begin
     if EdHargaNet.Text[1]<>'R' then begin
        EdHargaNet.Text:=CurrToStrF(HargaNet,ffCurrency,2);
     end;
end;

Met berexplorasi ya??? :mrgreen:

kk dephiers, Setelah mengamati dan mencoba2, ternyata saya lebih mengerti tehnik yang di buat oleh @ho2sly daripada @mas_kofa mungkin karena saya agak kurang dalam tehnik dan beda antara yang pro, intermediate sama yang beginer. Untuk @reminder2k1 saya blm coba karena harus saya pelajari dahulu (maklum lelet), tapi terima kasih atas perhatiannya. Trus menanggapi kenapa saya lebih suka pakai coding, karena variasinya banyak dan lebih "memaksa" utk kreatif dan tidak tergantung pada omponen pihak ketiga, lagi pula mahal2kan komponennya hee.. blm mampu beli. Oh ya saya mau tanya itu tanda <&gt maksudnya apa yach?? di help delphi pun tdk ada keterangannya ?? di script @mas_kofa dan @reminder2k1 juga ada.

&lt;&gt artinya adalah tanda "tidak sama dengan" / "< >" itu pengaruh parser delphi-id......

@juandon, emang style dlm scripting itu tiap orang beda2, aku anggap script yg kubuat itu kurang sempurana, terdapat pemborosan script, tp klo kmu lebih mudeng sm itu ya syukur deh, trus klo mau convert yg dari currency format ke normal format kayanya bisa di combine dengan punyanya mas_kofa. OK keep trying

lagi pula mahal2kan komponennya hee

mau component yang free... untuk delphi6 ada di CD2 untuk component namanya alpha control di situ ada Scurrencyedit1 untuk solusi memakai component kalo mau hub saya aja