Aritmatik dengan Tanda Titik (.) Pada EditBox

Disini saya akan memberikan tentang Cara menghitung perkalian yang memakai tanda separator misalnya titik (.) seperti 1.5 * 100 hasilnya biasanya dia error tergantung regional setting, dan bagaimana supaya tidak perlu di set lagi regional settingnya
Code:

1. procedure TForm1.Button1Click(Sender: TObject);  
2. var x,y:extended;  
3. s:string;  
4. begin  
5.   ThousandSeparator := '.';  
6.   DecimalSeparator := ',';  
7.   s:='1.500.100,50';  
8.   s:=StringReplace(s,'.','',[rfReplaceAll]);;  
9.    x:=strtofloat(s);  
10.   y:=5*x;  
11.   showmessage(formatfloat('###.##',y));  
12. end;  

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...  

---