Código Delphi [-] var TS:TStringList; AFileName:String; begin // Rellenar el nombre del fichero AFilename := '{userdesktop}\prueba.txt'; // Cargar el contenido TS := TStringList.Create; TS.LoadFromFile(AFileName); // Añadir una linea TS.Add('String: "sina"'); // Volver a Grabarlo TS.SaveToFile(AFileName); End .
var TS:TStringList; AFileName:String; begin // Rellenar el nombre del fichero AFilename := '{userdesktop}\prueba.txt'; // Cargar el contenido TS := TStringList.Create; TS.LoadFromFile(AFileName); // Añadir una linea TS.Add('String: "sina"'); // Volver a Grabarlo TS.SaveToFile(AFileName); End .