RadioButton(Delphi)

[2009]

Как сделать так чтоб этот код заработал??

Var m:integer; n:string;
begin
if RadioButton1.Checked then
m:=SpinEdit1.Value+SpinEdit2.Value;
n:=IntToStr(m);
Label1.Caption:=n;
end;

[Sm1Le]

А что собственно надо то ... Нормальным языком .... и чем SpinEdit от Edit'a отличается ? =)

[mihali4]

Сообщение от 2009

Как сделать так чтоб этот код заработал??

Чуток подправить:

Var m:integer; n:string;
begin
if RadioButton1.Checked then
begin
m:=SpinEdit1.Value+SpinEdit2.Value;
n:=IntToStr(m);
Label1.Caption:=n;
end;
end;

[2009]

Сори, опечатался при наборе там мне нужно не (+) а (/)

с + работает, а с / нет

Вот так:

Var m:integer; n:string;
begin
if RadioButton1.Checked then
m:=SpinEdit1.Value/SpinEdit2.Value;
n:=IntToStr(m);
Label1.Caption:=n;
end;

[Лунатик222]

если SpinEdit это тоже самое что Edit то тебе сначало нужно преобразовать строковую переменную в int. и потом уже делить... по моему так... и еще, как у тебя "+" работает? складывает две строки в одну?

[Sm1Le]

Поменяй тип M на Real. ( Результат деления не Integer, а Real должен быть, помойму так )

[DomiNick]

Лунатик222, Это не строки...
SpinEdit1.Value - это число типа Integer...

[Лунатик222]

Сообщение от DomiNick

Лунатик222, Это не строки...
SpinEdit1.Value - это число типа Integer...

) плохой из меня программист)
PS текст ошибки лучше покажи..

[DomiNick]

Я бы так сделал:

Procedure ... ;
Begin
If RadioButton1.Checked Then
	If SpinEdit2.Value<>0 Then
		Label1.Caption:=FloatToStr(SpinEdit1.Value/SpinEdit2.Value)
	Else
		Label1.Caption:='Деление на ноль';
End;

И ещё бы использовал вместо "ТRadioButton" "ТCheckBox"...

[2009]

Всем спасибо, разобрался!