Question

delphi如何读取文本文档的指定部分？

delphi如何读取文本文档的指定部分？文本文档里有一部分是从脉率开头，到诊断
脉率……
…………
诊断…………
…………
结果……
现在我想只读取从脉率开始到诊断之间的文本，这个该怎么实现？提供一下参考的代码，目前只实现了从脉率读到文档结尾

Answer 1

procedure test;
const
  testStr = '脉率12345中间插个中文吧6789诊断987654321结果……';
var
  tmpInt: Integer;
begin
  tmpInt := Pos('脉率', testStr) +Length('脉率');
  ShowMessage(Copy(testStr, tmpInt, Pos('诊断', testStr) -tmpInt));
end;