Описание численных типов и математических операций

[Chevy]

Доброго времени суток!
Столкнулся с проблеммой в коде, задача путает типы данных при решении.
Допустим вместо integer выводит real, и наоборот.

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
if checkbox1.Checked=true then begin
if checkbox2.Checked=true then begin
if radiobutton1.Checked=true then
begin
edit3.Text:=floattostr(strtofloat(edit1.Text)+strtofloat(edit2.Text));
label3.Caption:='(integer)';
for i:=1 to length(edit3.Text) do
if edit3.Text[i]=',' then label3.Caption:='(real)';
label4.Caption:='(integer)';
for i:=1 to length(edit1.Text) do
if edit1.Text[i]=',' then label4.Caption:='(real)';
label5.Caption:='(integer)';
for i:=1 to length(edit2.Text) do
if edit2.Text[i]=',' then label5.Caption:='(real)';
end;
if radiobutton2.Checked=true then
begin
edit3.Text:=floattostr(strtofloat(edit1.Text)*strtofloat(edit2.Text));
label3.Caption:='(integer)';
for i:=1 to length(edit3.Text) do
if edit3.Text[i]=',' then label3.Caption:='(real)';
label4.Caption:='(integer)';
for i:=1 to length(edit1.Text) do
if edit1.Text[i]=',' then label4.Caption:='(real)';
label5.Caption:='(integer)';
for i:=1 to length(edit2.Text) do
if edit2.Text[i]=',' then label5.Caption:='(real)';
end;
if radiobutton3.Checked=true then
begin
edit3.Text:=floattostr(strtofloat(edit1.Text)-strtofloat(edit2.Text));
label3.Caption:='(integer)';
for i:=1 to length(edit3.Text) do
if edit3.Text[i]=',' then label3.Caption:='(real)';
label4.Caption:='(integer)';
for i:=1 to length(edit1.Text) do
if edit1.Text[i]=',' then label4.Caption:='(real)';
label5.Caption:='(integer)';
for i:=1 to length(edit2.Text) do
if edit2.Text[i]=',' then label5.Caption:='(real)';
end;
if radiobutton4.Checked=true then
begin
if edit2.Text='0' then edit3.Text:='ERROR' else begin
edit3.Text:=floattostr(strtofloat(edit1.Text)/strtofloat(edit2.Text));
label3.Caption:='(integer)';
for i:=1 to length(edit3.Text) do
if edit3.Text[i]=',' then label3.Caption:='(real)';
label4.Caption:='(integer)';
for i:=1 to length(edit1.Text) do
if edit1.Text[i]=',' then label4.Caption:='(real)';
label5.Caption:='(integer)';
for i:=1 to length(edit2.Text) do
if edit2.Text[i]=',' then label5.Caption:='(real)';
end;
if radiobutton5.Checked=true then
begin
edit3.Text:=floattostr(sqr(strtofloat(edit1.Text)-strtofloat(edit2.Text)));
label3.Caption:='(integer)';
for i:=1 to length(edit3.Text) do
if edit3.Text[i]=',' then label3.Caption:='(real)';
label4.Caption:='(integer)';
for i:=1 to length(edit1.Text) do
if edit1.Text[i]=',' then label4.Caption:='(real)';
label5.Caption:='';
end;
if radiobutton6.Checked=true then
begin
edit3.Text:=floattostr(sqrt(strtofloat(edit1.Text)));
label3.Caption:='(integer)';
for i:=1 to length(edit3.Text) do
if edit3.Text[i]=',' then label3.Caption:='(real)';
label4.Caption:='(integer)';
for i:=1 to length(edit1.Text) do
if edit1.Text[i]=',' then label4.Caption:='(real)';
label5.Caption:='';
end;
if radiobutton7.Checked=true then
begin
edit3.Text:=floattostr(sin(strtofloat(edit1.Text)));
label3.Caption:='(integer)';
for i:=1 to length(edit3.Text) do
if edit3.Text[i]=',' then label3.Caption:='(real)';
label4.Caption:='(integer)';
for i:=1 to length(edit1.Text) do
if edit1.Text[i]=',' then label4.Caption:='(real)';
label5.Caption:='';
end;
if radiobutton8.Checked=true then
edit3.Text:=floattostr(cos(strtofloat(edit1.Text)));
label3.Caption:='(integer)';
for i:=1 to length(edit3.Text) do
if edit3.Text[i]=',' then label3.Caption:='(real)';
label4.Caption:='(integer)';
for i:=1 to length(edit1.Text) do
if edit1.Text[i]=',' then label4.Caption:='(real)';
label5.Caption:='';
end;
if radiobutton9.Checked=true then
begin
if edit1.Text='0' then edit3.Text:='ERROR' else begin
edit3.Text:=floattostr(ln(strtofloat(edit1.Text)));
label3.Caption:='(integer)';
for i:=1 to length(edit3.Text) do
if edit3.Text[i]=',' then label3.Caption:='(real)';
label4.Caption:='(integer)';
for i:=1 to length(edit1.Text) do
if edit1.Text[i]=',' then label4.Caption:='(real)';
label5.Caption:='';
end; end;
if radiobutton10.Checked=true then
edit3.Text:=floattostr(exp(strtofloat(edit1.Text)));
label3.Caption:='(integer)';
for i:=1 to length(edit3.Text) do
if edit3.Text[i]=',' then label3.Caption:='(real)';
label4.Caption:='(integer)';
for i:=1 to length(edit1.Text) do
if edit1.Text[i]=',' then label4.Caption:='(real)';
label5.Caption:='';
end;
if radiobutton11.Checked=true then
edit3.Text:=floattostr(abs(strtofloat(edit1.Text)));
label3.Caption:='(integer)';
for i:=1 to length(edit3.Text) do
if edit3.Text[i]=',' then label3.Caption:='(real)';
label4.Caption:='(integer)';
for i:=1 to length(edit1.Text) do
if edit1.Text[i]=',' then label4.Caption:='(real)';
label5.Caption:='';
end; end;
end.

