Простой калькулятор

[Jurek]

Подскажите как преобразовать код, что бы заменить радиогруп на баттоны???

PHP код:

procedure TForm1.Button1Click(Sender: TObject); 
 var a,b:real; 
 begin 
 a:=strtofloat(edit1.text); 
 b:= strtofloat(edit2.text); 

 if radiogroup1.ItemIndex=0 then 
 begin 
 a:=strtofloat(edit1.text); 
 b:=strtofloat(edit2.text); 
 edit3.Text:=floattostr(a*b); 
 end; 

 if radiogroup1.ItemIndex=1 then 
 begin 
 a:=strtofloat(edit1.text); 
 b:=strtofloat(edit2.text); 
 edit3.Text:=floattostr(a+b); 
 end; 

 if radiogroup1.ItemIndex=2 then 
 begin 
 a:=strtofloat(edit1.text); 
 b:=strtofloat(edit2.text); 
 edit3.Text:=floattostr(a/b); 
 end; 

 if radiogroup1.ItemIndex=3 then 
 begin 
 a:=strtofloat(edit1.text); 
 b:=strtofloat(edit2.text); 
 edit3.Text:=floattostr(a-b); 
 end; 
 end; 


[bulldog5293]

Тупо это всё можно заменить функцией

function prod(sum:string):string;//процедура получения ответа математического выражения
var
s1,s2,zn:string;
n1,n2:integer;
i1,i2:real;
s:real;
begin
 if pos('+',sum)>0 then zn:='+';
 if pos('-',sum)>0 then zn:='-';
 if pos('*',sum)>0 then zn:='*';
 if pos('/',sum)>0 then zn:='/';
 n1:=pos(zn,sum);
 n2:=pos('=',sum);
  if n2 = 0 then
 begin
 result:=sum;
 exit;
 end;
 s1:=copy(sum,1,n1-1);
 s2:=copy(sum,n1+1,n2-(n1+1));
 i1:=strtofloat(s1);
 i2:=strtofloat(s2);
 if zn='+' then s:=i1+i2;
 if zn='-' then s:=i1-i2;
 if zn='*' then s:=i1*i2;
 if zn='/' then s:=i1/i2;
 result:=floattostr(s);
end;

[Jurek]

дело в том, что действия должны быть на кнопках баттон и выполнятся после нажатия кнопки "ровно "

[Denutrror]

Не знаю на сколько хорошо Вас понял. Но предлагаю такой вариант. З.Ы.Правда слишком сложный пример для калькулятора.

[Jurek]

вообщем мне нужно написать такой калькулятор где действия +,-,*,/ будут вводится через радиобаттоны

[Denutrror]

procedure TForm1.Button1Click(Sender: TObject); 
 var a,b:real; 
 begin 
 a:=strtofloat(edit1.text); 
 b:= strtofloat(edit2.text); 

 if RadioButton1.Checked = true then  ///Если Радиобатон1 отмечена
 begin 
 a:=strtofloat(edit1.text); 
 b:=strtofloat(edit2.text); 
 edit3.Text:=floattostr(a*b); 
 end;  
 end

;