判断数据流是否包含unicode字符代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】判断数据流是否包含unicode字符

作者:jellyvice / 发布于2013/12/3/ 561

function IsUnicodeStream(const Stm: Classes.TStream): Boolean;
var
 StmPos: LongInt;   // current position in stream
 UnicodeMarker: Word; // marker that indicates a unicode stream
begin
 // Record current location in stream
 StmPos := Stm.Position;
 // Check if stream large enough to contain unicode marker
 if StmPos <= Stm.Size - SizeOf(Word) then
 begin
  // Read first word and check if it is the unicode marker
  Stm.ReadBuffer(UnicodeMarker, SizeOf(UnicodeMarker));
  Result := (UnicodeMarker = $FEFF);
  // Restore stream positions
  Stm.Position := StmPos;
 end
 else
  // Stream too small: can't be unicode
  Result := False;
end;

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　unicode字符　

同语言下

可能有用的

jellyvice贡献的其它代码(28)