Ver Mensaje Individual
  #4  
Antiguo 12-03-2018
Dark_Code Dark_Code is offline
Miembro
NULL
 
Registrado: ene 2018
Posts: 11
Reputación: 0
Dark_Code Va por buen camino
Cita:
Empezado por malditango Ver Mensaje
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.
Responder Con Cita