(Resolvido) Fazer Consulta em Arquivo ini com Codição

[robinhocne]

Estou com o seguinte problema...

Em um arquivo Bancos.ini, eu armazeno os codigos das empresas e nomes do banco de dados de cada empresa, dessa maneira.

01 - IzaCfc.gdb

02 - IzaCfc - Fera.gdb

03 - IzaCfcEducativa.gdb

05 - IzaCfcBrasil.gdb

07 - IzaCfcBrasil - II.gdb

o meu sistema sempre vai acessar um banco default da empresa.

o que eu preciso é que quando eu acesso a empresa que dai ele vai acessar o banco

que tem todas as informações, mas para acessar eu vou ter que ir no arquivo Bancos.ini e verificar o nome do banco de dados da empresa para fazer a conexão do banco, então se por exemplo eu acesso a empresa 05, e ai como eu passo no arquivos verificando linha por linha o codigo da empresa para poder pegar o nome do banco de dados e conectar ?

Editado Janeiro 20, 2009 por robinhocne

[Jhonas]

o que eu preciso é que quando eu acesso a empresa que dai ele vai acessar o banco

que tem todas as informações, mas para acessar eu vou ter que ir no arquivo Bancos.ini e verificar o nome do banco de dados da empresa para fazer a conexão do banco, então se por exemplo eu acesso a empresa 05, e ai como eu passo no arquivos verificando linha por linha o codigo da empresa para poder pegar o nome do banco de dados e conectar ?

conteudo do arquivo BANCOS.INI

01 - IzaCfc.gdb

02 - IzaCfc - Fera.gdb

03 - IzaCfcEducativa.gdb

05 - IzaCfcBrasil.gdb

07 - IzaCfcBrasil - II.gdb

Primeiro voce tem que ler o arquivo passando o numero do banco que quer abrir

Este exemplo voce deve modificar para o seu uso

procedure TForm1.Button1Click(Sender: TObject);
var
   num, codbanco : integer;
   Arquivo: TextFile; Line, caminho : string;
begin
   codbanco := strtoint(Edit1.Text); // passar o numero do banco de dados
   AssignFile(Arquivo, 'C:\BANCOS.INI');
   Reset(Arquivo);
   while not EOF(Arquivo) do
      begin
        ReadLn(Arquivo, Line);
        num := strtoint(copy(line,1,2));
        if num = codbanco then
           begin
              case num of
               1 : caminho := copy(Line,pos('-',line)+1,20);
               2 : caminho := copy(Line,pos('-',line)+1,20);
               3 : caminho := copy(Line,pos('-',line)+1,20);
               5 : caminho := copy(Line,pos('-',line)+1,20);
               7 : caminho := copy(Line,pos('-',line)+1,20);
              end;
           end;

      end;
   showmessage('Banco de Dados = '+ 'c:\'+ caminho);
   CloseFile(Arquivo);

end;

Uma vez que voce tem o nome do banco de dados que vai utilizar ( caminho ) , basta passar para a propriedade DataBaseName do componente antes de ativá-lo.

abraço

[robinhocne]

o que eu preciso é que quando eu acesso a empresa que dai ele vai acessar o banco

que tem todas as informações, mas para acessar eu vou ter que ir no arquivo Bancos.ini e verificar o nome do banco de dados da empresa para fazer a conexão do banco, então se por exemplo eu acesso a empresa 05, e ai como eu passo no arquivos verificando linha por linha o codigo da empresa para poder pegar o nome do banco de dados e conectar ?

conteudo do arquivo BANCOS.INI

01 - IzaCfc.gdb

02 - IzaCfc - Fera.gdb

03 - IzaCfcEducativa.gdb

05 - IzaCfcBrasil.gdb

07 - IzaCfcBrasil - II.gdb

Primeiro voce tem que ler o arquivo passando o numero do banco que quer abrir

Este exemplo voce deve modificar para o seu uso

procedure TForm1.Button1Click(Sender: TObject);
var
   num, codbanco : integer;
   Arquivo: TextFile; Line, caminho : string;
begin
   codbanco := strtoint(Edit1.Text); // passar o numero do banco de dados
   AssignFile(Arquivo, 'C:\BANCOS.INI');
   Reset(Arquivo);
   while not EOF(Arquivo) do
      begin
        ReadLn(Arquivo, Line);
        num := strtoint(copy(line,1,2));
        if num = codbanco then
           begin
              case num of
               1 : caminho := copy(Line,pos('-',line)+1,20);
               2 : caminho := copy(Line,pos('-',line)+1,20);
               3 : caminho := copy(Line,pos('-',line)+1,20);
               5 : caminho := copy(Line,pos('-',line)+1,20);
               7 : caminho := copy(Line,pos('-',line)+1,20);
              end;
           end;

      end;
   showmessage('Banco de Dados = '+ 'c:\'+ caminho);
   CloseFile(Arquivo);

end;

Uma vez que voce tem o nome do banco de dados que vai utilizar ( caminho ) , basta passar para a propriedade DataBaseName do componente antes de ativá-lo.

abraço

Ok, Certinho, muito obrigado.

Resolvido