delphi笔试题(一)
1、请列举VCL类库中以TObject为根的对象体系(可以只类主干)
2、请列举VCL数据库方面的核心类
3、Delphi中override和overload的作用分别是什么?
4、Delphi中RTTI是什么?有什么作用?
5、如果一个刚部署的Web服务器不能访问,列举出可能存在的原因?
6、在SQL中左连接时什么?它能实现的数据结果集的特点是什么?
7、请问在Oracle和Mssql中如何只取select语句结果集中的前100条?
Oracle:select top 100 * from tablename
Mssql:select * from tablename where rownum < 101
8、二叉树
type
TBTreeNode = class
Data: string;
Left: TBTreeNode;
Right: TBTreeNode;
end;
function NewNode(const Data: string; Left, Right: TBTreeNode): TBTreeNode;
begin
Result := TBTreeNode.Create;
Result.Data := Data;
Result.Left := Left;
Result.Right := Right;
end;
var Root: TBTreeNode;
procedure Init;
begin
{ 建树:
=
X *
+ -
1 2 3 4
}
Root = NewNode('=', NewNode('X', nil, nil),
NewNode('*', NewNode('+', NewNode('1', nil, nil), NewNode('2', nil, nil)),
NewNode('-', NewNode('3', nil, nil), NewNode('4', nil, nil))));
end;
假设变量Root已经有Init初始化,请写出中序遍历Root树的代码,要求输出结果X=1+2*3-4
9、两种数据库结构表及部分记录如下:
编码树:
—————————
ID
01
0102
0103
010204
—————————
父子树:
—————&mda
相关文档:
function ValidatePID(const APID: string): string;
{内部函数,取身份证号校验位,最后一位,对18位有效}
function GetVerifyBit(sIdentityNum: string): Char;
var
nNum: Integer;
begin
Result := #0;
nNum := StrToInt(sIdentityNum[1]) * 7 +
  ......
我一开始以为,将表单设置为隐藏,可以在表单创建事件中即FormCreate(Sender:TObject)去设置
因此, 我在这个procedure TForm.FormCreate(Sender:TObject)中,
想用一下两种方式实现
即:
调用 from.Hi ......
Delphi正则表达式学习,参考CSDN万一老师的BLOG、CSDN、网络资料以及带源码的TPerlRegEx,在此注明,以后不再说明,在些感谢Google老师和百度老师
安装:
下载地址:http://download.csdn.net/source/1668436
1、安装.dpk文件,在Libary中添加TPerlRegEx单元存放路径
2、运行程序前复制pcrelib.dll到C:\WINDOWS下 ......
Unt_Machine_WebDll.pas
BODY {background: #FFFFFF}
A:link { color: #0000FF}
A:visited { color: #0000FF}
A:Active { color: #0000FF}
.bold {font-weight: bold}
.italic {font-style: italic}
.underline {text-decoration: underline}
unit Unt_Machine_WebDll;
{$WARN SYMBOL_PLATFORM OF ......
......