如何读取指定的字符

Question

var
  s: string;
begin
  s:= 'csdn嘿嘿'
  MessageBox(0, PChar(s), '', 0); // 在这里我想只读取s变量中的'嘿嘿'.
end;我用了StringReplace(s,   'csdn',   '',   [rfReplaceAll]);  替换法，可以是可以，但是StringReplace函数要引用SysUtils单元，因为不想用到VCL，请大大帮帮啊

Answer 1

var
  s: string;
begin
  s:= 'csdn嘿嘿';
  MessageBox(0, @s[5], '', 0);
end;

Answer 2

Thank you，  结贴.