[tutorial] arquivo ini

e ae galera nesse tutorial vou ensinar como manipular arquivos ini no delphi, esses arquivos ini na maioria das vezes sao usados para configuraçao de programas ou do sistema, ele tem uma estrutura assim

[seletor]
nome=valor

no seletor vc pode colocar qualquer nome (existe alguns especifico por exemplo AUTORUN q serve para iniciar alguns discos removivel), veja o exemplo do meu arquivo ini q eu vou usar para redimensionar o form depois

Código:

[conf]
altura=200
largura=330

quando salvar o arquivo ini salve com extensao .ini no meu caso foi fts.ini, para gente carregar arquivos ini temos q declarar em uses inifiles

Código:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, inifiles;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.


depois instanciamos a classe tinifile, para isso criamos uma variavel do tipo tinifile, depois atribuimos a variavel a classe (tinifile), usamos o metodo create e passamos como argumento o local onde ta o arquivo ini, no caso eu usei um botao

Código:

procedure TForm1.Button1Click(Sender: TObject);
var arq: TIniFile;
begin
  arq := TIniFile.Create('C:\Documents and Settings\Administrador\Desktop\fts.ini');
end;

agora agente pode usar o metodo ReadString e WriteString para ler e escrever no arquivo, no argumento agente passa o seletor depois o nome e constante (a constante e caso nao tenha ela q sera armazenada na variavel ou no caso do WriteString ela q sera salva no arquivo), tambem temos q atribuir ela a uma variavel do tipo string

Código:

procedure TForm1.Button1Click(Sender: TObject);
var arq: TIniFile;
    larg: string;
begin
  arq := TIniFile.Create('C:\Documents and Settings\Administrador\Desktop\fts.ini');
  larg := arq.ReadString('conf','largura','nao existe');
end;

outro exemplo com WriteString

Código:

procedure TForm1.Button1Click(Sender: TObject);
var arq: TIniFile;
begin
  arq := TIniFile.Create('C:\Documents and Settings\Administrador\Desktop\fts.ini');
  arq.WriteString('usuario','nome','hacker fts315');
end;

para terminar libereamos a instancia com free

Código:

procedure TForm1.Button1Click(Sender: TObject);
var arq: TIniFile;
begin
  arq := TIniFile.Create('C:\Documents and Settings\Administrador\Desktop\fts.ini');
  arq.WriteString('usuario','nome','hacker fts315');
  arq.Free;
end;

para redimensionar o form segue o exemplo abaixo ^^

Código:

procedure TForm1.Button1Click(Sender: TObject);
var arq: TIniFile;
    larg, altu: string;
begin
  arq := TIniFile.Create('C:\Documents and Settings\Administrador\Desktop\fts.ini');
  larg := arq.ReadString('conf','largura','nao existe');
  altu := arq.ReadString('conf','altura','nao existe');
  arq.Free;

  form1.Width := strtoint(larg);
  form1.Height :=  strtoint(altu);
end;

by hacker fts315