Yardım edin arkadaşlar

[ozcank]

Arkadaşlar şöyle bir sorunum var ;

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.

[bobasturk]

@özcan ustam epeydir forumda bulunuyorsun kuralları uygulamak gerekli bu yüzden konu başlığını uygun bir şekilde değiştirirsen iyi olur.

kolay gelsin

[ozcank]

acele yazdım bundan sonra dikkat ederim özür dilerim.

[skyking]

slm

senin sorunun değişkenlerinden birinin sıfır degerini alması
bolmede 0 kulanırsan hata alırsın ....!