Archivo config.ini en Lazarus


Uso config.ini en Lazarus.

lazarus

Veamos la configuración del fichero config.ini para la carga de los datos iniciales  de la aplicación realizada en lazarus.
fichero config.ini

1
2
3
4
5
6
7
[Configuracion]
Usuario=SYSDBA
Clave=masterkey
Servidor=localhost
BasedeDatos=F:\Lazarus\Cuadre\CUADRE.FDB
Libreria=F:\Lazarus\Cuadre\fbclient.dll
RutaConta=F:\Lazarus\Cuadre\dbf\
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
ini: TINIFile;
begin
try
ini := TINIFile.Create('config.ini');
ZConnection1.User:=ini.ReadString ('Configuracion', 'Usuario', '');
ZConnection1.Password:=ini.ReadString ('Configuracion', 'Clave', '');
ZConnection1.HostName:=ini.ReadString ('Configuracion', 'Servidor', '');
ZConnection1.Database:=ini.ReadString ('Configuracion', 'BasedeDatos', '');
ZConnection1.LibraryLocation:=ini.ReadString ('Configuracion', 'Libreria', '');
Dbf1.FilePathFull:=ini.ReadString ('Configuracion', 'RutaConta', '');
ini.free;
except
showmessage('Error al conectar la base de datos');
end;

Fuerza y honor.