文档章节

SysUtils.StrByteType - 获取字节类型

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 152
阅读 2
收藏 0
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//利用 StrByteType 做了个函数:
function GetByteType(p: PChar; i: Integer): string;
var
  bt: TMbcsByteType;
begin
  bt := StrByteType(p, i);
  case bt of
    mbSingleByte : Result := 'SingleByte'; {ASCII 字符}
    mbLeadByte   : Result := 'LeadByte';   {双字节字符前半}
    mbTrailByte  : Result := 'TrailByte';  {双字节字符后半}
  end;
end;

//测试:
procedure TForm1.FormCreate(Sender: TObject);
var
  p: PChar;
  i: Integer;
begin
  p := 'abc万一123';

  for i := 0 to Length(p) - 1 do
    Memo1.Lines.Add(GetByteType(p, i));

{显示结果如下:
  SingleByte
  SingleByte
  SingleByte
  LeadByte
  TrailByte
  LeadByte
  TrailByte
  SingleByte
  SingleByte
  SingleByte
}
end;

end.

 
 
 
 
 

 

 

  
SysUtils 单元下的公用函数目录

本文转载自:http://www.cnblogs.com/del/archive/2008/05/13/1195126.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Mongo _id 生成和使用

MongoDB中我们经常会接触到一个自动生成的字段:”_id”,类型为ObjectId。 ObjectId构成 之前我们使用MySQL等关系型数据库时,主键都是设置成自增的。但在分布式环境下,这种方法就不可行了...

SibylY
2016/07/14
18
0
C语言_基本数据类型范围、类型之间的转换规则、打印某个内存连续的内存值

今天在将一个4字节大小的宏(#define (unsigned long)0x0000FFFF)强制类型转化为8个字节; 然后再左移4个字节(<<32)后;再加上这个宏本身,赋值给一个8字节的变量。产生了一些错误,比较典...

沙米笔记
2016/03/25
55
0
2017-12-28 Linux学习笔记

4.1 df命令 df命令用来查看已挂载磁盘的总容量,使用容量,剩余容量等,可以不加任何参数,默认是按k为单位显示的.-i #查看inodes使用状况-k #以KB为单位显示-m #以MB为单位显示-h #使用合适的单...

XiaoluHuang
2017/12/29
0
0
LINUX系统学习df命令,du命令,磁盘分区

一、命令df 命令df用于查看已挂载磁盘的总容量、使用容量、剩余容量等,可以不加任何参数,默认情况下以KB为单位显示 其中/boot是我们安装系统时划分出来的,/dev、/dev/shm为内存分区,默认...

海滩上的鲨鱼
2017/11/02
0
0
df命令\du命令\磁盘分区

4.1 df命令 df - report file system disk space usage【查看文件系统磁盘空间的使用情况】 [root@MOMOCO-02 ~]# df 文件系统 1K-块 已用 可用 已用% 挂载点 /dev/sda3 18658304 1082268 175...

GYBlinux
2017/12/28
0
0

没有更多内容

加载失败,请刷新页面

加载更多

开始看《Java学习笔记》

虽然书买了很久,但一直没看。这其中也写过一些Java程序,但都是基于IDE的帮助和对C#的理解来写的,感觉不踏实。 林信良的书写得蛮好的,能够帮助打好基础,看得出作者是比较用心的。 第1章概...

max佩恩
昨天
6
0
Redux 三大原则

1.单一数据源 在传统的MVC架构中,我们可以根据需要创建无数个Model,而Model之间可以互相监听、触发事件甚至循环或嵌套触发事件,这些在Redux中都是不被允许的。 因为在Redux的思想里,一个...

wenxingjun
昨天
3
0
跟我学Spring Cloud(Finchley版)-12-微服务容错三板斧

至此,我们已实现服务发现、负载均衡,同时,使用Feign也实现了良好的远程调用——我们的代码是可读、可维护的。理论上,我们现在已经能构建一个不错的分布式应用了,但微服务之间是通过网络...

周立_ITMuch
昨天
2
0
XML

学习目标  能够说出XML的作用  能够编写XML文档声明  能够编写符合语法的XML  能够通过DTD约束编写XML文档  能够通过Schema约束编写XML文档  能够通过Dom4j解析XML文档 第1章 xm...

stars永恒
昨天
0
0
RabbitMQ学习(2)

1. 生产者客户端 void basicPublish(String exchange, String routingKey, boolean mandatory, boolean immediate, BasicProperties props, byte[] body) 1. 在生产者客户端发送消息时,首先......

江左煤郎
昨天
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部