如何使用assignfile? 我现在要打开一个文件,路径为c:\123.txt请问如何使用assignfile这个函数? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var f: file; s: string;begin AssignFile(f, 'c:\123.txt'); Reset(f); Readln(f, s); // 读取第一行显示 ShowMessage(s); CloseFile(f);end; 上面f定义错了,应该是var f: TextFile; 置一下filemode ,0,1 or 2,textfile或是file倒无所谓;我感觉还是用winapi读方便,最后的尾巴不用自己处理了;(如果blockread的话) 置一下filemode ,0,1 or 2,textfile或是file倒无所谓;我感觉还是用winapi读方便,最后的尾巴不用自己处理了;(如果blockread的话) var f : textfile; s : string;begin assignfile(f,FileName); reset(f); while not(eof(f)) do begin readln(s);{ do somehing } end;end; 更正一下,上面的代码应加一行closefile(f). HWND是什么类型 啊? intraweb 寫的standalone application 怎樣用apache(2.2)發布 关于ADOConnection设置的问题??? “手机短信平台”开发讨论,感兴趣的把QQ留下 为什么打印那么慢呢? 《网络吸管》开发手记2 送分贴二:(讨论:根据数据库构造一棵树的最佳算法!版主与高手请进!) 在线等回复,急!!! 菜鸟的提问:怎么把图象存进数据库 DELPHI控件Splitter的一个使用上的问题(在线等待) 求救! 更新数据问题?
f: file;
s: string;
begin
AssignFile(f, 'c:\123.txt');
Reset(f);
Readln(f, s); // 读取第一行显示
ShowMessage(s);
CloseFile(f);
end;
var
f: TextFile;
我感觉还是用winapi读方便,最后的尾巴不用自己处理了;(如果blockread的话)
我感觉还是用winapi读方便,最后的尾巴不用自己处理了;(如果blockread的话)
s : string;begin
assignfile(f,FileName);
reset(f);
while not(eof(f)) do
begin
readln(s);
{ do somehing }
end;
end;