Arquivo ini com paradox...

Delphi

31/10/2005

Olá...

Alguem ja trabalho ou trabalha utilizando um arquivo ini para dar o caminho das tabelas em rede...

valeu,

fabio cavalcanti


Cavalcanti.fabio

Cavalcanti.fabio

Curtidas 0

Respostas

Njuniorba

Njuniorba

31/10/2005

uses IniFiles;

// cria o arquivo ini


if not (FileExists(ExtractFilePath(Application.ExeName) + ´\Arquivo.ini´))  then
 begin
  with TIniFile.Create(ExtractFilePath(Application.ExeName)+´\´+´Servidor.ini´)  do
  try
   WriteString(´Servidor´, ´Local´, FileExists(ExtractFilePath(Application.ExeName)+ ´\dados´);
  finally
   Free;
  end;



// ler o arquivo ini

var
 arq: string;
with TIniFile.Create(FileExists(ExtractFilePath(Application.ExeName) + ´\Arquivo.ini´) do
 try
  arq:= ReadString(´Servidor´, ´Local´, ´´);
 finally
  Free;
end;


depois é so vincular a Query1 (caso vc use):

Query1.Databasename:= arq;
Query1.Open;

n testei, mas veja ai heheh

fuiz


GOSTEI 0
POSTAR