Кодировка в delphi

[Начинающий програм]

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

текст:"компы"
Буква: Код:
к 0000
о 0001
м 0010
п 0011
ы 0100

[BARNEY]

двух мерный массив создать может? Кодировать понимаю самому надо?

[Начинающий програм]

Извините пожалуйста, я не так задал вопрос. Как под одну букву отвести 4 бита а не байта? При помощи функции format это можно сделать, если да, продемонстрируйте пожалуйста это на моем примере.

[Serge_Bliznykov]

Как под одну букву отвести 4 бита а не байта?

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

И помните, что таким образом Вы сможете закодировать только 16 букв.

[Начинающий програм]

Спасибо, я попробую!

[BDA]

function encode4(const s: rawbytestring): rawbytestring;
const
  in1 = 'компы';
  out1 = #0#1#2#3#4#5;
var
  i, c: integer;
begin
  result := '';
  for i := 1 to length(s) do
  begin
    c := pos(s[i], in1);
    if c > 0 then
      result := result + out1[c];
  end;
end;

function decode4(const s: rawbytestring): rawbytestring;
const
  in1 = 'компы';
  out1 = #0#1#2#3#4#5;
var
  i, c: integer;
begin
  result := '';
  for i := 1 to length(s) do
  begin
    c := pos(s[i], out1);
    if c > 0 then
      result := result + in1[c];
  end;
end;