Erro EAccessViolation

[luizf]

Mais problemas...

Parece que a cada problema resolvido, surge outro(s) no lugar.

Meu problema agora é com esta mensagem:

Tá acontecendo o seguinte:

Estou fazendo um determinado aplicativo, para carregar no pendrive, para isso estou usando arquivo.xml para salvar o banco de dados, onde fica arquivo.xml, fica em uma pasta chamada Dados, que esta no diretorio do arquivo.exe, seria:

Ex.

X:\NoNoNo\Arquivo.exe

X:\NoNoNo\Dados\Arquivo.xml

Até ae tudo bem, funcionou belezinha, para reconhecer onde esta o Arquivo.xml, fiz assim:

procedure TDataModule1.DataModuleCreate(Sender: TObject);
 var
   Path: String;
 begin
   Path:= ExtractFilePath(Application.ExeName);
   ClientDataSet1.FileName:= Path + 'Dados\Arquivo.xml';
   ClientDataSet1.Active:= True;
 end;

Sem problemas, mas acontece que preciso de um outro xml, que seria Arquivo2.xml. Então fiz

procedure TDataModule1.DataModuleCreate(Sender: TObject);
   var
     Path: String;
   begin
     Path:= ExtractFilePath(Application.ExeName);

     ClientDataSet1.FileName:= Path + 'Dados\Arquivo.xml';
     ClientDataSet1.Active:= True;

  ClientDataSet2.FileName:= Path + 'Dados\Arquivo2.xml';
       ClientDataSet2.Active:= True;
   end;

Daí o tal erro.

Desabilitando, assim:

// ClientDataSet2.FileName:= Path + 'Dados\Arquivo2.xml';

Roda normal.

Será possivel alguma ajuda. Obrigado

.

[Jhonas]

Voce esta usando um DataModule, neste caso se o ClientDataSet2 não estiver apontado para o mesmo banco de dados, ocorre o erro de EAccessViolation.

se forem arquivos independentes, então não use o DataModule

abraço