Problemas con la clase TIniFile
Publicado por Gabriel (1 intervención) el 29/12/2004 01:18:45
Hola a todos,
El problema q tengo es que cuando intento guardar los cambios en un archivo .ini despues de ejecutar un openDialog me da un error, les comento:
la parte de codigo donde me da el error es la siguiente:
procedure TForm2.GuardaIni();
var
Ini:TIniFile;
begin
Ini := TIniFile.Create(ChangeFileExt('myIni', '.ini'));
try
Ini.WriteFloat('INACTIVIDAD', 'tiempo', tiempo.Value);
Ini.WriteString('INACTIVIDAD', 'unidad', unidad.Text);
Ini.WriteString('INACTIVIDAD', 'que', que.Text);
Ini.WriteFloat('INACTIVIDAD', 'cant', cant.Value);
finally
ini.Free;
end;
end;
todo funciona correctamente, llamo a GuardaIni y gurda los cambios correctamente. El problema se presenta cuando ejecuto un openDialog con el siguiente codigo:
procedure TForm2.Button2Click(Sender: TObject);
var
s:string;
begin
if OpenDialog1.Execute then
begin
s:=OpenDialog1.FileName;
JvListBox1.AddItem(s,JvListBox1);
end;
end;
es entonces que cuando llamo a GuardaIni y me da el siguiente error:
Project Myproject.exe raised exception class EIniFileException with message 'Unable to write to myIni.ini'. Process stoped. Use Step or Run to continue.
Podra alguien ayudarme??
Saludos a todos
Feliz navidad y año nuevo
Gabriel
El problema q tengo es que cuando intento guardar los cambios en un archivo .ini despues de ejecutar un openDialog me da un error, les comento:
la parte de codigo donde me da el error es la siguiente:
procedure TForm2.GuardaIni();
var
Ini:TIniFile;
begin
Ini := TIniFile.Create(ChangeFileExt('myIni', '.ini'));
try
Ini.WriteFloat('INACTIVIDAD', 'tiempo', tiempo.Value);
Ini.WriteString('INACTIVIDAD', 'unidad', unidad.Text);
Ini.WriteString('INACTIVIDAD', 'que', que.Text);
Ini.WriteFloat('INACTIVIDAD', 'cant', cant.Value);
finally
ini.Free;
end;
end;
todo funciona correctamente, llamo a GuardaIni y gurda los cambios correctamente. El problema se presenta cuando ejecuto un openDialog con el siguiente codigo:
procedure TForm2.Button2Click(Sender: TObject);
var
s:string;
begin
if OpenDialog1.Execute then
begin
s:=OpenDialog1.FileName;
JvListBox1.AddItem(s,JvListBox1);
end;
end;
es entonces que cuando llamo a GuardaIni y me da el siguiente error:
Project Myproject.exe raised exception class EIniFileException with message 'Unable to write to myIni.ini'. Process stoped. Use Step or Run to continue.
Podra alguien ayudarme??
Saludos a todos
Feliz navidad y año nuevo
Gabriel
Valora esta pregunta


0