1,183
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
creativepeter 2004-07-09
- 打赏
- 举报
楼主，不是API里面的createfile函数的参数种类可不是谁都能用到的，讲解不可能面面俱到，咱们搞开发的，有时候还是以应用为主。需要什么就用什么吧。
auly403 2004-07-08
- 打赏
- 举报
看看CSDN就行
wwwxuebin 2004-05-06
- 打赏
- 举报
function createfile(filename:string):integer;
就这么用吧
procedure filelookup(filename:string);
var
tempfile:file;
filehandle:integer;
begin
if not fileexists(filename) then
filehandle:=createfile(filename);
if filehandle<>0 then
showmessage('file create success')
else
showmessage('Can not Create file');
end;
就这么用吧
procedure filelookup(filename:string);
var
tempfile:file;
filehandle:integer;
begin
if not fileexists(filename) then
filehandle:=createfile(filename);
if filehandle<>0 then
showmessage('file create success')
else
showmessage('Can not Create file');
end;
visual_cjiajia 2004-05-06
- 打赏
- 举报
倒 要强迫自己看英文！
visual_cjiajia 2004-05-06
- 打赏
- 举报
他说好象是API 呵呵：）
