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
|