?? ascii字符串到十六進制字符串格式.txt
字號:
function ASCIIStrToHexStr(Str: string): string;
var
I: Integer;
S: string;
Value: Integer;
begin
if Length(Str) < 2 then
begin
Result := '';
Exit;
end;
S := '';
for I := 1 to (Length(Str) div 2) do
begin
Value := SToI(Str[I * 2 - 1]) * 16 + SToI(Str[I * 2]);
S := S + chr(Value);
end;
Result := S;
end;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -