Delphi中对文本文件的处理的问题...(100分)

如何实现在一个文本文件中找到符合要求的几行文本,然后用新的几行文本来进行替换,两者行数相等.
我写了如下程序,主要目的是完成Oracle的Net8别名配置,由于有可能有多个别名是给其他应用使用的,所以不能重新创建文件,而只能在原有文件上面修改
AssignFile(FInitFile, 'D:/oracle/ora81/network/ADMIN/tnsnames.ora');
Reset(FInitFile);
while not SeekEof(FInitFile) do
begin
ReadLn(FInitFile, Value);
if Value = 'ANMSDB.WORLD =' then
begin
//ConfigValues是存放实际配置信息的TStringList
for i := 1 to ConfigValues.Count - 1 do
begin
WriteLn(FInitFile, ConfigValues.strings) //这句出现I/O错误
end;
Flush(FInitFile);
end;
end;

程序逻辑不对,应该整体读进内存，再整体写回文件。用TStringList即可。

这个主意不错,我回头试试...

利用tinifile 文件得方法不行吗

当然不能用tinifile,你看Oracle的tnsnames.ora,不是一个很标准的ini文件,所以只
能用xusong168的方法了

接受答案了.