Lenguaje de programación Borland Delphi
Varias funciones para leer y escribir diferentes tipos de datos en ficheros INI, en todos los casos se escribirá y leerá en el fichero que tiene el mismo nombre que el ejecutable de la aplicación y la extensión .ini, esto se obtiene con las funciónes "changefileext(paramstr(0),'.INI')". En el Uses de la unidad donde utilicemos estas funciones se deberá hacer referencia a las unidades: IniFiles, SysUtils, System:
//Lee un booleano de un INI
function leBoolINI (clave, cadena : string; defecto : boolean) : boolean;
begin
with tinifile.create (changefileext(paramstr(0),'.INI')) do
try
result := readbool (clave, cadena, defecto);
finally
free;
end;
end;
//Lee un entero de un INI
function leEntINI (clave, cadena : string; defecto : integer) : integer;
begin
with tinifile.create (changefileext(paramstr(0),'.INI')) do
try
result := readInteger (clave, cadena, defecto);
finally
free;
end;
end;
//Lee una cadena de texto de un INI
function leCadINI (clave, cadena : string; defecto : string) : string;
begin
with tinifile.create (changefileext(paramstr(0),'.INI')) do
try
result := readString (clave, cadena, defecto);
finally
free;
end;
end;
//lee una fecha de un INI
function leFechaINI (clave, cadena : string; defecto : tdatetime) : tdatetime;
begin
with tinifile.create (changefileext(paramstr(0),'.INI')) do
try
result := ReadDate (clave, cadena, defecto);
finally
free;
end;
end;
//lee un valor numérico de un INI
function leFloatINI (clave, cadena : string; defecto : double) : double;
begin
with tinifile.create (changefileext(paramstr(0),'.INI')) do
try
result := readfloat (clave, cadena, defecto);
finally
free;
end;
end;
//escribe un Booleano en un INI
procedure esBoolINI (clave, cadena : string; valor : boolean);
begin
with tinifile.create (changefileext(paramstr(0),'.INI')) do
try
writeBool (clave, cadena, valor);
finally
free;
end;
end;
//Escribe un entero en un INI
procedure esEntINI (clave, cadena : string; valor : integer);
begin
with tinifile.create (changefileext(paramstr(0),'.INI')) do
try
writeInteger (clave, cadena, valor);
finally
free;
end;
end;
//escribe una cadena de texto en un INI
procedure esCadINI (clave, cadena, valor : string);
begin
with tinifile.create (changefileext(paramstr(0),'.INI')) do
try
writeString (clave, cadena, valor);
finally
free;
end;
end;
//escribe un número en un INI
procedure esFloatINI (clave, cadena : string; valor : double);
begin
with tinifile.create (changefileext(paramstr(0),'.INI')) do
try
WriteFloat (clave, cadena, valor);
finally
free;
end;
end;
//escribe una fecha en un INI
procedure esFechaINI (clave, cadena : string; defecto : tdatetime);
begin
with tinifile.create (changefileext(paramstr(0),'.INI')) do
try
WriteDate (clave, cadena, defecto);
finally
free;
end;
end;
Publicado el: 2004-06-01