Question

用delphi7做一个查找文本文件中指定内容并更改的小程序

我想用delphi7做一个查找文本文件中指定内容并更改的小程序，运行程序时分别打开文件夹下的多个文件来按后面的描述进行处理（文件里的内空结构一致，都有下面说到的情况），读取并判断文件中的行，当行的第一个字符串是字母CIRCLE或CLOSED或OPEN的行（这一行一共有5位，每位之间有空格），然后判断第4位的数字如果是1则把1改为27，如果第4位的数字是20则再判断第1个字符串是circle还是closed如果是circle则把这第一个字母串改为KPTCIR，如果是closed则把这第一个字母串改为KPTCLS,同时把这个20改为1，如果文件内所有行都不符合则关闭文件再打开下一个文件再进行上述判断，如果打开的文件符合上面说到的情况则按情况处理后保存该文件，然后再打开下一下文件继续处理，直到文件夹下文件全部处理完结束程序。谢谢
由于贴完文件内容显示长度超限，文件内容见图片

Answer 1

文本文件打开后，只能是“读”或者“写”二者之一，不能同时读写。所以你的想法不能实现。

变通的方法：另建一个目录，按照你的要求将处理后的文件存入其中。其实，你对文本文件的修改操作并不需要用GUI界面的程序实现，用控制台（console）程序就能完成。所以，用turbo pascal或者freepascal编程就够了，其中会用到dos 单元中的findfirst、findnext过程。

编制delphi控制台程序时，在sysutils单元中也包含 findfirst、findnext过程。