Ajuda, erro no Delphi... [RESOLVIDO]

celso22
(usa Debian)

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

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;

afdominguez
(usa Ubuntu)

Enviado em 03/01/2009 - 17:16h

Colega falta um ponto e virgula (;) no final da linha de animação.

Try
Animate1.Visible :=True;
Animate1.Active :=True(*mais precisamente aqui*) //ativa animação

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

Ficando assim:

Try
Animate1.Visible :=True;
Animate1.Active :=True; //ativa animação

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

Acredito que o problema seja esse.
Se nao for, posta a mensagem de erro que o delphi gera.

celso22
(usa Debian)

Enviado em 04/01/2009 - 12:34h

valeu camarada pela dica, brigadão mesmo.