String -> Hex -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.117.152.251]

Модераторы: jack128, Rouse_, Krid

String -> Hex

Alex-Co

Сообщ. #1 , 12.05.04, 19:30

Full Member

Рейтинг (т): 23

function StrToHex(Value: String;

Digits: Integer = 1;

Prefics: String = ' '

): String;

// Возвращает строку, содержащую шестнадцатеричное представление

// Value с числом возвращаемых цифр Digits и разделителем между

// ними Prefics

var

i: Integer;

begin

Result:= Value;

if Length(Value) < 1 then exit;

Result:= '';

for i:= 1 to Length(Value) do begin

try

if not (Ord(Value[i]) in [124]) then

Result:= Trim(Result + Prefics + IntToHex(Ord(Value[i]), Digits))

else begin

if Prefics = '%' then

Result:= Result + '%0D%0A' // Переход на новую строку

else

Result:= Result + value[i];

end;

except

Result:= Value;

end;

Но если честно я неуверен, что этот код идеальное решение, он был написан очень давно. Но пока он меня не подводил

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0143 ] [ 16 queries used ] [ Generated: 27.04.24, 07:14 GMT ]