Из шестнадцатеричного числа в целое

Delphi , Синтаксис , Преобразования

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

// This tip convert the Hex Code AFFE to integer 

procedure TForm1.Button1Click(Sender: TObject);
 begin
   label1.Caption := IntToStr(StrToInt('$AFFE')); //45054 
end;

Here's the translation of the text into Russian:

Код Delphi - процедура, которая конвертирует шестнадцатеричное число 'AFFE' в целое число и отображает результат в контроле Label.

Разбивка кода:

1. Процедура Button1Click вызывается при клике кнопки с надписью "Button1".
2. В процедуре используется функция StrToInt, чтобы конвертировать шестнадцатеричную строку '$AFFE' (заметьте символ доллара перед 'AFFE') в целое число.
3. Полученное целочисленное значение затем передаётся функции IntToStr, которая конвертирует целое число в строку в формате десятичного числа (основание 10).
4. Наконец, свойство Caption контрола Label1 устанавливается на конвертированную строку с помощью оператора присваивания (:=).

Комментарий над кодом указывает, что результат этой конвертации - '45054'.

Альтернативное решение с использованием встроенной поддержки Delphi для шестнадцатеричных литералов:

procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.Caption := IntToStr($AFFE); // 45054
end;

В этом варианте символ $ используется для префикса шестнадцатеричного литерала 'AFFE', который затем конвертируется в целое число с помощью функции IntToStr. Этоapproach eliminates the need for the StrToInt function call.

В статье описывается процедура преобразования шестнадцатеричного числа AFFE в целое число, которое равно 45054.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Преобразования ::