Visual 6函数的DELPHI等效
Visual 6函数的DELPHI等效
提问于 2020-12-03 22:22:22
下面的函数用Visual 6编写，我希望在Delphi中有一个等价的函数：
Public Function ToString(ByVal l As Long, n As Integer) As String
' Convert a long value to a string, left padded with chr$(0)
Dim s As String
Dim i As Integer
s = ""
Do While l > 0
i = l Mod 256
s = Chr$(i) & s
l = CLng((l - i) / 256)
Loop
ToString = Right$(String$(n, Chr$(0)) & s, n)
End Function我试过以下几种方法，但没有成功：
function ToString(l: Longint; n: Smallint): String;
var
s: String;
i: Smallint;
begin
s := '';
while l > 0 do
begin
i := l mod 256;
s := String(Char(i))+s;
l := Round((l-i)/256);
end;
Result := (StringOfChar(String(Char(0))[1], n)+s, n);
end;回答 1
Stack Overflow用户
回答已采纳
发布于 2020-12-04 12:50:34
(假设有UNICODE能力的Delphi)
您正在使用字符串来存储二进制值--不要这样做。字符串用于文本表示，而不是二进制存储。使用字节数组(TBytes)代替。
如果必须使用(但不需要)，则应该使用RawByteString，如下所示
它是一个单字节的每字符字符串(与UNICODE字符串的2-bytes-per-character)
- It不同，它不包含任何隐式代码页，因此在赋值时不执行转换.
)。
您可以使用此函数：
FUNCTION IntToBin(Value : LongWord ; CONST Len : BYTE) : RawByteString;
VAR
I : INTEGER;
BEGIN
SetLength(Result,Len);
FillChar(Result[LOW(Result)],Len,0);
I:=HIGH(Result);
WHILE (I>=LOW(Result)) AND (Value<>0) DO BEGIN
Result[I]:=AnsiChar(Value MOD 256);
Value:=Value DIV 256;
DEC(I)
END
END;页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/65135062
复制相关文章
相似问题
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号