急！前几天已经讨论过这个问题了：有关将文本文件中的电话记录读取到数据表的问题？(50分)

电话计费的问题：交换机将一条条电话记录存储到记事本中了，将这些记录不重复的读到表里，读的问题我已经解决了！可是记录是随时间动态增加的！如何保证读的时候不重复？我用了一个定时器，也就是怎样才能在每次间隔时间到后在读取时接着从上次间隔读的地方继续读取记录，保证不重复？

你可以用线程判断其最后修改时间或者文件大小,修改时间或者文件大小一变你就可以读取了

我不知道你是怎么读的.如果使用笨办法,很容易处理.
首先声明,肯定是很笨的方法.
var fp:textfile;
old_line:integer;//保存上次文件读取的行数.
no:ingeter;//
tstr:string;
assignfile(fp,filename);
reset(fp);
for no:=1 to old_line do readln(fp,tstr);//本循环完就可以到上次最后一次读的位置
repeat
inc(no);//记录当前行..在文本文件中的位置
readln(fp,tstr);//读入新数据
.....//进行处理

until eof(fp);
//记录no,也就是本次处理的行数到配置文件,为下次读取做准备

接受答案了.