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 +
  ......
函数一:
view plaincopy to clipboardprint?
uses
Windows,
SysUtils,
Classes,
ShellAPI;
function RunAndWait(FileName: string; Visibility: Integer): THandle;&nbs ......
savetime2k@yahoo.com 2004.1.28
http://savetime.delphibbs.com
今天开始学习元件编辑器,感觉比属性编辑器简单许多,但还是遇到了一些疑问。如果你能解答文中记录的问题,请告诉我答案,谢谢!
目 录
===============================================================================
⊙ TBaseComponentEdit ......