Código Delphi [-] var sl : TStringList; begin sl := TStringList.Create; sl.Add('algo'); //llenamos sl.Add('algo1'); sl.Add('algo2'); sl.SaveToFile('C:\Fite.txt'); //grabamos sl.Free;
var sl : TStringList; begin sl := TStringList.Create; sl.Add('algo'); //llenamos sl.Add('algo1'); sl.Add('algo2'); sl.SaveToFile('C:\Fite.txt'); //grabamos sl.Free;