Question

delphi基本数据类型有哪几种

Answer 1

a、 整数类型： (通用类型<32位>：Integer－有符号；Cardinal－无符号)
具体：
有符号：Shortint<8位>，Smallint<16位>，Longint<32位 >
无符号：Byte<8位>，Word<16位>，LongiWord<32位 >

b、字符类型： (通用类型<8位>：Char －与AnsiChar等同)
具体：
AnsiChar<8位> ：主要存放Ansi字符
WideChar<16位>：主要存放Unicode字符

c、布尔类型： (通用类型<8位>：Boolean－与ByteBool等同)
具体：
ByteBool<8位>，WordBool<16位>，LongBool<32位>
不同的布尔类型主要用于鱼其它编程语言及不同windows系统兼容。

d、枚举类型：
定义：type 枚举类型标识符＝(key1[=val1],.。。。，keyn[=valn]) ：n<=255
如果给某些key指定了值，则未指定值的key是前一个key值加1；
如果全部默认不指定值，则key1值为0，往后逐个加1。

e、子界类型：
定义：type 子界类型标识符＝下界 ．．下界
如：type SubInt＝1．．3 0；表示 1～30的整数
type SubChar＝'a'．．'z'；表示字符

※注：1、以上四种类型称为有序类型，即除第一个数为都有先行数、除最后一个数外都有后继数。在这里

(计算机里)，整数是有限的。有序类型的数都有一个序号，称为序数。整数的序数为其本身，其他类型第一

个数序数为0，依次递增。
2、子界类型上、下界必须是有同一有序类型，且上界序数大于下界序数。

f、浮点类型： (通用类型<8字节>：Real－与Double等同)
具体：
Double<8字节>，Real48<6字节>Single<4字节>,
Extended<10字节>，Comp<8字节>，Currency<8字节>

g、字符串类型： (通用类型：String－与AnsiString等同)
具体：
ShortString ：最多存放255个字符，第一个自己存放字符个数，不以NULL结尾
AnsiString ：存放Ansi字符，以NULL结尾
WideString：存放Unicode字符，以NULL结尾

h、时间、日期类型：TDateTime －实际是浮点类型的别称

Answer 2

a、
整数类型：
(通用类型：integer－有符号；cardinal－无符号)
具体：
有符号：shortint，smallint，longint<32位
>
无符号：byte，word，longiword<32位
>
b、字符类型：
(通用类型：char
－与ansichar等同)
具体：
ansichar
：主要存放ansi字符
widechar：主要存放unicode字符
c、布尔类型：
(通用类型：boolean－与bytebool等同)
具体：
bytebool，wordbool，longbool
不同的布尔类型主要用于鱼其它编程语言及不同windows系统兼容。
d、枚举类型：
定义：type
枚举类型标识符＝(key1[=val1],.。。。，keyn[=valn])
：n<=255
如果给某些key指定了值，则未指定值的key是前一个key值加1；
如果全部默认不指定值，则key1值为0，往后逐个加1。
e、子界类型：
定义：type
子界类型标识符＝下界
．．下界
如：type
subint＝1．．3
0；表示
1～30的整数
type
subchar＝'a'．．'z'；表示字符
※注：1、以上四种类型称为有序类型，即除第一个数为都有先行数、除最后一个数外都有后继数。在这里
(计算机里)，整数是有限的。有序类型的数都有一个序号，称为序数。整数的序数为其本身，其他类型第一
个数序数为0，依次递增。
2、子界类型上、下界必须是有同一有序类型，且上界序数大于下界序数。
f、浮点类型：
(通用类型：real－与double等同)
具体：
double，real48single,
extended，comp，currency
g、字符串类型：
(通用类型：string－与ansistring等同)
具体：
shortstring
：最多存放255个字符，第一个自己存放字符个数，不以null结尾
ansistring
：存放ansi字符，以null结尾
widestring：存放unicode字符，以null结尾
h、时间、日期类型：tdatetime
－实际是浮点类型的别称

Answer 3

Delphi中的基本数据类型包括整型、实型、字符型、布尔型、枚举型和子界型。前4种都是Pascal预先定义好的不需要用户再进行实义的类型，后两种为用户自定义类型。除了实型，其它均为有序类型。

Answer 4

动态创建Access资料库
procedure TForm1.SetupTable(sender:tobject);
Var
CreateAccess:OleVariant;
adocon1:TADOConnection;
strSQL:string;
Const
SConnectionString= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'+
'Jet OLEDB:Database Password=%s;';
begin
CreateAccess:=CreateOleObject('ADOX.Catalog');
if FileExists(ExtractFilePath(application.ExeName)+'delphi_about_Access.mdb') then
exit
else
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
ExtractFilePath(application.ExeName)+'Delphi_About_Access.mdb');
adocon1:=TADOConnection. create(self);
adocon1.ConnectionString:=format(SConnectionString,[ExtractFilePath(application.ExeName)+
'delphi_about_Access.mdb','']);
//栏位内容
strsql:='Create table Shops(ShopID counter PRIMARY KEY,'+
'ShopName char(20),'+
'ShopADD char(30),'+
'ShopPhone char(15),'+
'ShopManager char(10),'+
'ShopMangerPhone char(15),'+
'Remark char(20),'+
'[字串] string,'+
'[数字1] integer,'+
'[数字2] numeric,'+
'[小数] Decimal,'+
'[整数] SMALLINT,'+
'[浮点] FLOAT,'+
'[二进制] binary,'+
'[日期1] DateTime,'+
'[日期2] Date,'+
'[日期3] Time,'+
'[是否] YESNO,'+
'[钱币] CURRENCY,'+
'[OLE物件] LONGBINARY,'+
'[备注] MEMO)';
adocon1.Execute(strsql);//表Shops建立
adocon1.close;
adocon1.free;
end;

//