function _PCharLen(P: _PAnsiChr): Longint;
{$IFNDEF LEGACY_PCHARLEN}
begin
  Result := 0;
  if P <> nil then
    while P[Result] <> #0 do
      Inc(Result);
end;

喜欢理由：简洁

如果是我写可以写成这个样子

I:=0;

while P[i] <> #0 do begin

  I:=I+1;

  result:=result+1;

end;

学到的内容： #号代表10进制数，与之对应的有$代表的16进制数，二进制？8进制好像没有，只能用函数HexToBin转二进制。