如何读取指定文本中的某一行

Question

我要读取
[HEAD]
MFG ID             =000
Line No            =001
FixtureNo          =0001
ComputerName       =01-CS-12
TestSoftwareVersion=Ver1.22
Model              =C1160
StationName        =BoardTest
SerialNumber       =042050529017812
StartTestTime      =20050529214035
Result             =PASS    
中的“PASS”，请问大家有没有指定该怎么实现，能不能直接读取“RESULT”这一行的？

Answer 1

采用ini文件的方法读取比较简单。

Answer 2

使用Ini文件
var
  f: TIniFile
begin
  f := TIniFile.Create(...);
  f.ReadString('HEAD', 'Result', '');
  ...

Answer 3

var iniHEAD:tinifile;
    iniPS:string;
begin
   try
        iniHEAD:= TINIFile.Create(ExtractFilePath(application.ExeName) + '\*.ini');
          iniPS:= iniHEAD.ReadString('HEAD','Result','');
    
    except
        begin
          Application.MessageBox('读取错误！',0);
        end;
     iniHEAD.Free;
   end;
end;

Answer 4

但是这个文本是.txt格式的，而不是“.ini”文件的格式，我能有办法直接读取吗？

Answer 5

可以的，只要格式是INI的就没问题。

Answer 6

用API，但还需要自己定位文件指针,CreateFile,OpenFile

Answer 7

但是这个文本是.txt格式的，而不是“.ini”文件的格式，我能有办法直接读取吗？
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~是什么格式不是根据扩展名而是根据他的内容。
你这个符合通常ini的格式，可以当作ini来读，方便得多。