Fórum Arquivo Ini #187704

104 - Como manipular arquivos INI
Inclua a unit IniFiles na clausula uses do seu form.

Procedure TForm1.GravaIni( Numero : Longint ; Texto : String ; Condicao : Boolean);
var
ArqIni : TIniFile;
begin
ArqIni := TIniFile.Create(´c:\windows\temp\Teste.Ini´);
Try
ArqIni.WriteInteger(´Dados´, ´Numero´, Numero);
ArqIni.WriteString(´Dados´, ´Texto´, Texto);
ArqIni.WriteBool(´Dados´, ´Condição´, Condicao);
Finally
ArqIni.Free;
end;
end;

Procedure TForm1.LeIni( Var Numero : Longint ; Var Texto : String ; Var Condicao : Boolean);
var
ArqIni : tIniFile;
begin
ArqIni := tIniFile.Create(´c:\windows\temp\Teste.Ini´);
Try
Numero := ArqIni.ReadInteger(´Dados´, ´Numero´, Numero );
Texto := ArqIni.ReadString(´Dados´, ´Texto´, Texto );
Condicao := ArqIni.ReadBool(´Dados´, ´Condição´, Condicao );
Finally
ArqIni.Free;
end;
end;

Utilize as procedures assim:


procedure TForm1.Button1Click(Sender: TObject);
begin
GravaIni(1234,´TESTE´,True);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
N: Integer;
T: String;
C: Boolean;
begin
LeIni(N,T,C);
Showmessage(IntToStr(N)+´ ´+T);
end;

122 - Como Manipular arquivos .INI 2
Os arquivos .INI são arquivos de texto que servem para guardar informações úteis de configuração, como a passagem de uma data de um programa para outro, o arquivo .INI tem o formato:

[SEÇÃO]

variável=valor

Para usar um arquivo .INI seguem os passos abaixo:

* acrescentar na Uses do projeto a bibliteca IniFiles

uses IniFiles;

* criar uma variável do tipo TIniFile

var
data:TIniFile;
* Criar o arquivo .INI

Data := TIniFile.Create(´Data.ini´);
Onde Data.ini é o nome do arquivo (você pode colocar inclusive o caminho do arquivo, o padrão é o diretório do Windows).

* Gravar a informação

Data.WriteString(´Mes/Ano´,´Data´,Edit1.Text);
Data.Free; //esta linha libera a variável da memória
Onde Mes/Ano é o nome da seção, Data é o nome da variável e Edit1.Text é a data digitada pelo usuário

* Ler a informação

Crie outra variável no outro programa apenas para ler a string

Data.TiniFile.Create(´Data.ini´);
Data.ReadString(´Mes/Ano´,´Data´,´´);
Data.Free;