Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?

Официальный форум Simple-Scada.

Автор Тема: Char to Hex  (Прочитано 535 раз)

andrei_it

  • Новичок
  • *
  • Сообщений: 17
    • Просмотр профиля
Char to Hex
« : 03 Июня 2020, 11:34:16 »
Здравствуйте, подскажите какой функцией можно преобразовать  текст в hex.

Например слово: WORD
вот к такому виду: 050057004F00520044

Заранее спасибо.

Simple-Scada

  • Администратор
  • *****
  • Сообщений: 2761
    • Просмотр профиля
    • Simple-Scada
Re: Char to Hex
« Ответ #1 : 03 Июня 2020, 13:28:30 »
Здравствуйте.

Код: (delphi)
var
  I: Integer;
  aString, aResult: string;
begin
  aResult := '';
  aString := 'WORD';
  for I := 1 to Length(aString) do
    aResult := aResult + IntToHex(Ord(aString[i]), 4);

  // здесь aResult = 0057004F00520044
end.
« Изменён: 03 Июня 2020, 13:30:20 от Simple-Scada »

andrei_it

  • Новичок
  • *
  • Сообщений: 17
    • Просмотр профиля
Re: Char to Hex
« Ответ #2 : 03 Июня 2020, 15:05:47 »
Благодарю, получилось!  :) 

У меня мало опыта в АСУТП,  но тех. поддержка у Вас на хорошем уровне!
По прошествии 1.5 лет, могу сказать что не жалею что купили именно вашу скаду.
Успехов в развитии!