Typ binßrnφ °et∞zec

Ve vnit°nφm programovacφm jazyce lze pou₧φvat typ pro pole bajt∙

    Binary [ dΘlka ]

a indexovat jej od 1. Prvky binßrnφch polφ jsou typu Char a pro jejich konverzi na a z typu Integer lze pou₧φt funkce Ord a Chr.

P°φklad:

Funkce Get_aplId vrßtφ binßrnφ id aktußlnφ aplikace jako string dvojnßsobnΘ dΘlky

function Hex(i : integer) : string[1];
/****************************************/
begin
  case i of
     0 : Hex := "0";
     1 : Hex := "1";
     2 : Hex := "2";
     3 : Hex := "3";
     4 : Hex := "4";
     5 : Hex := "5";
     6 : Hex := "6";
     7 : Hex := "7";
     8 : Hex := "8";
     9 : Hex := "9";
    10 : Hex := "A";
    11 : Hex := 'B';
    12 : Hex := 'C';
    13 : Hex := 'D';
    14 : Hex := 'E';
    15 : Hex := 'F';
  end;  
end;

function ToHex(var zn : char) : string[2];
/****************************************/
var
  pom1,pom2 : integer;
  r1, r2 : string[1];
begin
  r1 := Hex(Ord(zn) div 16);
  r2 := Hex(Ord(zn) mod 16);
  ToHex := r1+r2;
end;

function Get_aplId : string[24];
/****************************************/
var
  j,objnum : short;
  bin : binary[12];
  str : string[24];
  
begin
// zjiÜt∞nφ Φφsla n∞kterΘho objektu z aktußlnφ aplikace
  if not Find_object("about",CATEG_VIEW,objnum) then begin
// p°eΦtenφ binßrnφho id z tabulky objekt∙
    bin := ObjTab[objnum].apl_uuid;
// p°evod na string
    for j := 1 to 12 do begin
      str := str+ToHex(bin[j]);
    end;
    Get_aplId := str;
  end;
end;

Viz takΘ:

Typy jazyka - p°ehled

Programy

Vnit°nφ programovacφ jazyk