求助一个小问题

Question

AssignFile(s2, '.\ffff.txt');
这里我想把ffff.txt中含有
=402|
这关键字的整行取出来到s3变量，是要加上什么样的代码

Answer 1

TextFile
按行读取文件,
做字符串比较

Answer 2

var
  f: TextFile;
  s: string;
begin
  AssignFile(f, '.\file.txt');
  Reset(f);
  while not Eof(f) do
  begin
    Readln(f, s);
    if Pos('=402|', s) > 0 then Break;
  end;
  ShowMessage(s); // 这里显示的就是找到的含有=402|字符串的那一行.
end;

Answer 3

感谢三楼的老兄了，问题解决了。再问一下，为什么程序启动了后，我手动打开file.txt并进行编辑后，保存不了呢？系统提示不能创建文件，请确认路径和文件名是否正确。是没有取消关联的原因吗？要怎么样取消关联？？？

Answer 4

确实忘关闭文件了.AssignFile(f, '.\file.txt');
try
  { ... }
finally
  CloseFile(f);
end;这样OK!