Ajuda, erro ao copilar no Delphi... [RESOLVIDO]

celso22
(usa Debian)

Enviado em 30/12/2008 - 23:17h

Sou iniciante em delphi e preciso de uma ajuda de vcs.
está dando um erro nesta linha:

if RadioGroup1.ItemIndex =0 then

Gostaria de saber o porque



procedure TfrmBkpRest.SpeedButton1Click(Sender: TObject);
begin
if MessageDlg('Antes de confirmar essa operação, feche o banco de dados.'+
#13+#13+'Deseja efetuar'+
RadioGroup1.Items[RadioGroup1.ItemIndex]+'?',mtConfirmation,
[mbYes,mbNo],0)=mrNo then
Abort;
Try
Animate1.Visible :=True;
Animate1.Active :=True //ativa animação

o erro é aqui >>> if RadioGroup1.ItemIndex =0 then

begin
FrmTprincipal.Compactar,
Copia(ExtractFilePath(Application.ExeName)+'\Banco.mdb',
DirectoryListBox1.Directory);
end;
if RadioGroup1.ItemIndex =1 then // se a segunda opção do RadioGroup1 for escolida?
begin
dm.BASE_DADOS.Connected :=False; // Desconecta o banco de dados
end;

finally

end;

end;

gibroh@hotmail.c
(usa Lubuntu)

Enviado em 31/12/2008 - 15:42h

tenta assim:
//opção de checagem do primeiro item
if radiogroup1.items[0].checked then
begin
//faça isso
end;

celso22
(usa Debian)

Enviado em 01/01/2009 - 12:49h

Valeu pela força.
Feliz 2009 pra você e toda familia.