var s : string; f : textfile; bagin s := 'String'; assignfile(f, 'c:\1.txt'); rewrite(f); write(f, s); closefile(f); end;
----------------------------------------------
——混世生
Unit 'FileCtrl' is specific to a platform 是D6之后版本才有的编译警告提示,警告"FileCtrl"单元只能在特定的平台(操作系统)(windows)下使用,这是D6开始支持交叉平台的原因。
----------------------------------------------
-