Delphi的编程语言Object Pascal(4)

1. 标准数据类型



1.1 实型
实型是存储实数的总称， 也统称为浮点类型，值域几乎是无限的，精度较高。

类型	名称	范围	有效数字	字节数
实型	Real	±5.0*10-324 ~1.7*10308	15~16	8
双精度	Double	±5.0*10-324 ~1.7*10308	15~16	8
48位实型	Real48	±2.9*10-39~1.7*1038	11~12	6
单精度	Single	±1.5*10-45~7.4*1038	7~8	4
扩展型	Extended	±7.4*10-4932~1.1*104932	19~20	10
计算型	Comp	-263+1~263-1	19~20	8
货币型	Currency	-922337203685477.5808 ~922337203685477.5807	19~20	8

l 一般定义方法：
Var
VirableName:TypeName;
VirableName是实型变量名，TypeName是实型变量类型。
实数表示方法有两种：
l 小数表示法：
Eg:1.25，-132.67，0.0025，0.0，100.0
l 指数表示法（科学表示法：尾数，指数）
Eg:1.25E0，1.3267E+2，-2.3E-2
l 使用小数表示法，必须要有小数点，且小数点前后的数字(0~9)不能省略。
l 使用科学表示法，尾数和指数都不能省略，指数必须为整数。

1.1.1实型操作函数- 绝对值函数
绝对值函数：Function Abs(X)
返回参数X的绝对值，参数X可以是整型或实型，返回值为非负的整数或实数。
1.1.2 平方/平方根
l 平方函数：
Function Sqr(X:Extended):Extended;
返回参数X的平方：X*X，返回值也是实型数据。
l 平方根函数：
Function Sqrt(X:Extended):Extended;
返回参数X的算术平方根，返回值也是实型数据。
1.1.3 三角函数
三角函数：Delphi提供了三个三角函数
Function Sin(X:Extended):Extended;
Function Cos(X:Extended):Extended;
Function ArcTan(X:Extended):Extended;
(1)参数X为数值表达式。在Sin和Cos函数中X是以弧度为单位的角度，分别返回该角度所对应的正弦和余弦值。ArcTan函数返回的是正切值为X的弧度值。
(2)弧度和角度的换算关系为：π=180º
(3)由这三个基本的三角函数可以导出：
Tan(X)=Sin(X)/Cos(x)
ArcSin(X)=ArcTan(X/Sqrt(1-Sqr(X)))
ArcCos(X)=ArcTan(Sqrt(1-Sqr(X))/X)
1.1.4 整数与小数函数
l 取整数函数：
Function Int(X:Extended):Extended;
参数X为实型表达式，返回X的整数部分，它仍然是实型，小数部分设置为0。
l 取小数函数
Function Frac(X:Extended):Extended;
参数X为实型表达式，返回X的小数部分，Frac(X)=X-Int(X)
1.1.5 取整函数
l 取整函数：
Function Trunc(X:Extended):Int64;
参数X为实型表达式，返回不大于X的整数。
l 舍入函数：
Function Round(X:Extended):Int64;
参数X为实型表达式，返回对X四舍五入后的整数部分。
1.1.6 指数对数函数
l 指数函数：
Function Exp(X:Real):Real;
返回ex，返回值也是实型数据。
l 对数函数：
Function Ln(X:Real):Real;
(1)参数X为正的实型表达式，返回X的自然对数，返回值也是实型数据。
(2)根据公式:Xn=enln(X)，导出Xn=Exp(n*Ln(X))。
(3)常对数 公式，可以求出常对数。
1.1.7 随机函数
Function Random[(Range:Ingeger)];
返回一个大于或等于0且小于参数Range的随机参数，如果缺省参数Range，返回一个大于或等于0且小于1的随机实数。
为了能产生不同的随机数，应在程序启动时调用一次Randomize过程，以初始化内部随机数产生器。Procedure Randomize;
1.1.8 π函数
Function Pi:Extended;
该函数无参数，Delphi提供了一个返回圆周率的函数Pi。

