如题

解决方案 »

  1.   

    ADD到一个TStringList对象里,然后直接SaveToFile
    或者直接写文本文件也行
      

  2.   

    [code]
    var
      TmpStrLst: TStringList;
    begin
      TmpStrLst := TStringList.Create;
      TmpStrLst.Text := FunctionResult; //函数返回值
      TmpStrLst.SaveToFile(FileName); //保存为文件名
      TmpStrLst.Free;
    end;
    [/code]
      

  3.   

    var
      TmpStrLst: TStringList;
    begin
      TmpStrLst := TStringList.Create;
      TmpStrLst.Text := FunctionResult; //函数返回值
      TmpStrLst.SaveToFile(FileName); //保存为文件名
      TmpStrLst.Free;
    end;居然把CSDN格式化的代码记错了发了一片空白