[hide77]

Добрый вечер! Подскажите пожалуйста как реализовать:
Есть hex данные записанные в строку, как их передать используя переменную?

Код:

var
data_r:data;
s:string;
begin
s:='03c1eb08';

Если вручную вот так записать , все работает

Код:

        Data_r[0]:=$03;
        Data_r[1]:=$C1;
        Data_r[2]:=$EB;
        Data_r[3]:=$08;

Админ: Пользуемся тегами при оформлении кода!

но не понимаю как подставить copy(s,1,2) и т.д. все время несоответсвие типов, как бы не пытался.

Спасибо!

[Alegun]

Сообщение от hide77

...как подставить copy(s,1,2) и т.д. все время несоответсвие типов...

Integer на выходе

Код:

Data_r[0]:= StrToInt('$' + copy(s,1,2));

[hide77]

[dcc32 Error] Unit1.pas(390): E2250 There is no overloaded version of 'IntToHex' that can be called with these arguments


В s уже хекс, его преобразовывать не нужно.

Код:

StrToInt('$' + (copy(s,1,2));

так работает до того момента пока в S не попадутся буквы.

[Alegun]

И с буквами работает

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 b: byte;
 s: string;
begin
 s:= '03c1eb08';
 b:= StrToInt('$' + copy(s,3,4));
 label1.Caption:= Inttostr(b);
end;