Question

delphi 如何将TStrings写入文本

delphi 如何将TStrings写入文本

Answer 1

楼上的错误，TStrings是个虚类，不能直接创建对象的
var
slst: TStrings;
begin
s := TStringList.Create; //TStringList是TStrings的子类
s.add('hello');
s.SaveToFile('c:\1.txt');
end;

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
var s:TStrings;
begin
s:=TStrings.Create;
s.Add('我是大好人');
s.SaveToFile(ExtractFilePath(ParamStr(0))+'my.txt');
end;

Answer 3

使用该对象的SaveToFile(FileName)方法
参数FileName是你要保存到的文本

加入有一个Tstrings类型的对象StrList
要保存到中
则保存的方法使StrList.SaveToFile("D:\Test.txt")。
由于TStrings不好直接构造对象我们通常借助TStringList来实现