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