SOS，紧急求教一指针问题，请求高人指点一二，在线Wait

Question

p: ^integer是指向integer类型的指针
p^是内容
其他见我给你的短消息

Answer 1

一定要指针试试：
var
  p:pchar;
  i:integer;
begin
  p:='abcdef'+#13;
  for i:=0 to strlen(p)-1 do
    if (p+i)^=#13 then
      showmessage('warp');
end;//////////////////////////////////
var
  p:pchar;
begin
  p:='abcdef#13';
  if StrPos((p+i),'#13')<>nil then
      showmessage('warp');
end;

Answer 2

一定要指针试试：
var
  p:pchar;
  i:integer;
begin
  p:='abcdef'+#13;
  for i:=0 to strlen(p)-1 do
    if (p+i)^=#13 then
      showmessage('warp');
end;//////////////////////////////////
var
  p:pchar;
begin
  p:='abcdef#13';
  if StrPos(p,'#13')<>nil then
      showmessage('warp');
end;