Hola noipa!
A lo mejor algo así ya te servirá:
Código Delphi
[-]
procedure Guardar(NombreFichero : string);
var
FicheroIni : TMemIniFile;
i : Integer;
Componente : TComponent;
begin
FicheroIni:= TMemIniFile.Create(NombreFichero);
try
for i := 0 to (ComponentCount - 1) do begin
begin
Componente := Components[i]; FicheroIni.WriteString(...);
end;
FicheroIni.UpdateFile;
finally
FicheroIni.Free;
end;
end;
procedure Recuperar(NombreFichero : string);
var
FicheroIni : TMemIniFile;
Lista : TStringList;
Componente : TComponent;
i : Integer;
begin
FicheroIni := TMemIniFile.Create(NombreFichero);
try
Lista := TStringList.Create;
try
FicheroIni.ReadSections(Lista); for index := 0 to ListaItems.Count - 1 do
begin
FicheroIni.ReadString(...);
FicheroIni.ReadInteger(...):
end;
finally
if Assigned(Lista) then FreeAndNil(Lista);
end;
for i := 0 to (ComponentCount - 1) do
begin
Componente := Components[i]; end;
finally
FicheroIni.Free;
end;
end;
suerte!
pd: el código es una pauta no una plantilla, habrá que currarselo un poco, lo siento ;P
pd: si no has trabajado nunca con componentes alomejor podría especificar un poco más, tu dirás