System.Length 函式

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轉二進位制。