用
AssignFile(tab, Edit1.Text);
{$I-}Reset(tab);{$I+}
i:=0;
while not Eof(tab) do
Readln(tab, s);
CloseFile(tab);
会对文件加锁,不允许其他程序写
如果用
fHandle:=FileOpen(Edit1.Text,fmOpenRead+fmShareDenyNone);
是不加锁,如何能够按行读
AssignFile(tab, Edit1.Text);
{$I-}Reset(tab);{$I+}
i:=0;
while not Eof(tab) do
Readln(tab, s);
CloseFile(tab);
会对文件加锁,不允许其他程序写
如果用
fHandle:=FileOpen(Edit1.Text,fmOpenRead+fmShareDenyNone);
是不加锁,如何能够按行读
解决方案 »
- 如何在dbgrideh中调用dbgrideh
- 如何用delphi编程实现将sql server数据库中的数据导入到excel中,出现问题了
- 关于CPort中的 TComPort 组件的问题,急,急,急
- 能否在同一个表内使用外连接?在线等!
- 郁闷呀,本来Delphi用得好好的,现在让用excel宏来做报表。怎么连接数据库呀?
- 用dspack控件,用摄像头录下的AVI里,我想在画面上加个时间,请问怎做?
- 如何把低版本的程序升级到高版本?
- 想从Tfilestream继承一个新类来实现偏移读取文件
- 一个关于combobox的简单问题.(解决就给分)
- 程序员收入?
- 各位大侠来看看我的代码为什么不行?
- 怎么在ClientDataSet中增加记录时总是报错?
StrList : TStringList;StrList.LoadFromFile('Edit1.Text);for i :=0 to StrList.Count-1 do
Showmessage(StrList.Strings[i]);如果处理文件小于1M的文件基本上够用了,如果过大,不要用这个方法,慢!