Arquivo INI com Delphi

Dicas Delphi

Arquivos Ini com Delphi

Exemplo simples de como usar arquivos INI no Delphi.

Para iniciarmos, declare na uses do seu form/unit a classe “INIFiles”.


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

Em seguida declaramos uma variável do tipo TIniFile. Ela pode ser local ou global dependendo de como você for usar.

var
 arq: TIniFile;

Instaciamos a nossa variável com o metódo Create:

arq := TIniFile.Create(ExtractFilePath(Application.exeName) + 'meu.ini');

No metódo Create da Classe TIniFile, é passado como parametro o nome do arquivo que será criado. Vale ressaltar que gravar um arquivo INI dentro de um diretório do Windows, pode ser uma dor de cabeça. Portanto, veja bem onde está salvando um arquivo INI.
No exemplo acima, passei o diretório do meu executável.

Em seguida gravamos alguns valores dentro do arquivo. A classe TINIFile nos permite gravar vários tipos de dados como inteiros, strings, decimais, binarios.
Os metódos para gravação de dados são precedidos da palavra “Write”, e para leitura, “Read”. Abaixo um exemplo de gravação de um inteiro e de uma string:


arq.WriteInteger('Config', 'meu_inteiro', 123);
arq.WriteString('Config', 'minha_string', 'simasWare.wordpress.com');

Neste metódo são passados três parametros, onde o primeiro vai ser a seção (“Config”), em seguida o identificador e por último o valor do mesmo.

Para que estes valores fiquem gravados no arquivo, ao terminar de fazer as alterações, utilize o metódo “UpdateFile”.


arq.UpdateFile;

E por fim, um exemplo de como ler os dados do arquivo:


Edit1.text := arq.ReadString('Config', 'minha_string', '');

A sintaxe é a mesma do “WriteString”, a diferença é que no último parametro, se passa um valor default para caso o identificador não seja encontrado no arquivo INI carregado.

Anúncios

Data e Hora em C / C++

Exemplo de como retornar data e hora em C/C++

#include <stdio.h>
#include <stdlib.h>
#include <time.h>

int main()
{
 time_t rawtime;
 struct tm * timeinfo;

 time ( &rawtime );
 timeinfo = localtime ( &rawtime );
 printf ( "Current local time and date: %s", asctime (timeinfo) );

 return 0;
}

Tabsheet dinâmica no Delphi

Criando tabs dinamicamente no Delphi

Esta é uma dica muito útil caso você queira criar tabs dinamicamentes no Page Control para usar como por exemplo em um editor de textos.

Continuar lendo