Guardar el valor de un EDIT en un fichero de texto

[creus]

Hola a todos,

Necesito guardar el valor de un EDIT en un archivo de texto.

De la misma manera que si quisieramos guardar el valor de un LISTBOX pondríamos el siguiente código,


LISTBOX.Items.SaveToFile ('NombreArchivo'+'.extension');


Necesito guardar el valor de un Edit, pero no tiene la propiedad SaveToFile.

Gracias por la ayuda de nuevo.

[dec]

Hola,


var
t: TStrings;
begin
t := TStringList.Create;
try
t.Text = Edit1.Text;
t.SaveToFile('C:\edit1.txt');
finally
t.Free;
end;
end;

[roman]

Otra forma:


var
Archivo: TextFile;

begin
AssignFile(Archivo, 'archivo.txt');
Rewrite(Archivo);
WriteLn(Archivo, Edit1.Text);
CloseFile(Archivo);
end;


// Saludos