Hola,
A ver si el siguiente código fuente puede echarte una mano o te da al menos alguna idea:
Código Delphi
[-]
unit UfrmPrincipal;
interface
uses
Forms, StdCtrls,
Classes, Controls;
type
TfrmPrincipal = class(TForm)
edNombre: TEdit;
lbNombre: TLabel;
edApellidos: TEdit;
lbApellidos: TLabel;
btnGuardar: TButton;
btnRecuperar: TButton;
procedure btnGuardarClick(Sender: TObject);
procedure btnRecuperarClick(Sender: TObject);
end;
var
frmPrincipal: TfrmPrincipal;
implementation
{$R *.dfm}
uses
IniFiles, Dialogs, SysUtils;
procedure TfrmPrincipal.btnGuardarClick(Sender: TObject);
var
ini: TIniFile;
dlg: TSaveDialog;
begin
dlg := TSaveDialog.Create(Self);
dlg.DefaultExt := 'ini';
dlg.FileName := 'archivo.ini';
dlg.Filter := 'Archivos INI (.ini)|*.ini';
dlg.Options := [ofOverwritePrompt];
try
if dlg.Execute then
begin
ini := TIniFile.Create(dlg.FileName);
try
ini.WriteString('Usuario', 'Nombre', edNombre.Text);
ini.WriteString('Usuario', 'Apellidos', edApellidos.Text);
finally
ini.Free;
end;
end;
finally
dlg.Free;
end;
end;
procedure TfrmPrincipal.btnRecuperarClick(Sender: TObject);
var
ini: TIniFile;
dlg: TOpenDialog;
begin
dlg := TOpenDialog.Create(Self);
dlg.DefaultExt := 'ini';
dlg.FileName := 'archivo.ini';
dlg.Filter := 'Archivos INI (.ini)|*.ini';
dlg.Options := [ofFileMustExist];
try
if dlg.Execute then
begin
ini := TIniFile.Create(dlg.FileName);
try
edNombre.Text := ini.ReadString('Usuario', 'Nombre', '');
edApellidos.Text := ini.ReadString('Usuario', 'Apellidos', '');
finally
ini.Free;
end;
end;
finally
dlg.Free;
end;
end;
end.
Adjunto el ejemplo de manera que puedas probarlo tú mismo.