1.2 时间日期型
l 时间日期型是浮点型的一种映射。TDateTime,TDate,TTime;
l 定义的一般格式：
Var
VariableName:TypeName;
VirableName是时间日期类型变量TypeName是TDateTime,TDate,Ttime;
1.2.1 日期时间函数
Function Now:TDateTime;
返回的TDateTime类型其实质是一个Double类型，整数部分表示从1899年12月30日以来所经过的天数，小数部分则表示经过的时间与24小时之比。
Eg:0表示：12/30/1899 12：00AM
Eg:-1.25表示：12/29/1899 6：00Am
1.2.2 日期函数
Function Date:TDateTime;
返回系统系统当前日期
若要计算两日期之差，只需作简单的减法。
1.2.3 时间函数
Function Time:TDateTime;
用来返回系统当前的时间。
若要计算两时间之差，只需作简单的减法。
1.2.4 转换函数
l 日期时间转换字符串函数
Function DateToStr(Date:TDateTime):String;
Function TimeTostr(Time:TDateTime):String;
Function DateTimeToStr(DateTime: TDateTime):String;
把日期或时间转换成字符串。
1.2.5 转换函数
l 日期型转换整型函数
Function EncodeDate(Year,Month,Day: Word):TDateTime;
返回Year,Month,Day所对应的日期。
Procedure DecodeDate(Date,var Year,Month,Day:Word);
返回Year,Month,Day。
l 时间型转换整型函数
Function EncodeTime(Hour,Min,Sec,MSec: Word);TDateTime;
返回Hour,Min,Sec,MSec所对应的时间。
Procedure DecodeTime(Time:TDate,Var Hour,Min,Sec,MSec:Word);
返回Hour,Min,Sec,MSec。
1.2.6 星期函数
l 星期函数
Function DayOfWeek(Date: TDateTime):Integer;
返回整数1~7，1表示星期日，7表示星期六。
1.2.7 日期与时间格式化函数
l 日期与时间格式函数
Function FormatDateTime(Const Format:String; DateTime:TDateTime):String;
将参数DateTime所给的日期时间值按参数Format指定的格式输出。参数Format又称格式化字符串
1.2.8 日期与时间格式化字符串取值和意义

取值	意义
c	使用全局变量ShortDateFormat定义的格式显示日期，使用全局变量LongTimeFormat定义的格式显示时间。时间在日期之后，若时间部分为0，则不显示时间。
d	将日期显示为1~31的格式，没有前导0
dd	将日期显示为1~31的格式，有前导0
ddd	用全局变量ShortDayNames定义的名称显示日期(ShortDayNames,缺省值为：array[星期日..星期六])
dddd	用全局变量LongDayNames定义的名称显示日期(LongDayNames,缺省值为：array[星期日..星期六])
ddddd	用全局变量ShortDateNames定义的名称显示日期
dddddd	用全局变量LongDateNames定义的名称显示日期
m	将月份显示为1~12的格式，没有前导0
mm	将月份显示为1~12的格式，有前导0
mmm	用全局变量ShortMonthNames定义的名称显示月份(ShortMonthNames缺省值为：array[一月..十二月])
mmmm	用全局变量LongMonthNames定义的名称显示月份(LongMonthNames缺省值为：array[一月..十二月])
yy	将年份显示为00~99的格式
yyyy	将年份显示为0000~9999的格式
h	将小时显示为0~23的格式，没有前导0
hh	将小时显示为0~23的格式，有前导0
n	将分钟显示为0~59的格式，没有前导0
nn	将分钟显示为0~59的格式，有前导0
s	将秒钟显示为0~59的格式，没有前导0
ss	将秒钟显示为0~59的格式，有前导0
t	用全局变量ShortTimeFormat定义的格式显示时间
tt	用全局变量LongTimeFormat定义的格式显示时间
AM/PM	使用12h制显示时间(h和hh)，上午显示AM下午显示PM
A/P	使用12h制显示时间(h和hh)，上午显示A下午显示P
Ampm	使用12h制显示时间(h和hh)，上午显示全局变量TimeAMString的内容，下午显示全局变量TimePMString的内容。
/	显示全局变量DateSeparator指定的日期分隔符
：	显示全局变量TimeSeparator指定的日期分隔符
‘xx’/”xx”	单引号或双引号中的字符串将原样输出

当Format参数为空时，相当于取值为“C”。
FormatDatetime(‘“今天是：”dddddd,ddd’,date)

1.3 字符串型
l 有限长字符序列的集合称为字符串类型。默认情况下，字符串类型变量最多可以包含255个字符，也可以在定义字符串变量时指明其所包含字符的最大个数。
l 定义的一般格式：
Var
VariableName:TypeName [number] ;
VariableName是字符串变量名，TypeName是字符串类型。
1.3.1 字符串类型

类型	名称	最大长度	所需内存	用途	是否以Null结尾
字符串型	String	255个字符或约231个字符	2~256bytes	通用字符串型	是
短字符串型	ShortString	255个字符	2~256bytes	兼容以前版本的字符串类型	否
Ansi字符串型(长字符)	AnsiString	约231个字符	4bytes~2G	8字节的ANSi字符	是
宽字符串型	WideString	约230个字符	4bytes~2G	Unicode字符	是