Заранее благодарен!

[Аватар]

Посмотрев на такое оформление кода, отпадает всякое желание разбираться в нем. Можно было вообще все в одну строку оформить. А что? Компилируется, работает - нет проблем.

[evg_m]

if checkbox1.Checked=true then begin
  if checkbox2.Checked=true then begin
     if radiobutton1.Checked=true then begin
        edit3.Text:=floattostr(strtofloat(edit1.Text)+strtofloat(edit2.Text));
        if pos(',', edit3.text)>0 then label3.Caption:='(real)' else label3.Caption:='(integer)';
        if pos(',', edit1.text)>0 then label4.Caption:='(real)' else label4.Caption:='(integer)';
        if pos(',', edit2.text)>0 then label5.Caption:='(real)' else label5.Caption:='(integer)';
     end;
     if radiobutton2.Checked=true then begin
       edit3.Text:=floattostr(strtofloat(edit1.Text)*strtofloat(edit2.Text));
       if pos(',', edit3.text)>0 then label3.Caption:='(real)' else label3.Caption:='(integer)';
       if pos(',', edit1.text)>0 then label4.Caption:='(real)' else label4.Caption:='(integer)';
       if pos(',', edit2.text)>0 then label5.Caption:='(real)' else label5.Caption:='(integer)';
     end;

дальше редактируйте сами, может быть и сами же увидите вашу ошибку. а может быть еще и найдете способ не писать сто раз одно и тоже

[phomm]

ОУ МАЙ ГАД! (голосом Дженис из "Друзей")
Автор - выполните пожалуйста пару преобразований кода и потом уже выкладывайте, если ошибка не исчезнет (а я уверен на 95%, она исчезнет, когда Вы уберёте кашу написанную самостоятельно и замените её на "авто-код")
Один совет Вам уже дали.
Мои советы : 1. убрать к чертям 10 радиобатонов и создать несколько Tradiogroup, в которые на вписать Ваши категоризированные наборы радиобатоном в виде свойства Items, доступ к выбранному радиобатону в конкретной группе(на конкретном радиогрупе) осуществляется посредством RadioGroup.ItemIndex . После чего можно написать один красивый case RadioGroup.ItemIndex of ...
2. Смех в том, что все действия по определению вещественного /целого числа повторяются везде, в то время как их надо вынести за вышеуказанный case, а в самом кейсе оставить только вычисление по формуле - в зависимости от нажатого радиобатона
итого : код сократится до 3 проверок всех эдитов (а я бы ещё присоветовал сделать циклом прогон по эдитам – но в данной задаче это не нужно, просто я люблю гибкость) и кейса на 10 позиций