bytesof函数解析

最新推荐文章于 2024-05-27 17:53:55 发布

转载最新推荐文章于 2024-05-27 17:53:55 发布 · 2.2k 阅读

DELPHI开发专栏收录该内容

194 篇文章

订阅专栏

function BytesOf(const Val:
 RawByteString): TBytes;

var

  Len: Integer;

begin

  Len
 := Length(Val);

  SetLength(Result,
 Len);

  Move(Val[1],
 Result[0],
 Len);

end;

function BytesOf(const Val:
 UnicodeString): TBytes;

begin

  Result
 := TEncoding.Default.GetBytes(Val);

end;

function BytesOf(const Val: WideChar):
 TBytes;

begin

  Result
 := BytesOf(UnicodeString(Val));

end;

function BytesOf(const Val: AnsiChar):
 TBytes;

begin

  SetLength(Result, 1);

  Result[0]
 := Byte(Val);

end;