[OmG killer]

Помогите пожалуйста.
Есть 2 radiobutton'a как сделать, чтобы при нажатии 2го результат выходил в (edit1) в градусах (sin,cos,tg), а 1го обратно в радианы?
кнопка =

Код:

procedure TForm1.BitBtn18Click(Sender: TObject);
begin
if edit1.Text<>'' then b:=strtofloat (edit1.Text);
case c of
 'x':edit1.Text:=floattostr(power(a,b));
 '+':edit1.Text:=floattostr(a+b);
 '-':edit1.Text:=floattostr(a-b);
 '*':edit1.Text:=floattostr(a*b);
 '/':begin
 if b<>0 then
 edit1.Text:=floattostr(a/b) else
 form3.Show;
    end;
 end;
end;

кнопки sin,cos,tg

Код:

procedure TForm1.BitBtn24Click(Sender: TObject);
begin
x:=strtofloat(edit1.Text);
y:=sin(x);//sin,cos,sin(x)/cos(x).
edit1.Text:=floattostr(y);
end;

[M.A.D.M.A.N.]

В модуле math есть ф-ии DegToRad, GradToRad и т.д.

[OmG killer]

Я незнаю как применять функции DegToRad, GradToRad, незнаю даже какое условие подобрать.(мне бы пример на radiobutton )

[Mrak]

Сообщение от OmG killer

Я незнаю как применять функции DegToRad, GradToRad, незнаю даже какое условие подобрать.(мне бы пример на radiobutton )

вот так!
http://yandex.ru/yandsearch?text=DegToRad&lr=213

[OmG killer]

все равно не понимаю.

[Alegun]

Сообщение от OmG killer

все равно не понимаю.

Код:

uses Math;
procedure TForm1.Button1Click(Sender: TObject);
begin
 if RadioButton1.Checked then
   Edit1.Text:= FloatToStr(GradToRad(30))
// Edit1.Text:=FloatToStr(DegToRad(30))
 else
// Edit1.Text:=FloatToStr(RadToDeg(0.523598775598299));
   Edit1.Text:= FloatToStr(RadToGrad(0.471238898038469));
 end;

[angvelem]

Я так понимаю, ранее даный ответ не устроил?

Код:

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0 : Edit1.Text := FloatToStr(RadToGrad(StrToFloatDef(Edit1.Text, 0)));
    1 : Edit1.Text := FloatToStr(GradToRad(StrToFloatDef(Edit1.Text, 0)));
  end;
end;

[OmG killer]

вроде как нет

[angvelem]

Ну давай, изобретай свой велосипед. Показать потом не забудь.

[M.A.D.M.A.N.]

Пожалуйста заполните форму "Нужен код".