On Sunday, December 26, 2004, 9:18:02 PM, Susianto wrote:
> Fix- nya sudah saya coba. Hasilnya sudah memuaskan. Tapi saya lihat di
> sourcenya, fungsi ini mampu menampilkan nilai sampai "Kuadriliun", lalu saya
> memasukkan angka 1000000000000000 ( 15 Nol ), dan saya mengharapkan
> hasilnya adalah satu kuadriliun, tapi kenapa timbul exception "is not a
> valid floating point value". Terima kasih !
Bukan fungsi konversinya, melainkan keterbatasan fungsi bawaan Delphi
StrToCurr yang terdapat pada demonya, cukup ganti fungsi itu dengan
StrToFloat.
procedure TfrmMain.Button1Click(Sender: TObject);
begin
if (Edit1.Text <> '') then
begin
PanelID.Caption := CurrencyToTextID(StrToFloat(Edit1.Text));
PanelEN.Caption := CurrencyToTextEn(StrToFloat(Edit1.Text));
end;
end;
--
Salam,
-Jaimy Azle
===========================================================
|| Personal Weblogs: http://jaim.log.web.id ||
|| Personal Delphi Weblogs: http://delphi.log.web.id ||
* Pengantar Pemrograman Database C/S, Delphi dan Firebird
http://delphi.log.web.id/blogs/delphi/000152.html
===========================================================
�Programming is like sex: one mistake and you have to support it
for the rest of your life.�
-- Michael Sinz
------------------------ Yahoo! Groups Sponsor --------------------~-->
Make a clean sweep of pop-up ads. Yahoo! Companion Toolbar.
Now with Pop-Up Blocker. Get it for free!
http://us.click.yahoo.com/L5YrjA/eSIIAA/yQLSAA/i7folB/TM
--------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Delphindo/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
