Escribir un TEdit en un fichero

[Neftali [Germán.Estévez]]

Para Grabarlo:

Código Delphi [-]
var
  TS:TStringList;
begin
  // proteccion
  try
    TS := TStringList.Create();
    TS.Add(Edit1.Text);
    TS.SaveToFile('C:\temp\Edit_Guardado.txt');
  finally
    FreeAndNil(TS);
  end;

Para recuperarlo:

Código Delphi [-]
var
  TS:TStringList;
begin
  // proteccion
  try
    TS := TStringList.Create();
    TS.LoadFromFile('C:\temp\Edit_Guardado.txt');
    // Hay algo?
    if (TS[0] <> '') then begin
      Edit1.Text := TS[0];
    end;
  finally
    FreeAndNil(TS);
  end;

Es un ejemplo simple, pruébalo y adaptalo como necesites.
Te lo he puesto de memoria, así que el posible que haya algun error de sisntáxis; Ya dirás...


Un saludo.