Parayı çarpma ve toplama işlemi

[Fesih ARSLAN]

(17-06-2017, Saat: 06:37)serhat Adlı Kullanıcıdan Alıntı:

(16-06-2017, Saat: 23:42)Fesih ARSLAN Adlı Kullanıcıdan Alıntı: Merhaba Serhat Bey,
Kurmuş olduğunuz algoritmada mantıksal bir hata (fatal error ) var.
Bu algoritmayı adımlayacak olursak;
Örneğin Tutar = 15.000,00 TL olsun, Adet = 3 olsun
NoktaConvert adımında Tutar = 15,000,00 olacaktır.
Fiyat * Adet = tahminimce 45 gibi bir sonuç olacaktır. (Test imkanım şu an için olmadığından sonuç konusunda net birşey söyleyemiyorum)

Tam olarak ne demek ,istediğinizi anlayamadım edite 15.000 bin olarak alıyorum 15.000,00 olarak değil ayrıntı verir misiniz?

---

procedure TForm2.FiyatChange(Sender: TObject);
var
 Rp: String;
 Rph: Currency;
begin
 Rp := Fiyat.Text;
 Rp := StringReplace(Rp, ',', '', [rfReplaceAll, rfIgnoreCase]);
 Rp := StringReplace(Rp, '.', '', [rfReplaceAll, rfIgnoreCase]);
 Rph := StrToCurrDef(Rp, 0);
 Fiyat.Text := FormatCurr('#,###', Rph);
 Fiyat.SelStart := length(Fiyat.Text);
end;

Para formatına çevirmek için bu yöntemi kullanıyorum

Not: Edit'in OnChange olayında virgül (,) karakteri girilemediği için bu olaydaki kodlarınızı, Button!un OnClick olayında kullandım.
         Bu kısımda da bir mantıksal hata var. Son kullanıcı Tutarın ondalık kısımlarını giremiyor.