Cita:
Empezado por malditango
en tu code no veo como accedas al fichero, ni leCadINI ni esEntINI
with tinifile.create (changefileext(paramstr(0),'.INI')) do // aqui crea el archivo pero no se en que ubicacion
|
La función que uso en la Consola es este:
Código:
function leCadINI (clave, cadena : string; defecto : string) : string;
begin
with TiniFile.Create ('c:\Fichero.ini') do
try
result := readString (clave, cadena, defecto);
finally
free;
end;
end;
Y en el form utilizo la siguiente función:
Código:
//Lee una cadena de texto de un INI
function leCadINI (clave, cadena : string; defecto : string) : string;
begin
with TiniFile.Create ('c:\Fichero.ini') do
try
result := readString (clave, cadena, defecto);
finally
free;
end;
end;
//Escribe un entero en un INI
procedure esEntINI (clave, cadena : string; valor : integer);
begin
with TiniFile.Create ('c:\Fichero.ini') do
try
writeInteger (clave, cadena, valor);
finally
free;
end;
end;
Espero de su ayuda, Gracias.