калькулятор

[-=Andriushka=-]

написал калькулятор...но надо сделать его по идеальнее...хочу к примеру чтобы после операции если получалось не целое число то чтоб запятая блокировалась а если целое то была активная запятая...вот код

procedure TCalculator.WellClick(Sender: TObject);
begin
     if i=1 then
       Ekran.Text:=FloatToStr(A+StrToFloat(Ekran.Text));
     if i=2 then
       Ekran.Text:=FloatToStr(A-StrToFloat(Ekran.Text));
     if i = 3 then
       Ekran.Text:=FloatToStr(A*StrToFloat(Ekran.Text));
     if i = 4 then
       Ekran.Text:=FloatToStr(A/StrToFloat(Ekran.Text));
     if i = 5 then
       Ekran.Text:=FloatToStr((A/100)*StrToFloat(Ekran.Text));
     Zapyataya.Enabled:=true;
end;

[Utkin]

pos по запятой (или точке, смотря, что является разделителем разрядов в Вашей системе). А дальше отбрасываем запятую и нуль если они имеют место быть.