文档章节

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
深圳
程序员
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
Mongo _id 生成和使用

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

SibylY
2016/07/14
18
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

没有更多内容

加载失败,请刷新页面

加载更多

下一页

RabbitMQ在CentOS环境安装

1.废话不多说准备一台虚拟机,系统为centos,我这里使用的系统版本如下图所示:

凌晨一点
46分钟前
0
0
线程池相关

在java.util.concurrent包下,提供了一系列与线程池相关的类。 使用线程池的好处 降低资源消耗。通过重复利用已创建的线程降低线程创建和销毁造成的消耗; 提高响应速度。当任务到达时,任务...

edwardGe
48分钟前
0
0
学习大数据这三个关键技术是一定要掌握!

大数据时代全面来临,大数据、人工智能等技术引领科技创新潮流,获得国家政策大力支持,前景广阔。学习大数据技术的人自然是络绎不绝, 学习大数据虽然是一个趋势,但也要注意大数据培训课程...

董黎明
今天
0
0
jetbrains 上传代码到github

设置中找github 获取token 验证是否成功 测试git 生成key,一路回车即可 ssh-keygen -t rsa -C “youremail@example.com” 打开pub复制key,需要再次输入一次密码 验证是否成功,输入yes即可...

阿豪boy
今天
0
0
分布式服务框架(拾遗)

前言 现在的大部分工程都已经是基于分布式架构来处理。所以这里对分布式框架做一个简单的总结 常用的RPC框架 RPC框架原理 RPC(Remote Procedure Call,远程过程调用)一般用来实现部署在不同...

kukudeku
今天
3
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部