Question

delphi写入文本文档问题

用这段代码将执行结果写入了文档中
var
strLst:TStringList;
begin
strLst := TStringList.Create;
repeat
{循环体}
strLst.Add(danzi);
until
strLst.SaveToFile(ExtractFilePath(Application.ExeName) + '\Random.txt');
strLst.Free;
end;
现在文本中是这种格式：
在
为
这
一
的
而
我

我想要这种格式：在为这一的而我
应该怎么改呢？

Answer 1

var
var temp:String; //新申明一个临时变量
strLst:TStringList;
begin
strLst := TStringList.Create;
temp:="";
repeat
{循环体}
temp:=temp+danzi;
until
strLst.add(temp);
strLst.SaveToFile(ExtractFilePath(Application.ExeName) + '\Random.txt');
strLst.Free;
end;

Answer 2

var
strLst:TStringList;
s :string;
begin
s := '';
strLst := TStringList.Create;
repeat
{循环体}
s := s + danzi;
until length(s) >= 14;
strLst.text := s;
strLst.SaveToFile(ExtractFilePath(Application.ExeName) + '\Random.txt');
strLst.Free;
end;