delphide çarpma işlemi sonucunu kaydetmede problemim var :(

[fahriakkor]

merhaba basit bir carpim işlemi yapmak istiyorum button2 ye tıkladğımda, edit1 e girdiğim sayiyla edit 2 ye girdiğim sayı çarpılıp edit 3 e yazılıyor,sonrasında button 1 e bastığımdada veri tabanına eklemesini istiyorum ,normal sayılarda problem çıkmıyor ,fakat edit 3 e 2,50 - 3,40 gbi virgüllü sayılar geldiği zaman kaydet butonuna tıkladğımda hata veriyor, küsüratlı sayıları virgüllü kaydetmiyor, mesela 2.50 yi kaydediyor ama 2,50 yi kaydetmiyor. ama program çarpma işlemini yaptıktan sonra verdiği sayıda virgül kullanıyor,nokta kullansa problem olmayacak. bunu nasıl halledebilirim acaba,saatlerdir uğraşıyorum sonuç alamadım:((

kodlarım bunlar




procedure TForm1.Button2Click(Sender: TObject);
var

sayi1:Extended;
sayi2:Integer;
sayi3:extended;
begin
sayi1:=StrToFloat(Edit1.Text);
sayi2:=StrToInt(Edit2.Text);
Edit3.Text:=CurrToStr(sayi1*sayi2);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('insert into para');
Query1.SQL.Add('(para)');
Query1.SQL.Add('values("'+edit3.text+'")');
Query1.ExecSQL;

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * from para');
Query1.Open;
end;
end.

yardım edermsiniz

[unicorn64]

veri tabanına aktarmadan önce çarpım sonucundaki virgülü nokta olarak değiştirmelisiniz. edit3.text i string değişkene alıp StringReplace ile değiştirdikten sonra aktarın..
veri tabanı tarafında ondalık ayracı noktadır...

[fahriakkor]

veri tabanına aktarmadan önce çarpım sonucundaki virgülü nokta olarak değiştirmelisiniz. edit3.text i string değişkene alıp StringReplace ile değiştirdikten sonra aktarın..
veri tabanı tarafında ondalık ayracı noktadır...

ALLAH RAZI OLSUN YAAA OLDUU çooook teşekkürler saat 3 ten beri uğraşıyordum yardımın olmasa bulamazdım yaa cok sağol






procedure TForm1.Button1Click(Sender: TObject);
begin

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('insert into para');
Query1.SQL.Add('(para)');
Query1.SQL.Add('values("'+edit3.text+'")');
Query1.ExecSQL;

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * from para');
Query1.Open;
end;

procedure TForm1.Button2Click(Sender: TObject);
var

sayi1:Extended;
sayi2:Integer;
sayi3:string;
metin,sonuc:AnsiString;
secenek:TReplaceFlags;
begin
sayi1:=StrToFloat(Edit1.Text);
sayi2:=StrToInt(Edit2.Text);
Edit3.Text:=CurrToStr(sayi1*sayi2);


secenek:=[rfIgnoreCase];//küçük büyük harf duyarlılığı yok
metin:=Edit3.Text;
sonuc:=StringReplace(metin,',','.',secenek);//Çok ile Az ı değiştir
Edit3.Text:=sonuc;

[conari]

yeni üye arkadaşlar forum kurallarını okurlarsa iyi olacak.
Kod taglamasını kimse kullanmıyor.