Ver Mensaje Individual
  #6  
Antiguo 08-02-2005
bytecero bytecero is offline
Registrado
 
Registrado: feb 2005
Posts: 6
Reputación: 0
bytecero Va por buen camino
Question TIniFile no me funciona y no tiene sentido

//Tengo el siguiente codigo
//Regi := TIniFile.Create('Genpres.ini');
//ia00.Value := Regi.ReadFloat(Seccio,'IA00',16);
//Regi.Free;
//Siendo Regi del Tipo TInifile.
//Pues bueno, fisicamente no me crea el archivo Genpres.ini, no lo entiendo.
//Utilizo delphi 6 con windows xp home.
//Muchas gracias.



antes que nada tenes que agregar el inifiles dentro del uses:

Uses
inifiles;


luego proba con este codigo, yo lo probe en delphi 7 sin problemas:

procedure TForm1.Button1Click(Sender: TObject);
var
regi : TINIFile;
ia00:real;
begin
ia00:= 3.1415;
regi := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'Genpres.ini');
regi.Writefloat('General', 'floatdata', ia00 );
regi.Free;
end;

el problema creo que esta en que no pusiste:
(ExtractFilePath(Application.EXEName) + 'Genpres.ini'); despues del
regi := TINIFile.Create

recorda que esto genera el archivo .ini dentro de la carpeta en la que estas guardando el proyecto, espero que te sirva

saludos

Responder Con Cita