Преобразование Hex в String

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

Code:

procedure TForm1.Button1Click(Sender: TObject);

const Source: string = '4D 5A';

var S: string;

t: Integer;

begin

with TStringList.Create do

try

Text := StringReplace(Source, #32, #13#10, [rfReplaceAll]);

S := '';

for t := 0 to Count - 1 do

S := S + Chr(StrToInt('$' + Strings[t]));

ShowMessage(S);

finally

Free;

end;

Автор: Song Взято из http://forum.sources.ru

В статье описывается способ преобразования строки в hexadecimal-формате (например, '4D 5A') в обычную строку с помощью Delphi.

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

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

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

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

Время компиляции файла: 2024-12-22 20:14:06
2025-06-30 23:32:50/0.005465030670166/0