Добавление 0 перед Int

[evg_m]

Мне нужно метить атомы в 3 мерном массиве.

type
Tatom =record pl1, pl2, pl3: byte; end;
a: array [...] of Tatom;

a[i,j, d1].pl1:=0;
a[i,j, d1].pl2:=0;
a[i,j, d1].pl3:=1;

отладчик будет знать о record и покажет поля.

function atom(p1, p2, p3: integer): TAtom;
begin
  result.pl1:=p1;
  result.pl2:=p2;
  result.pl3:=p3;
end;

a[i,j, d1]:=atom(0,0,1);

задать состояния в программе также просто и наглядно (для человека) как и в случае :='001';

type
TPL =(pl1, pl2, pl3);
a: array of [..., TPL]
a[i,j, d1, pl1]:=0;
a[i,j, d1, pl2]:=0;
a[i,j, d1, pl3]:=1;

есть и другие пути решения проблемы.

Метка находиться под атомом и она должна иметь информацию о количестве атомов того же сорта в плоскостях.

мне нужно ВЫВОДИТЬ информацию о количестве ....

LebelXXX.caption:=format('%d%d%d', [a[i,j, d1].pl1, a[i,j, d1].pl2, a[i,j, d1].pl3] ); в нужном месте.

function Atomtostr(atom: Tatom): string;
begin
  result:=format('pl1=%d; pl2=%d; pl3=%d;', [atom.pl1, atom.pl2, atom.pl3] );
end;

LebelXXX.caption:=atomstr( a[i,j, d1]);// в нужном месте.

[IliaIT]

не знаю как в дельфи, но в приборах эта задача часто встречается и называется двоично-десятичный код. вы берите только чего то из целых чисел 4х байтовых (удобнее и меньше шансов нарваться на ошибку). и соответственно привязываете к массиву в 4 байта абсолютных значений, а в этих 4х байтах нужная вам десятеричная цифра. (ну в вики гляньте что за формат проще будет, но свой тип указанный выше однозначно удобнее для хранения и обработки, но не для передачи сторонним программам и приборам.)