Delphi学习笔记二——数据类型

1
2
3
4
type
Thours=0..23;
TValidLetter='A'..'F';
TWorkDay=Monday..Friday;

1
2
var
Str: string;//AnsiString类型

1
2
var
S:string[63];//ShortString字符串类型

1
2
3
4
5
6
7
var
s1,s2:string;
begin
s1:='Hello';
s2:='World';
s1:=s1+s2;
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
'BORLAND'	{ BORLAND }
'You''ll see'	{ You'll see }
''''
{ ' }
''
{ 空串 }
' '
{ 空格 }
#89#111#117	{ You }
#89'Y'#89	{ YYY }
#89 + 'Y' + #89	{ YYY }
#13#10
{ 换行 }

1
2
3
4
//利用windows API设置窗体的标题，字符串类型为PChar
SetWindowText(Handle,'测试');
//利用windows API读取窗体的标题
GetWindowText(Handle,arr,7);

1
2
3
4
5
6
7
8
9
10
11
12
13
14
{字符串指针运算}
procedure TForm1.Button6Click(Sender: TObject);
var
p: PChar;
begin
p:= 'China';
Inc(p);
//p:=p+1;相当于对于指针地址的运算
ShowMessage(p);
//hina
Dec(p);
//p:=p-1;
ShowMessage(p);
end;

1
2
3
4
5
6
s1:= Soundex('abc');
s2:= Soundex('apc');
ShowMessage(s1+','+s2);
b:=AnsiResemblesText('abc','apc');
ShowMessage(BoolToStr(b));
//-1表示相似

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{StrCopy:复制字符串（不进行长度检查）；
StrCat:在原字符串的末尾拼接字符串（不进行长度检查），类似于+；
StrPas:将Pchar转换成string}
procedure TForm1.Button14Click(Sender: TObject);
const
p1: PChar = 'CodeGear';
p2: PChar = 'Delphi';
var
S: array[0..15] of Char;
begin
StrCopy(S,p1);
//StrCat(S,' ');
StrCat(S,p2);
ShowMessage(S);
ShowMessage(StrPas(S));
end;

1
2
3
4
type
TInt=0..255; //BaseType为有序类型
T1 = set of TInt;
//定义集合类型

1
2
3
4
//集合T1中是否有200：
if 200 in T1 then
//TDate中是否没有Mon：
if not (Mon in TDate) then

1
2
Include(T1,256); //在集合中增加256
Exclude(T1,'a'); //在集合中删除'a'

1
2
var
TDou: array [1..25] of Double;

1
2
3
4
type
Dou = array[1..25] of Double;
var
TDou : Dou;

1
2
for i:=1 to 25 do
TDou[i] := 0;

1
2
3
4
5
6
7
type
TEmployee = record;
Name: string[20];
YearHired:1999..2000;
Salary: Double;
Position: string[20];
end;

1
2
var
NewEmployee,PromotedEmployee: TEmployee;

1
NewEmployee.Salary := 1000;

1
2
3
4
5
6
7
with PromotedEmployee do
begin
Name := 'Wang Hong';
YearHired := 1993;
Salary :=2000;
Position :='editor';
end;

1
2
type
PointerName = ^typt;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
type
Pint = ^integer;
//定义指针类型
var
a,b:integer;
pt : Pint;
//整型指针
p : pointer;
//无类型指针
begin
{ TODO -oUser -cConsole Main : Insert code here }
a:= 2;
b:= 3;
pt:=@b;
writeln('b=',pt^);
p:=@a;
//整型指针指向整型数据
b:=integer(p^); //无类型指针指向的内容给整型变量赋值（须经过类型转换）
writeln('b=',b);
pt:=p;
//指针间赋值
writeln('pt^',pt^);
readln;
end.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Chr	//将一个有序数据转换为一个 ANSI 字符
Ord	//将一个有序类型值转换为它的序号
Round	//转换一个实型值为四舍五入后的整型值
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	//将一个零终止字符串转换为浮点数

1
2
{$ WARNINGS OFF}
告诉编译器不要产生警告消息