28/03/2010


Os arquivos .INI são uma boa maneira de se salvar as configuração de uma aplicação para que quando tal aplicação for executada novamente estas configurações sejam restauradas. Esses arquivos vêem sendo bastante utilizados desde as versões mais antigas do Windows, embora nas últimas versões a Microsoft tenha estimulado o uso do Registro do Windows.


São arquivos de texto comum, que podem ser visualizados e editados em qualquer editor de texto, inclusive o Bloco de Notas do Windows.


Gravar o arquivo INI:
{ Declare em uses IniFiles }
procedure GravaIni(aTexto: string);
var
  ArqIni: TIniFile;
begin
  ArqIni := TIniFile.Create('c:\Arquivo.ini');
  try
    ArqIni.WriteString('Chave', 'Item', aTexto);
  finally
    ArqIni.Free;
  end;
end;
 Ler o arquivo INI:
procedure LeIni(var aTexto: string);
var
  ArqIni: TIniFile;
begin
  ArqIni := TIniFile.Create('c:\Arquivo.ini');
  try
    aTexto := ArqIni.ReadString('Chave', 'Item', aTexto);
  finally
    ArqIni.Free;
  end;
end;

1 comentários:

Anônimo disse...

Eu to com um esse erro voce pode mim ajuda?

Com esse Erro:
var
ArqIni: TIniFile;
begin
ArqIni := TIniFile.Create('c:\Arquivo.ini');
try
aTexto := ArqIni.ReadString('Chave', 'Item', aTexto); esse erro aki aTexto
finally
ArqIni.Free;
end;
end;

Postar um comentário