关于.txt 文本的内容判断？进来看看，谢谢了！

Question

[HEAD]
LineNo    = 01
Station   = Master_Cleaning
FixtureNo = 1
Mode      = PHS-F16
Version   = 001
UserName  = 02-SOWRITER01:ut1
MFG ID    = 112455700
StartTime = 20030822125956
EndTime   = 20030822130018
Result    = PASS
[BEGIN]
001 =PASS
002 =112455700
003 =5
004 =PASS
005 =PASS
006 =PASS
[END]
一个如上所示的.txt文档，我如何能动态地知道它的[BEIGN][END]关键字中间共有几项？比如上面的例子有6项，但是下一个文档有几项我就不知道了，因为它的项数是在不断变化的,不变的是肯定在[BEIGN] [END]关键字中间。

Answer 1

var
  Strs: TStrings;
  Count: Integer;
begin
  Strs := TStringList.Create;
  Strs.LoadFromFile('g:\aa.txt');
  Count := Strs.IndexOf('[END]') - Strs.IndexOf('[BEGIN]') - 1;
  Strs.Free;
end;————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————