Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.149.229.253] |
|
Сообщ.
#1
,
|
|
|
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; end; end; Но если честно я неуверен, что этот код идеальное решение, он был написан очень давно. Но пока он меня не подводил |