文本文件打开后,只能是“读”或者“写”二者之一,不能同时读写。所以你的想法不能实现。变通的方法:另建一个目录,按照你的要求将处理后的文件存入其中。其实,你对文本文件的修改操作并不需要用GUI界面的程序实现,用控制台(console)程序就能完成。所以,用turbo pascal或者freepascal编程就够了,其中会用到dos 单元中的findfirst、findnext过程。编制delphi控制台程序时,在sysutils单元中也包含 findfirst、findnext过程。