Pular para o conteúdo principal

Ler de um arquivo de configuração (.INI no Delphi)

Em muitos casos precisamos tornar nossas aplicações customizáveis, disponibilizando parâmetros que possam ser alterados, sejam eles informações a respeito de uma conexão com o banco de dados, uma senha, ou mesmo possibilitar a alteração do layout do sistema, tudo depende da necessidade e de como o programador pensa em termos de mobilidade para o usuário final.

Exemplo de arquivo INI

[PARAMETRO]
SENHA=12345


Lendo um arquivo INI

var
// variável que irá conter o arquivo
config : TIniFile;
// variável que irá armazenar parâmetro a ser lido do arquivo
param : string;

begin
// associa o arquivo de configuração a variável
config := TIniFile.Create('C:\Aplicacao\config.ini');
//variável param recebe 12345
param := config.readstring('PARAMETRO','SENHA','');

end;

Comentários

  1. Eduardo, saberia me falar como faço para alterar uma ini que não tem seção????
    Desde já agradeço.

    ResponderExcluir
  2. Olá Rawgleison Amaral!

    Um arquivo nesse formato não é encarado como "ini", para tal utilize o TStringList:

    with TStringList.Create do
    try
    LoadFromFile('C:\Aplicacao\config.ini');
    ShowMessage(Values['SENHA']);
    finally
    Free;
    end;

    ResponderExcluir
  3. Olá, no caso criei isso para logar com o banco de dados, sem ter nenhuma ferramenta, mas não funciona, alguém sabe me dizer porque?

    Config := TIniFile.Create(‘.\INI\banco.ini’);
    Config.WriteString(‘HELPTECH’, ‘Databasename’,’.\Banco de dados\BANCO.GDB’);
    Config.WriteString(‘HELPTECH’, ‘User_Name’, ‘SYSDBA’);
    Config.WriteString(‘HELPTECH’, ‘Password’, ‘masterkey’);

    Config.ReadString(‘HELPTECH’, ‘Databasename’,”);
    Config.ReadString(‘HELPTECH’, ‘User_Name’, ”);
    Config.ReadString(‘HELPTECH’, ‘Password’, ”);

    Config.Free;

    ResponderExcluir
    Respostas
    1. Olá Ricardo!

      O que exatamente esta acontecendo? Os valores não são recuperados corretamente?

      Excluir

Postar um comentário

Obrigado por Participar do programero, fique a vontade para agradecer, retificar, perguntar ou sugerir.

Mais visitadas

Listar arquivos existentes em diretório (Delphi)

Mostraremos uma maneira simples e prática para listar o conteúdo de um diretório com a opção de incluir nessa listagem os arquivos de seus subdiretórios. No exemplo abaixo temos um Edit para receber o diretório a ser pesquisado um CheckBox para indicar se os subdiretórios entrarão na pesquisa um botão para efetuar a pesquisa e um Memo para listar os arquivos encontrados, no final um Edit que receberá o cálculo final (em bytes) da soma do tamanho dos arquivos. procedure TForm1.Button1Click(Sender: TObject); begin   tamanhoTotal := 0;   memLista.Lines.Clear;   ListarArquivos(edtDiretorio.Text, chkSub.Checked);   Edit1.Text := IntToStr( tamanhoTotal ); end; procedure TForm1.ListarArquivos(Diretorio: string; Sub:Boolean); var   F: TSearchRec;   Ret: Integer;   TempNome: string; begin   Ret := FindFirst(Diretorio+'\*.*', faAnyFile, F);   try     while Ret = 0 do ...

Alterar cores do PageControl (Delphi)

O padrão Windows todo cinza não é muito atraente, por isso quando nos utilizarmos do PageControl podemos alterar suas cores e fontes da seguinte maneira: Em primeiro lugar devemos alterar a propriedade OwnerDraw para TRUE ; Depois implementar seu método DrawTab da seguinte maneira: //pinta a fonte Control.Canvas.Font.Color:=clBlack; // // pinta a paleta / aba Control.Canvas.brush.Color:=clSkyBlue; PageControl1.Canvas.Rectangle(Rect); Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption); // pinta a parte interna (tabsheet) PageControl1.Pages[TabIndex].brush.Color := Control.Canvas.brush.Color; PageControl1.Pages[TabIndex].Repaint; Caso a intenção seja manter cada aba com seu próprio estilo basta adicionar um CASE filtrando o índice das abas: case TabIndex of   0: Control.Canvas.Font.Color:=clBlack;   1: Control.Canvas.Font.Color:=clWindow; ...

Como Verificar se um Objeto Existe (Delphi)

Em alguns momentos surge a necessidade de verificar se um determinado objeto existe, ou seja se já foi criado, principalmente quando se trabalha com criação dinâmica em tempo de execução, então vamos ao exemplo: - Vamos criar uma variável, um vetor do tipo caixa de texto: var Minha_caixa : array of TEdit; - Em seguida definir o tamanho desse vetor, no caso será dez: setLength(Minha_caixa, 10) - Agora iremos criar nossa caixa de texto: // lembrando que o vetor inicia em zero // logo o índice final é o tamanho total - 1 for vl_i := 0 to Length(Minha_caixa) -1 do begin Minha_caixa[vl_i] := TEdit.Create(self); with Minha_caixa[vl_i] do begin Parent := Self; Name := 'Caixa_N'+IntToStr(vl_i); Text := 'Esta é a '+IntToStr(vl_i)+' º caixa !'; ReadOnly := true; Height := 21; Width := ...