本篇文章主要介绍了" delphi数据类型转换"，主要涉及到方面的内容，对于Delphijrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播感兴趣的同学可以参考一下：
//Char 类型与其编码的转换:varb: Byte;c: Char;beginb := Ord('A'); {返回: 65}b := Ord(#65);...
字符转换为整数 Integer(′A′)
整数转换为字符 Char(48)
整数转换为1个字节的逻辑型 Boolean(0)
整数转换为2个字节的逻辑型 WordBool(0)
整数转换为4个字节的逻辑型 LongBool(0)
整数转换为10进制pascal型字符串 caption:=intToStr(15)
整数转换为16进制pascal型4位字符串 caption:=intToHex(15,4)
地址转换为长整型数 Longint(@Buffer)
二、数的“分开”与“合成”
取32位longint型数的 高16位数为 hiword(longint－var)
低16位数为 loword(longint－var)
取16位数的 高8位数为 hibyte(integer_var)
低8位数为 lobyte(integer_var)
取32位地址的段选择符和偏移量 段选择符(高16位地址)为 selectorof(p)
偏移量(低16位地址)为 offsetof(p)
段选择符和偏移量合成为指针 Ptr(SEG, OFS: Word)相当于C语言的宏MK－FP(SEG,OFS)
例如在Windows中,Task DataBase结构0FAh偏移处包含′TD′标识,我们可以容易地编写如下代码观察到这个位于Windows内部的未公开的秘密:
{函数ptr(seg,ofs)的用法,相当于C语言的MK－FP(seg,ofs)}
var p:pbyte;ch:char;
p:=ptr(getcurrentTask,＄FA);
ch:=char(p^); {结果为ch=′T′}
p:=ptr(getcurrentTask,＄FA+1);
ch:=char(p^); {结果为ch=′D′}
三、字符串string 字符数组与指向字
符串的指针pchar的区别与联系
这3者的基本概念相同,但有一些非常细微的差别,在编程时稍不注意就会出错,需高度重视。
1、使用指向字符串的指针,如果不是以0结尾,运行时就会出现错误。为了避免这种错误,需要在字符串结尾人工加入0 即char(0),或用strpcopy函数在字符串结尾自动加0。
例1: 指向字符串的指针,如果不是以0结尾,运行时会出现错误:
{s[0]=3 s[1]=′n′ s[2]=′e′ s[3]=′w′}
var
s:string;
p:pchar;
begin
s:=′new′;
label1.caption:=s; {new}
label2.caption:=intTostr(integer(s[0]));{3是字符串的长度}
p:=@s[1];{不是以0结尾,莫用pchar型指针}
label3.caption:=strpas(p); {运行时出现错误}
end;
例2:在字符串结尾人工加入0即char(0),可使用指向字符串的指针。
{s[0]=4 s[1]=′n′ s[2]=′e′ s[3]=′w′ s[4]=0;}
{p－－>′new′}
var
s:string;
p:pchar;
begin
p:=@s[1];
s:=′new′+char(0); {以0结尾,可用pchar型指针}
label1.caption:=strpas(p); {new}
label2.caption:=s; {new}
label3.caption:=intTostr(integer(s[0])); {4是字符串长度}
end;
例3: 用strpcopy函数赋值会在字符串s结尾自动加0。
{s[0]=4 s[1]=′n′ s[2]=′e′ s[3]=′w′ s[4]=0;}
{p－－>′new′}
var
s:string;
p:pchar;
begin
p:=@s[1];
strpcopy(p,′new′);{strpcopy函数在字符串结尾自动加0}
label1.caption:=strpas(p);{new}
label2.caption:=s;{new}
label3.caption:=intTostr(integer(s[0]));{4}
end;
2、下标为0的字符串标识符存放的是字符串长度,字符型数组基本相当于字符串,但不能存放字符串长度。字符串可以用s:=′a string′的形式赋值,但是字符型数组a[ ]不可直接用a:=′array′的形式赋值,用此种形式会出现类型不匹配错误,可选用strpcopy函数赋值。
例4: 字符型数组s[ ]相当于字符串,但没有存放字符串长度的位置。
{s[1]=′n′ s[2]=′e′ s[3]=′w′ s[4]=0;
{p－－>′new′}
var
s:array[1..10] of char;
p:pchar;
begin
{s:=′new′+char(0); error}{错误}
p:=@s[1];
{p:=@s; is not correct}
strpcopy(p,′new′);
label1.caption:=strpas(p);{new}
label2.caption:=s;{new}
{label3.caption:=intTostr(integer(s[0]));}{不会出现4, 下标超出错误}
end;
例5:下标从0开始的字符数组s,s相当于@s[0]。
{ s[0]=′n′ s[1]=′e′ s[2]=′w′ s[3]=0;}{p－－>′new′}
var
s:array[1..10] of char;
p:pchar;
begin
{s:=′new′+char(0); error}{错误}
p:=s;
{p:=@s[0] is also correct}
strpcopy(p,′new′);
label1.caption:=strpas(p);{new}
label2.caption:=s;{new}
label3.caption:=s[0];{n}
end;
3、下标从0开始和从1开始的字符数组地址的表示方法也有细微不同:
例6:下标从1开始的数组a 与下标从0开始的数组b 的比较。
var
a:array[1..10]of char;
b:array[0..10]of char;
{a:=′1..10′;}{type mismatch}
{b:=′0..10′;}{type mismatch}
begin
strpcopy( b, ′from 0 to 10′); {正确 因为b即是@b[0] }
strpcopy(@b[0], ′from 0 to 10′); {正确 与上个表达式结果相同}
strpcopy(@a[1], ′from 1 to 10′); {正确 }
strpcopy( a, ′from 1 to 10′); {类型匹配错误 因为a即是@a[0]}
end;
0
0
0
】Delphi中关键字，优先法则，类型转换等相关
Trunc 转换一个实型值为小数截断后的整型值
Int 返回浮点数的整数部分
IntToStr 将数值转换为字符串
IntToHex 将数值转换为十六进制数字符串
StrToInt 将字符串转换为一个整型数，如字符串不是一个合法的整型将引发异常
StrToIntDef 将字符串转换为一个整数，如字符串不合法返回一个缺省值
Val 将字符串转换为一个数字（传统Turbo Pascal例程用于向后兼容）
Str 将数字转换为格式化字符串（传统Turbo Pascal例程用于向后兼容）
StrPas 将零终止字符串转换为Pascal类型字符串，在32位Delphi中这种类型转换是自动进行的
StrPCopy 拷贝一个Pascal类型字符串到一个零终止字符串, 在32位Delphi中这种类型转换是自动进行的
StrPLCopy 拷贝Pascal类型字符串的一部分到一个零终止字符串
FloatToDecimal 将一个浮点数转换为包含指数、数字及符号的十进制浮点记录类型
FloatToStr 将浮点值转换为缺省格式的字符串
FloatToStrF 将浮点值转换为特定格式的字符串
FloatToText 使用特定格式，将一个浮点值拷贝到一个字符串缓冲区
FloatToTextFmt 同上面例程，使用特定格式，将一个浮点值拷贝到一个字符串缓冲区
StrToFloat 将一个Pascal字符串转换为浮点数
TextToFloat 将一个零终止字符串转换为浮点数
Dec 将例程中的参数值递减1或一个特定的值，其中特定值可在第二个可选参数中定义
Inc 将例程中的参数值增加1或一个特定的值
Odd 如果参数为奇数返回真
Pred 根据参数在其数据类型定义中的序列，返回参数值的前驱值
Succ 返回参数值的后继值
Ord 返回参数值在其数据类型值集合中的序号
Low 返回参数对应的有序数据类型的最小取值
High 返回参数对应的有序数据类型的最大取值
实数：
Single
Double
Extended
Real {$REALCOMPATIBILITY ON}据说不标准，要兼容旧的格式使用这个宏
Comp
Currency
TDateTime = type Double
为了后续使用或直接用于变量，需要给自定义类型命名。如果自定义一个命名的类型，你必须将代码放在特定的type区，如下所示：
最多的如定义类等。
type
Uppercase = 'A'..'Z';
Temperatures = array [1..24] of Integer;
Date = record
Month: Byte;
Day: Byte;
Year: Integer;
end;
Colors = (Red, Yellow, Green, Cyan, Blue, Violet);
Letters = set of Char;
end;
子界类型
a...b
a~b为有序类型
枚举类型
type
Colors = (Red, Yellow, Green);//园括弧括起来的，在属性列表中最多出现。
end;
只能有一个值
CPP = enum
集合类型
type Letters = set of Char;
var Letters1,Letters2etters;
begin
Letters1 := ['A'.'B'.'C'];
Letters2 := ['K'];
end;
是什么什么的集合，可以有多个属性。
CPP = 多字段与或
Font.style := [fsBold, fsItalic]; // two styles
Font.style :=Oldstyle + [fsBold, fsItalic];
数组类型
type
MonthTemps = array [1..24, 1..31] of Integer;
YearTemps = array [Jan..Dec] of Integer;
记录类型
type
Date = record
Year: Integer;
Month: Byte;
Day: Byte;
end;
类似 structure
指针
type
PointerToInt = ^Integer;
var
P:^Integerl
X:Integer;
begin
P := @X; p = &x;
X :=10; x = 10;
P^ :=20; *p = 20;
end;
除了表示已分配内存的地址外，指针还能通过New 例程在堆中动态分配内存，不过当你不需要这个指针时，你也必须调用Dispose 例程释放你动态分配的内存。
P:=nil;
Pointer 类型，如void *;
实际上，Delphi 中必须使用指针的情况很少，这是Delphi开发环境一个诱人的优点。
文件类型
type
IntFile = file of Integer;
能打开一个与这个结构相应的物理文件、向文件中写入整数、或者从文件中读取当前的值
-------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------
怎样才能访问pointer指针的所有数据？（最好有多种方法一起说明）
例：
var
p:pointer
begin
p:=一个指针变量
p:=p+1;//为什么不能这样使用？怎样才能指向下一个地址？
end;
var
p: pointer;
s: string;
begin
s:= 'abc';
p:= PChar(s); //给指针赋值
p:= Pointer(Integer(p)+1); //把指针后移一位
Caption:= string(Char(p^)); //读取后移后的指针内容
end;
我有这样一段代码
var
Pos: Byte;
PP: PByte;
Pos ：＝ 1
PP := PP + Pos;
PP^ := 12;
在这三句话中Delphi老是说第二句有错误，我知道如果写成这样是没有问题的PP【Pos】 ：＝ 12；
但是有时候就是感觉和C的不一样，不习惯（一直是用C做底层的东东，改了太难受了，呵呵）
Delphi 里面的Integer 和 Pointer， 0 和 nil前两天，一个同事问我关于Delphi里面Pointer的问题，便和他一起推敲， 结果发现一个有趣的结论：Delphi里面， nil = 0; 想想，这也是很好理解的， 在32位Windows操作系统里面， 一个整数是32位， 一个指针也是32位的无符号整数。 但是，具体编程上的操作，却比较有趣， 各位老大请看：vara : Pointer;begin
// a :=
nil;if Assigned(a) thenbegin ShowMessage('我有种')endelse begin ShowMessage('我没种')endend; 结果是：'我有种'， 说明Pointer和Integer一样，声明后，必须初始化。再看下面：vara : Pointer;begina
:= 0;if Assigned(a) thenbeginShowMessage('我有种')endelse begin ShowMessage('我没种')endend; 结果是：'我没种'， 说明对于Pointer，nil其实就是等于这个Pointer里面的内存地址是$00000000。
指针 Pointer @
var p1,p2,p3:pointer
S:String;
I:Integer;
begin
p1:= Pointer(S);
p2:= @S;
P3:= pchar(s);
// p1 和 p2 p3 有什么区别吗？
// Pointer(S)^ 字符串和Buffer
end;
Pointer 是Borland VCL 的一个结构类型.
因此还有 PPointer 这样一个东东呢！.指针的指针,如同管理类的类.
@是取地址的操作.什么都可以取地址.但取出来的不一定可以进行内容的访问.
这就是一个数了,脱离了实际的现场就没有意义了。(一个变量不可能下次还使用同一个物理内存吧 呵呵)
pchar 指的是字符串数组的首地址. 后面连续的字符串直到 "\0" 结束.
虽说有些需用到的功能Delphi或第三方大都已提供元件或原始码,
但如果欲从C++自己转些码来用真是麻烦,
看看下面
