Delphi, erro ao compilar. [RESOLVIDO]

celso22
(usa Debian)

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

Está dando erro nesta linha:
Copia(ExtractFilePath(Application.ExeName)+'\DADOS.mdb',



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

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

if RadioGroup1.ItemIndex=0 then

begin

frmCompactar.Button1Click
erro aqui >>>> Copia(ExtractFilePath(Application.ExeName)+'\DADOS.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 05/01/2009 - 13:16h

você escreveu:
"Está dando erro nesta linha:Copia(ExtractFilePath(Application.ExeName)+'\DADOS.mdb',"
maso o certo é:
arq:=(extractfilepath(application.exename)+'dados.mdb');//sem"\" pois normalmente é pegado
//cuidado com os "ponto e virgula"e fecha os parenteses !