Escribir un TEdit en un fichero

[noipa]

hola!
¿como hago para, al escribir algo en un TEdit, me lo guarde en un fichero?¿Y para recuperarlo despues?gracias

[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.

[noipa]

a q te refieres al poner try and finally??
No se si es un bucle o a q t puedes referir. muchas gracias

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

(1) Revisa la ayuda de Delphi o manuales; Try..finally te ayuda a capturar posibles errores que puedan producirse en la ejecución.

En éste caso los try..finally están puestos para que si se produce un error al leer/grabar el fichero de texto se libere la memoria creada y no se pierda.

(2) Al comentar esto, me he dado cuenta de que en ambos casos he cometido un "error de bulto". En ambos casos debes poner la línea:

Código Delphi [-]
TS := TStringList.Create();

antes del try.

[noipa]

vale! muchas gracias! va perfecto