delphi 字符串处理提问
发布网友
发布时间：2024-03-31 13:14
共1个回答
热心网友
时间：2024-04-03 17:48
函数：
function HexToStr(hexstr: string): string;var
slst: TStringList;
i: Integer;
begin
slst := TStringList.Create();
try
slst.Delimiter := ' ';
slst.DelimitedText := hexstr;
for i := 0 to slst.Count - 1 do
Result := Result + Char(StrToInt('$'+slst[i]));
finally
slst.Free;
end
end;
调用测试：
ShowMessage(HexToStr('31 32 33 34')); 显示1234