1.3.2 大小写转换函数
Function LowerCase(Const S:String):String;
返回小写字符串。
Function UpperCase(Const S:String):String;
返回大写字符串。
1.3.3 比较先后函数
Function CompareStr(Const S1,S2:String): Integer;
Function CompareText(Const S1,S2:String): Integer;
(1)S1>S2返回函数值大于0，S1<S2返回函数值小于0，S1=S2返回函数值等于0
(2)CompareStr()区分大小写，CompareText()不区分大小写
1.3.4 合并字符串函数
Procedure AppendStr(Var Dest :string:const S:String);
相当于执行Dest:=Dest+S;
Function Concat(S1[,S2,S3,…]:String);
用来合并多个字符串
1.3.5 查找字符串函数
Function Pos(Substr:String;S:String):Integer;
Pos(S0,S)返回字符串S0在字符串S中的位置（整数值），若S0不在S中，则返回0。
1.3.6 求字符串长度函数
Function Length(S:String)：Integer;
返回字符串S的长度值（整数值）。
1.3.7 截取字符串函数
Function Copy(S:String,Index,Count:Integer):String;
如果Index大于字符串的长度，则返回一个空串，如果从Index开始到S的结尾不足Count个字符，则返回从Index开始到S结尾的所有字符。
1.3.8 删除字符串函数
Procedure Delete(Var S:String;Index,Count: Integer);
如果Index大于字符串的长度则不删除任何字符，如果从Index开始到S的结尾不足Count个字符，则返回从Index开始到S结尾的所有字符。
1.3.9 插入字符串函数
Procedure Insert(Source:String ; Var S:String ; Integer:Integer);
Insert(S0,S,n)将字符串S0插入到字符串S中的第n个字符处。
1.3.10 设置字符串值函数
Procedure SetLength(Var S; NewLength:Integer);
S ，NewLength是一个整形变量，用来确定长度，
SetLength(S0,3);表示从字符串S0中取出前三个字符再存入变量S0中。
1.3.11 截取字符串空格函数
Function Trim(Const S:String);String;
Function TrimLeft(Const S:String):String;
Function TrimRight(Const S:String):String;
Trim用来清除字符串两端的空格。
TrimLeft用来清除字符串左边的空格。
TrimRight用来清除字符串右边的空格。
1.3.12 数值与字符串转换函数
l 数值型转换成字符串型
Procedure Str(Const X[:Width [:Decimals]],Var S:String);
参数Width与Decimals分别为指定的宽度与小数位数。如果X为整型，则S为整型格式，如果X为实型，则S为科学计数格式。
l 字符串型转换成数值型
Procedure Val(S:String,Var V,Var Code:Integer);
参数S为字符串。V可以是整型，也可以是实型，Code为整型。如果不为0，则表示转换过程出现错误。
l 整型数据转换成字符串型
Function InttoStr(Value:Integer):String;
函数返回整型数据Value的10进制格式的字符串。
l 实型数据转换成字符串型
Function FloattoStr(Value:Extended):String;
函数返回实型数据Value的普通数字格式的字符串。转换的有效精度为15位。
l 数字字符串转换成整型数值
Function StrToInt(Const S:String):Integer;
函数的参数可以是10进制或16进制格式的字符串，若为非法的数字字符串，系统将引发EconvertError错误。
l 数字字符串转换成实型数值
Function StrToFloat(Const S:String):Extended;
函数的参数是定点或浮点格式的字符串，若为非法的数字字符串，系统将引发EconvertError错误。
l 10进制转换为16进制格式函数
Function IntToHex(Value:Integer,Digits: Integer):String;
函数返回一个字符串，Digits为字符串的最小位数。在位数不足时以0在左边填充。
1.3.13 数值与字符串格式化函数
l 字符串格式化函数
Function Format(Const Format:String;Const Args:Array of Const):String;
Format是“格式字符串”，可以包括字符信息，也可以包含参数组Args中参数的类型和格式信息。
l 类型和格式信息由字符“%”开头，格式入下：
%[<参数位置：>:][-][<所占宽度>][.<小数位数>]<类型>
若缺省[<参数位置：>:]，则从左到右依次分配各参数。“-”表示左对齐，若缺省则右对齐。<类型>为参数的类型，其可能的取值和意义如下表：

取值	意义
d	10进制整数，在<小数位数>中可以指定转换后数的最小位数，若小于该位数则在其左边填0
u	无符号10进制整数，与d相似
e	浮点类型
f	定点类型
g	实数，结果为最短字符串型式，可以是浮点形式或定点形式
n	数值格式实数：与f相似，但整数部分加上千位分隔符“，”
m	货币形式
p	指针形式
s	字符串形式
x	16进制整数，与d相似

l Eg:
Format(‘%s申办%d奥运会成功’,[‘北京’,2008])

附练习题：
1、创建一个delphi应用程序项目。在窗体中加入一个button1 和三个edit。第一个edit输入圆的半径，在edit2和edit3中分别输出圆的周长和面积。

var r : Integer; procedure TForm1.Button1Click(Sender: TObject); begin r := StrToInt(self.Edit1.Text); self.Edit2.Text := floattostr(r * Pi); self.Edit3.Text := floattostr(r*r*Pi); end;

2、创建一个delphi应用程序项目。并使用随机数，产生10题0-100的加法运算。
并能判断结果的正误和统计成绩。

不太了解这个题目的意思，反正我是这么写

procedure TForm1.Button1Click(Sender: TObject); var Num,i,iCount,iRight,iR1,iR2 : integer; begin Num :=strtoint(self.Edit1.Text); iCount := 0; for i:=1 to 10 do begin iCount :=iCount + 1; iR1 := Random(50); iR2 := Random(50); if(Num = (iR1 + iR2)) then begin iRight := iRight + 1; end; end; showmessage('进行了：' + intTostr(iCount) + '次随机运算' +#13 + '正确的次数为' + intTostr(iRight)); end;