Ver Mensaje Individual
  #2  
Antiguo 20-01-2006
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.289
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
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.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita