Manipulando arquivos INI

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (6)  (0)

Veja nesta dica, como gravar e ler dados de um arquivo INI.

 

Se você precisa salvar ou obter dados de um arquivo INI, utilize as seguintes rotinas:

 

{ Declare em uses IniFiles }

procedure GravaIni(aTexto: string);

var

  ArqIni: TIniFile;

begin

  ArqIni := TIniFile.Create('c:\Arquivo.ini');

  try

    ArqIni.WriteString('Dados', 'Texto', aTexto);

  finally

    ArqIni.Free;

  end;

end;

 

procedure LeIni(var aTexto: string);

var

  ArqIni: TIniFile;

begin

  ArqIni := TIniFile.Create('c:\Arquivo.ini');

  try

    aTexto := ArqIni.ReadString('Dados', 'Texto', aTexto);

  finally

    ArqIni.Free;

  end;

end;

 

Para gravar e ler, utilize o seguinte código:

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  GravaIni('ClubeDelphi');

end;

 

procedure TForm1.Button2Click(Sender: TObject);

var

  aTexto: string;

begin

  LeIni(aTexto);

  ShowMessage(aTexto);

end;

Entendendo o código

WriteString grava em um arquivo INI, os dados passados como parâmetro, onde Dados é o nome da seção do arquivo INI (valor que fica entre colchetes []), Texto é a variável do arquivo e o parâmetro aTexto é o valor que será salvo no arquivo.

Se o arquivo (Arquivo.ini) não existir, ele será criado automaticamente. Para carregar os dados do arquivo INI, a técnica é praticamente a mesma. Se desejar armazenar/ler outros tipos de dados como Boolean e integer, por exemplo, basta alterar os métodos para WriteBool, WriteInteger, ReadInteger e ReadBool, respectivamente.

 

Luciano Pimenta®

Editor do Portal ClubeDelphi.Net

webeditor@clubedelphi.net

www.clubedelphi.net

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?