file.cpp

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

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

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

  String 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;
}