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

代码语言

代码分类

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

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

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字符　

同语言下

.多边形面积
.限定软件使用时间
.获取磁盘空间大小
.窗口文字淡入淡出渐变效果
.创建开机启动项
.检测并枚举系统安装的打印机
.实现保存和读取图片
.字符串分隔函数
.将BMP格式图形转化为JPG格式
.解析FTP地址

可能有用的

.实现测量程序运行时间及cpu使用时间
.C#实现的html内容截取
.List 切割成几份工具类
.SQL查询多列合并成一行用逗号隔开
.一行一行读取txt的内容
.C#动态修改文件夹名称(FSO实现，不移动文件)
.c# 移动文件或文件夹
.c#图片添加水印
.Java PDF转换成图片并输出给前台展示
.网站后台修改图片尺寸代码

jellyvice贡献的其它代码(28)

.返回双精度浮点数数组的最大值2
.返回一个双精度浮点数数组的最大值
.检查指定数字是否是质数
.两个数的最大公约数
.把一个缓冲区里的字节输出成16进制表示格式
.Graphic转换成Bitmap
.获取一个图标或光标的热点位置
.返回Gif图片的尺寸
.返回指定bitmap图片的尺寸
.检查系统中是否包含指定的字体