Dicas Delphi - Manipulando arquivos 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.

Take care