Kod: Tümünü seç
procedure TForm16.Button4Click(Sender: TObject);
Var
SONAL1,SONKAL1:Real;
begin
Try
Query1.close;
Query1.Params[0].AsDate:=StrToDate(MaskEdit1.Text);
Query1.Params[1].AsDate:=StrToDate(MaskEdit2.Text);
Query1.ParamByName('GROUP').AsString:=Edit3.Text;
Query1.ParamByName('ELEMANK').AsFloat:=StrToFloat('-1');
Query1.Open;
Label5.Caption:=FormatFloat('##,###',Query1GENTOPLA.AsFloat);
Label10.Caption:=FormatCurr('##,###',Query1TPESTUT.AsFloat);
Label9.Caption:=FormatCurr('##,###',Query1TKALTUT.AsFloat);
SONAL1:=Query1GENTOPLA.AsFloat;
SONKAL1:=Query1TPESTUT.AsFloat;
Edit2.Text:=FloatToStr(Round((SONKAL1/SONAL1)*100)/100);
Label12.Caption:=IntToStr(Query1.RecordCount);
Query1.refresh;
Except
ShowMessage('Hatalı Tarih ! Lütfen Düzgün Tarih Giriniz !!!');
end;
end;
Kod: Tümünü seç
Edit2.Text:=FloatToStr(Round((SONKAL1/SONAL1)*100)/100);
burda hata veriyor başka bir yolum varmı bu işlemi yaptırmak için?
"invalid floating point operation" hatası alıyorum.