不同的类有不同的成员，一般子类的成员是在父类的成员的后面增加了新的成员，如果子类转为父类，那这些新增加的成员虽然还存在，但
是就不可以访问得到了。如果父类转为子类，那可能导致不可预知的错误，因为某个成员的指针指向的地址根本就不是具有实际成员。
类型的转换也有很多类的，有隐性的和显性的，一些专用的类型转换函数，会重新建立一个新类型目标对象，然后把就类型的数值移动过去
，然后销毁旧对象。一些隐性的转换，对象本身没改变，就把指针类型换一了一下。
@用于取地址！最方便的用法：
在调用Api的时候，举个例子：
我们调用Api的时候，经常要用到pchar类型，而Pchar类型的内存管理是一个很头
疼的事情。在使用时要先Getmem,最后还要freemem，如果用了@就方便了。声明一
个string类型的变量abc,然后在调用的时候使用@abc就可以了。
DateTimeToFileDate
函数
将DELPHI的日期格式转换为DOS的日期格式
DateTimeToStr
函数
将日期时间格式转换为字符串
DateTimeToString
函数
将日期时间格式转换为字符串
DateToStr
函数
将日期格式转换为字符串
FileDateToDateTime
函数
将DOS的日期格式转换为DELPHI的日期格式
FloatToDecimal
函数
将浮点数转换为十进制数
FloatToStrF
函数
将浮点数转换为字符串
FloatToStr
函数
将浮点数转换为字符串
FloatToText
函数
将给定的浮点数转换为十进制数
FloatToTextFmt
函数
将给定的浮点数转换为十进制数
IntToHex
将整型数转换为十六进制数
IntToStr
将整型数转换为字符串
StringToWideChar
函数
将ANSI字符串转换为UNICODE字符串
StrToDate
函数
将字符串转换为日期格式
StrToDateTime
函数
将字符串转换为日期/时间格式
StrToFloat
函数
将给定的字符串转换为浮点数
StrToInt
函数
将字符串转换为整型
StrToIntDef
函数
将字符串转换为整型或默认值
StrToTime
函数
将字符串转换为时间格式
TextToFloat
函数
将字符串（以NULL结束的格式）转换为浮点数
TimeToStr
函数
将时间格式转换为字符串
VarToDateTime
函数
将给定的变体转换为日期时间
WideCharLenToString
函数
将ANSI字符串转换为UNICODE字符串
WideCharToString
函数
将UNICODE字符串转换为ANSI字符串
WideCharToStrVar
函数
将UNICODE字符串转换为ANSI字符串变量
procedure
GetMem(var P: Pointer; Size:
Integer);
//分配动态内存
function
StrPas(const Str: PChar): string;
//将PChar转换为String
delphi数据类型转换函数
计算机知识
2009-11-26 11:02 阅读100 评论0
字号：
大大 中中 小小
在我们编写程序当中，根据不同情况，会使用到多种数据类型。当要对不同的类型进行操作时，必须要将不同的类型转换成同样的类型。因此熟练地掌握数据类型的转换是非常重要的。
1.FloatToStr
功能说明：该函数用于将“浮点型”转换成“字符型”。
参考实例：
Edit1.Text
:= FloatToStr(1.981);
2.IntToStr
功能说明：该函数用于将“整数型”转换成“字符型”。
参考实例：
S
:= IntToStr(10);(注：S为String类型变量。)
3.IntToHex
功能说明：该函数用于将“十进制”转换成“十进制”。该函数有二个参数。第一个参数为要转换的十进制数据，第二个参数是指定使用多少位来显示十六进制数据。
参考实例：
Edit1.Text
:= IntToHex(‘‘100‘‘, 2);
执行结果，Edit1.Text等于64。
注意：Delphi没有提供专门的“十六进制”转换为“十进制”的函数。使用StrToInt函数可以实现这个功能。具体代码是：I
:= StrToInt(‘‘S\‘‘ + ‘‘64‘‘); 这时I等于100。加上一个‘‘S\‘‘即可将“十六进制”转换为“十
进制”。
4.StrToInt
功能说明：该函数用于将“字符型”转换成“整数型”。
参考实例：
I
:= StrToInt(‘‘100‘‘);
注意：不能转换如
StrToInt(‘‘ab‘‘)或StrToInt(‘‘好‘‘)这样的类型，因为他们并不存在数字型。
4.2
StrToIntdef(‘字符‘,数字)
功能说明：返回字符串S转换成整数
说明
字符串非整数表达时则返回默认值Default
参考实例：
SpinEdit1.Value
:= StrToIntDef(Edit1.Text, 0);
注意：当Edit1.Text转换成非整数表达时，则返回默认值0。
5.StrToFloat
功能说明：该函数用于将“字符型”转换成“浮点型”。
参考实例：
N
:= StrToFloat(Edit1.Text);
注意：Edit1.Text中的内容为1.981(凡在Edit控件中显示的文本均为字符串)。N为Double类型，用于保存转换后的浮点型数据。
DateTimeToFileDate
函数 将DELPHI的日期格式转换为DOS的日期格式
DateTimeToStr
函数 将日期时间格式转换为字符串
DateTimeToString
函数 将日期时间格式转换为字符串
DateToStr
函数 将日期格式转换为字符串
FileDateToDateTime
函数 将DOS的日期格式转换为DELPHI的日期格式
FloatToDecimal
函数 将浮点数转换为十进制数
FloatToStrF
函数 将浮点数转换为字符串
FloatToStr
函数 将浮点数转换为字符串
FloatToText
函数 将给定的浮点数转换为十进制数
FloatToTextFmt
函数 将给定的浮点数转换为十进制数
IntToHex
将整型数转换为十六进制数
IntToStr
将整型数转换为字符串
StringToWideChar
函数 将ANSI字符串转换为UNICODE字符串
StrToDate
函数 将字符串转换为日期格式
StrToDateTime
函数 将字符串转换为日期/时间格式
StrToFloat
函数 将给定的字符串转换为浮点数
StrToInt
函数 将字符串转换为整型
StrToIntDef
函数 将字符串转换为整型或默认值
StrToTime
函数 将字符串转换为时间格式
TextToFloat
函数 将字符串（以NULL结束的格式）转换为浮点数
TimeToStr
函数 将时间格式转换为字符串
VarToDateTime
函数 将给定的变体转换为日期时间
WideCharLenToString
函数 将ANSI字符串转换为UNICODE字符串
WideCharToString
函数 将UNICODE字符串转换为ANSI字符串
WideCharToStrVar
函数 将UNICODE字符串转换为ANSI字符串
一、数的类型转换
把表达式的类型从一种类型转化为另一种类型,结果值是把原始值截断或扩展,符号位保持不变。例如:
数的类型转换
举例
字符转换为整数
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:[email protected][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:[email protected][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:[email protected][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:[email protected][1];
{p:[email protected];
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:[email protected][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;
能打开一个与这个结构相应的物理文件、向文件中写入整数、或者从文件中读取当前的值
Delphi 常见数据类型转换,码迷,mamicode.com