Internet Direct (Indy)
Home
PreviousUpNext
IdOctalDigits Constant

Identifies characters used in the octal representation of a numeric value.

Pascal
IdOctalDigits: array [0..7] of AnsiChar = ('0','1','2','3','4','5','6','7');

IdOctalDigits is a constant array containing valid characters that can be used in the octal representation of a numeric value. IdOctalDigits characters can be accessed by an index value that corresponds to the decimal value for the octal character. 

IdOctalDigits is used in the ByteToOctal function to access the string representation for each triplet in the byte value.

[Delphi] IdOctalDigits, ByteToOctal 

 

  function ByteToOctal(const AByte : Byte) : String;
  begin
    SetLength(Result,3);

    Result[1] := IdOctalDigits[(AByte shr 6) and $07];
    Result[2] := IdOctalDigits[(AByte shr 3) and $07];
    Result[3] := IdOctalDigits[AByte AND $07];

    if Result[1] <> '0' then
    beginResult := '0' + Result;
    end;
  end;
Internet Direct (Indy) version 10.1.5
Copyright © 1993-2006, Chad Z. Hower (aka Kudzu) and the Indy Pit Crew. All rights reserved.
Website http://www.indyproject.org.
Post feedback to the Indy Documentation newsgroup.