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 ...

Funções de Data e Hora (Delphi)

É muito comum nos depararmos no dia a dia com a necessidade de manipular datas e horas, seja para um calculo de permanência, dias de atraso enfim, é praticamente escapar de alguma situação que necessite desse tipo de controle. Assim como a necessidade e se utilizar algum recurso para manipular as datas e horas de alguma maneira e freqüente, as duvidas de como o faze-lo também é, basta um breve olhar em qualquer fórum especializado e lá está, alguma duvida relacionada, por isso decidi falar um pouco sobre uma unit muito poderosa chamada DateUtils para a manipulação de data e hora, com um grande numero de métodos e classes que facilitam a vida de qualquer um. Alguns exemplos: CompareDate(constA, B: TDateTime): TValueRelationship; Compara apenas a data de dois valores (do tipo TDateTime) retornando: LessThanValue O primeiro valor é menor que o segundo EqualsValue Os valores são iguais GreaterThanValue O primeiro valor é maior que o segundo CompareDateTime(const A, B: TD...