RADIOBUTTONы в группбоксе

[prog38]

Товарищи,помогите пожалуйста, какой цикл использовать, если у меня 3 radioButton'a в groupBox'e. Результат выводится на одну кнопкую Т.Е. пользователь выбирает радиобатон1 или 2 или 3 и результат выводится в button1. Перепробовала все циклы. Выдает ошибку что должен быть булев тип выражения...

if radioButton1.Checked:=true then
label3.Caption:='.......';

что делать?

[Старовъръ]

А зачем := при сравнении? Это знак присваивания, а не сравнения. Тогда уже или

if radioButton1.Checked then

или

if radioButton1.Checked = true then

И вобще, причем здесь циклы?

[puporev]

if radioButton1.Checked:=true then

if radioButton1.Checked это уже true, зачем еще раз? Просто
if radioButton1.Checked then
label3.Caption:='.......';

[prog38]

Я просто не знала что можно просто
if radioButton1.Checked then
написать, думала надо написать что именно первый радиобатон нажат через if radioButton1.Checked:=true;
Спасибо, просветили)))Работает)))))))))))) )

А циклы здесь при том, что у меня 3 радиобатона, а ответ выводится на одну и ту же кнопку воть))

[Старовъръ]

Я просто не знала что можно просто
if radioButton1.Checked then

Это стандартная ошибка всех начинающих. Ты должна проверить, является ли значение переменной true, а вместо этого ты присваеваешь ей это true. В результате этой операции ничего не возвращается, а if требует, чтоб после него стояло или true, или false.

[prog38]

Спасибо, что разъяснил)

[Stilet]

prog38

А чтоTRadioGroup уже не в моде?

[prog38]

Раздел для новичков все же...можно и поподробнее объяснить где у меня в программе смешное место ...

[Stilet]

Я не смеюсь ника просто задачу с условием типа:

Т.Е. пользователь выбирает радиобатон1 или 2 или 3 и результат выводится в button1.

Можно решить так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
RadioGroup1.Items.Add('Первый кнопка');
RadioGroup1.Items.Add('Другой кнопка');
RadioGroup1.Items.Add('Остальной кнопка');

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
//****** CASE ******
case RadioGroup1.ItemIndex of
 0 : Button1.Caption:='1';
 1 : Button1.Caption:='ну ну';
else Button1.Caption:='Хых';
end;
//****** END CASE ****** {}
end;

end.

[prog38]

Пасиб), так тоже попробую