Question

求一delphi7 代码 ，操作txt文件的

有一无类型文件，但可以用TXT 打开，文件大小约为30M，且内容一直会增加。

txt文件内容如下
...
ABCDE 123
BCDEF 234
ABCDE 888888
CDEFG 234
....
ABCDE 999999
主要操作过程如下
当读取到'ABC'时，将空格后面的所有字符都复制到memo里面去，如果没有就进行下一行判断（程序运行正常时应该将123，888888能复制出来）

1、因为文件太大每次读取时都很慢，我想将文件当前的最后一行复制出来并保存后，下一次运行程序时直接将指针定位到保存的最后一行。

2、将最后一行（ABCDE 999999）以前的数据全部剪切到D:\123.TXT文件中去，这样应该也可以提升速度
麻烦大神将关代码的作用能够讲解一下

Answer 1

public class Utils {
private static long lastClickTime;
public static boolean isFastDoubleClick() {
long time = System.currentTimeMillis();
long timeD = time - lastClickTime;
if ( 0 < timeD && timeD < 500) {
return true;
}

Answer 2

文件指针方式读取，可以指定读取位置。

追问

这个我知道，就是不知道代码怎么写啊

追答

网上代码一大堆，随便搜一下就有。自己不研究研究，我写给你你也不会改