seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^

Você não está conectado. Conecte-se ou registre-se

 » Programação Desktop » Pascal / Delphi » [tutorial] arquivo ini

[tutorial] arquivo ini

Ir em baixo  Mensagem [Página 1 de 1]

1 [tutorial] arquivo ini em Sab Jan 12, 2013 5:05 am

Kodo no Kami

avatar
master
master
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


_________________ASSINATURA_________________
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

Contato:
Spoiler:

Contato:
Facebook: [Você precisa estar registrado e conectado para ver este link.]
Skype: hackerfts315
http://endoffile.umforum.net

Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum