DELPHI 等效于 Visual Basic 6 函数

Question

我想要 Delphi 中的等效函数，用于以下用 Visual Basic 6 编写的函数：

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;

Answer 1

（假设支持 UNICODE Delphi）

您正在使用 STRING 来存储二进制值 - 不要那样做。字符串用于文本表示 - 不用于二进制存储。请改用字节数组 (TBytes)。

如果你必须（但你没有），你应该改用 RawByteString，因为

它是一个每个字符一个字节的字符串（与 UNICODE STRING 的每个字符 2 个字节相反）
它不包含任何隐式代码页，因此不会对赋值进行来回转换。

您可以使用这个功能：

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;

DELPHI 等效于 Visual Basic 6 函数

DELPHI Equivalent of a Visual Basic 6 Function

delphi

math

function