一个极为简单的问题，恳请大家帮忙解决！

Question

var
s:string
i:integer;
begin
  s:='Alice;Bob;Jone;Hill';
  i:=pos('jon',S);
  //反回的是找到的地方应该是11,是0表示没有找到。
end;

Answer 1

if Pos(';Jon;',s)<>0 or Pos(';Jon',s)=Length(s)-Length(';Jon')+1 or Pos('Jon;',s)=1 then
  //存在—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 2

但是这样做
如果查找 'Jon’，也会认为存在，
我现在需要它完全符合  ‘Jone‘ 或是'jone',
才返回存在！

Answer 3

上面的Jon应该是Jone，表示Jone是否存在—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 4

to  lxpbuaa(桂枝香在故国晚秋) 
我刚才不是说你的答案，
我认为你的回答是正确的！