file.js

来自「脚本处理控件源码,支持的脚本格式有:Pascal,C++,JScript,Bas」· JavaScript 代码 · 共 16 行

//**************************}
//{ FastScript v1.0          }
//{ Files demo               }
//{**************************/


  var fs = new TFileStream("test.txt", fmCreate);

  var s = "Testing file...";
  fs.Write(s, Length(s));
  fs.Write("\r\n", 2);
  s = "Tested OK!\r\n";
  fs.Write(s, Length(s));

  delete fs;