Показать сообщение отдельно
  #3  
Старый 26.01.2021, 01:29
Istvel Istvel вне форума
Прохожий
 
Регистрация: 25.01.2021
Сообщения: 2
Версия Delphi: 10.3
Репутация: 10
По умолчанию

По вашему примеру высыпалось куча ошибок, но на мысль правильную навели:

Код:
var
  Str, s : String;
  Data : TData;
  i : Integer;
begin
  Str := Edit1.Text;
    for i := 0 to 7 Do
      begin
        s := '$' + Str.Substring(i*2, 2);
        Data[i] := StrToInt64(s);
      end;
   Edit2.Text := inttohex(ks(data), 4);
end;

Спасибо за помощь!
Ответить с цитированием