等效于Visual Basic 6函数的DELPHI

debugcn 发表于 Dev

甘地曼

我想要在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;

HeartWare

（假设具有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;

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。