文档章节

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
Mongo _id 生成和使用

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

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

没有更多内容

加载失败,请刷新页面

加载更多

Python深体验,常见的数据处理方式(必须要懂的)

1.缺失值处理 - 拉格朗日插值法 input_file数据文件内容(存在部分缺失值): from scipy.interpolate import lagrangeimport pandas as pdimport numpy as npinput_file = './dat...

无也Python
27分钟前
2
0
Spring MVC注解故障追踪记

Spring MVC是美团点评很多团队使用的Web框架。在基于Spring MVC的项目里,注解的使用几乎遍布在项目中的各个模块,有Java提供的注解,如:@Override、@Deprecated等;也有Spring提供的注解,...

Skqing
29分钟前
4
0
区块链入门教程以太坊源码分析cmd包分析

  兄弟连区块链入门教程以太坊源码分析cmd包分析。 ### cmd包概述 * geth 主要Ethereum CLI客户端。它是Ethereum网络(eth主网,测试网络或私有网)的入口点,使用此命令可以使节点作为ful...

兄弟连区块链入门教程
30分钟前
1
0
@Autowired 报红线

代码可正常跑,不过红线看着有点难受,解决方案 使用@Autowired(required=false) 或者@Resource. 这两者区别网上一大堆

斩神魂
36分钟前
3
0
DataTable中检索信息 (C#)

C#_从DataTable中检索信息 存在于内存中的虚拟表DataTable,绑定在数据显示控件后,如果想在再检索其中某些信息,可以利用DataTable.Select方法进行检索,避免了重复的读取数据库。Select方法...

CS-CS01
44分钟前
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部