Радиогруп

vetal10

вот дана лаба в которой с помощь кейс надо пребирать радио батоны и выполянять следущие действия,я нашол подобную тему сверился вроди все правильно.но результат у меня выводит всегда тока б=0,хоть какой бы я не выбрал радиобатон((где проблема?
procedure TForm1.Button3Click(Sender: TObject);
var
a,i,b:real;
begin
b:=0;
a:=strtofloat(edit2.Text);
i:=strtofloat(spinedit1.Text);
case radiogroup1.ItemIndex of
0:begin
b:=a+i
 
end;
1:begin
b:=a-i;
 
end;
2:begin
b:=a*i;
 
end;
3:begin
b:=a/i;
 
end;
 
end;
edit3.Text:=floattostr(b);
end;
4 ответа

vetal10

У компонента RadioGroup есть свойство Items, щёлкните по нему и перед Вами появится редактор строк. Введите туда нужные названия. Тогда и всё должно получиться. Вот что получилось у меня по вашему коду (вместо моих 0,1,2,3 поставьте в этом свойстве "+", "-", "*", "/").


vetal10

Здравствуйте а где находится SpinEdit1 или где его взять????????


vetal10

На вкладке Samples. У меня по крайней мере...


vetal10

Да есть спасибо!!!!!