[Delphi] замена байтов

[nokius2011]

Здравствуйте...
Нужна помощь в замене строк байтов
пример было 0 1 2 3 4 5 6 7 8 9 A B C D E F
стало F E D C B A 9 8 7 6 5 4 3 2 1 0
Заранее спасибо

case a of
'0':  'F';
'1':  'E';
end;

[VintProg]

Не понятный вопрос, для чего это нужно? Это какой-то инверт.

[nokius2011]

Да получается так получается надо по таблице поставить нужные значения потом программа умножит на 16 и покажет результат

[VintProg]

Может быть так?

function InvHex16(str : string) : string;
var
 i       : integer;
 str_res : string[255];

begin

for i:=1 to Length(str) do
    begin
        case str[i] of
          '0': str_res[i] :=  char(16 * Byte('F'));
          '1': str_res[i] :=  char(16 * Byte('E'));
          '2': str_res[i] :=  char(16 * Byte('D'));
          '3': str_res[i] :=  char(16 * Byte('C'));
          '4': str_res[i] :=  char(16 * Byte('B'));
          '5': str_res[i] :=  char(16 * Byte('A'));
          '6': str_res[i] :=  char(16 * Byte('9'));
          '7': str_res[i] :=  char(16 * Byte('8'));
          '8': str_res[i] :=  char(16 * Byte('7'));
          '9': str_res[i] :=  char(16 * Byte('6'));
          'A': str_res[i] :=  char(16 * Byte('5'));
          'B': str_res[i] :=  char(16 * Byte('4'));
          'C': str_res[i] :=  char(16 * Byte('3'));
          'D': str_res[i] :=  char(16 * Byte('2'));
          'E': str_res[i] :=  char(16 * Byte('1'));
          'F': str_res[i] :=  char(16 * Byte('0'));
         end;

end;

  result := str_res;
end;

[Stilet]

nokius2011

Ты можешь обьяснить конечную цель? Пока что твои потуги смутно представляются, непонятно к чему ты идешь.

[nokius2011]

Спасибо VintProg все работает