请教pos函数(delphi) ,根据字符串位置读取，

Question

请教pos函数(delphi) ,根据字符串位置读取
 悬赏分：20 - 离问题结束还有 14 天 23 小时
菜鸟想实现如下功能： 
from 窗口有一个按钮，有一两个EDIT，edit2显示的是本机硬盘序列号。 
中间的八位数为硬盘序列号。 
在edit1 控件中有如下内容： 有情况(====)Y27G3ADC<====>没有情况
有情况(====)Y27G3AD1<====>没有情况 
有情况(====)Y27G3AD2<====>没有情况求助，当单击一下按钮时，想实现： 
读取edit1里面的中间八位数与edit2的数对比，如果相同则弹出“有情况，要求动手”，如果不同，则弹出警告"这里没情况"

Answer 1

用copy函数，很简单，就不写了。function Copy(S; Index, Count: Integer): string;

Answer 2

我没太明白你想要做的什么，就随便写一下copy的使用给你看咯
procedure TForm1.Button1Click(Sender: TObject);
var
  s: WideString; //因为那里有中文，所以用WideString的，你用普通的string也可以，不过index就不太一样数法了
  substr:WideString;
begin
   s := '有情况(====)Y27G3ADC <====>没有情况';
   substr := Copy(s,10,8);
   ShowMessage(substr);      //  Y27G3ADC
end;