Delphi iskonto bulma

Örnek Resimde Olduğu verilen bir tutar üzerinden gerçekleştirilen 4 iskonto oranı girilerek bu ürünün tutarsal olarak değeri ve bu girilen oranların tek bir iskonto oranını bulabiliyoruz.

procedure Tfrm_iskontooranibul.btn_bulClick(Sender: TObject);
var
bir,iki,uc,dort:Double;
begin
bir:=StrToFloatDef(edt_tutar.Text,0)-StrToFloatDef(edt_tutar.Text,0)*StrToFloatDef(edt_isk1.Text,0)/100;
edt_1.Text:=(FloatToStr(bir));

iki:=StrToFloatDef(edt_1.Text,0)-StrToFloatDef(edt_1.Text,0)*StrToFloatDef(edt_isk2.Text,0)/100;
edt_2.Text:=(FloatToStr(iki));


uc:=StrToFloatDef(edt_2.Text,0)-StrToFloatDef(edt_2.Text,0)*StrToFloatDef(edt_isk3.Text,0)/100;
edt_3.Text:=(FloatToStr(uc));

dort:=StrToFloatdef(edt_3.Text,0)-StrToFloat(edt_3.Text)*StrToFloatDef(edt_isk4.Text,0)/100;
edt_4.Text:=(FloatToStr(dort));

edt_iskontoorani.Text:=FloatToStr(StrToFloat(edt_tutar.Text)-StrToFloat(edt_4.Text));

end;

Kaynak kod ve exe için Tıklayın.