关于读取TXT

[ashfish]

我想用DELPHI读取一个文本文件进行分析，只读取，这是个游戏的日志文件，实时更新
我尝试用AssignFile 和memo.loadfromfile 都不行，会提示另外一个程序正在使用此文件， 而我在系统里直接打开这个文件却是可以打开的。

请问要如何用DELPHI读取这个实时更新的文本文件？怎么写代码， 万分感谢。

[SuperTitan002]

没看到memo有loadfromfile
用只读方式打开应该是没有问题的

[雪碧爱可乐]

实在不行就复制一份文件后再读嘛！

[ashfish]

[Quote=引用 1 楼 supertitan002 的回复:]
没看到memo有loadfromfile
用只读方式打开应该是没有问题的
[/Quote]

是memo.line.loadfromfile，反正loadfromfile是不行的。 正在纠结呢，望高手解答。

[SuperTitan002]

你查下loadfromfile的源代码

Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);

打开文件用了fmShareDenyWrite，所以无法打开

没看到你的assignfile后用的什么，如果reset应该问题不大，呵呵

[hongss]

[Quote=引用 2 楼 lgtao 的回复:]
实在不行就复制一份文件后再读嘛！
[/Quote]


这个主意不错，Copy一份，然后拿来分析。

[ashfish]

[Quote=引用 5 楼 hongss 的回复:]
引用 2 楼 lgtao 的回复:
实在不行就复制一份文件后再读嘛！



这个主意不错，Copy一份，然后拿来分析。
[/Quote]


关键是日志文件比较的大，而且不不止分析一次。

[ashfish]

[Quote=引用 4 楼 supertitan002 的回复:]
你查下loadfromfile的源代码

Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);

打开文件用了fmShareDenyWrite，所以无法打开

没看到你的assignfile后用的什么，如果reset应该问题不大，呵呵
[/Quote]


就是用RESET 也不行，好纠结啊

[wbaige]

每天回帖即可获得10分可用分！

[SuperTitan002]

你试试用TFileStream.Create(FileName, fmOpenRead）这种方式打开试试

[ashfish]

[Quote=引用 9 楼 supertitan002 的回复:]
你试试用TFileStream.Create(FileName, fmOpenRead）这种方式打开试试
[/Quote]


很感谢你的思路，我试了一下，还是提示正在被使用，杯具啊

[ashfish]

[Quote=引用 9 楼 supertitan002 的回复:]
你试试用TFileStream.Create(FileName, fmOpenRead）这种方式打开试试
[/Quote]

感谢啊，已经找到方法了，问题不是出在fmShareDenyWrite，而是fmOpenRead 哈。我把MODE定义为fmShareDenyNone 就可以了。