一个关于数据库导入的问题。

Question

如果是标准的，可以先读到TSTRINGS里面，然后就知道了。
TSTRINGS。COUNT

Answer 1

如果能够知道每条记录的大致字节就可用
var
  ScrFile:File;
AssignFile(ScrFile,FileName);
Reset(ScrFile,1);
FileSize(ScrFile)/ARecordSize得出大致记录数
Close(ScrFile);

Answer 2

请问兄什么叫标准的。可读到TSTRINGS里。

Answer 3

其实你不用非要把数据存入文本文件中呀，你可以自建一个自定义的文件类型，然后每存完一条数据就 WRITELN这样的话就可以使用fileSize()得到已经存储数据的个数了

Answer 4

问题解决了给分，用的使strings.count,不过要用stringlist进行实例化。