kodlarıda delphiturkiye.com sitesinden aldım ve kendimce toparladım ve güzelde calışıyor
fakat kücük bir sorun var
örnegin Query1tutar kısmına 5000000TL 5 taksit MHAREKET.MHTable1TOPLAM alanına kaydediyor1,000,000TL olarak alıyor ve kaydediyor burda sorun yok
fakat Query1tutar kısmına Display format ,000,TL Olarak Kaydettigim Zaman
Query1tutar 5,000,000TL 5 taksit dedigim zaman hemen hata veriyor
hata ise şu şekilde "5,000,000'is not a valit integer valua process stoppet
hatası alıyorum ve bu konuda yardımlarınızı bekliyorum saygılarımla
Kod: Tümünü seç
procedure TTAKSITT.SpeedButton1Click(Sender: TObject);
var
Tmp : TDateTime;
AL,Taksitmiktar,TaksitTutar:integer;
begin
Tmp := Now;
Taksitmiktar:=StrToInt(Query1ADET.Text);
TaksitTutar:=StrToInt(Query1TUTAR.Text) div Taksitmiktar;
for AL:=1 to Taksitmiktar do
begin
MHAREKET.MHTable1.Edit;
MHAREKET.MHTable1.Append;
MHAREKET.MHTable1TOPLAM.asFloat:=TaksitTutar;
MHAREKET.MHTable1brfiyat.asFloat:=TaksitTutar;
TMP := TMP+30;
MHAREKET.MHTable1Tarihx.AsDateTime:= Tmp;
MHAREKET.MHTable1Aciklama.AsString:=IntToStr(AL)+'.Taksit';
MHAREKET.MHTable1.Post;
MHAREKET.MHtable1.Next;
end;
end;