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