易截截图软件、单文件、免安装、纯绿色、仅160KB

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


相关文档:

在delphi 2010 上安装 RemObjects 6.0.39.777

作为delphi的铁杆,在正式Delphi2010推出后,我当然也要尝尝新鲜,用电驴下来以后安装。呵呵二十多分钟就搞定了,启动也特快,简单使用一下,棒棒!!看来Delphi(太阳神)又回来了,如是我决定抛弃delphi2007,用这个新家伙。我所用的第三方组件主要是RemObjects和reportbuilder,reportbuilder还没有找到安装forD2009 Ful ......

unicode与GB2312转换等Delphi函数


{ 函数 : RESULTSTRING = HexToBin(HEXSTRING)
{ 目的 : 把十六进制字符串转换为二进制字符串
{
{===============================================================}
{ 函数 : RESULTINTEGER = HexCharToInt(HEXCHAR)
{ 目的 : 转换一个十六进制字符为整数
{==================================================== ......

delphi DataSnap巢状主从表实现

服务端:添加ADOConnection,ADOQuery1,ADOQuery2。设置ADOQuery1为主表,ADOQuery2为从表。(通过  ADOQuery2.SQL.Text:= 'select * from 从表 where FKID=:主表PKID'设置)。添加DataSetProvider1和DataSetProvider2分别连接到ADOQuery1和ADOQuery2。
客户端:添加ClientDataSet1,ClientDataSet2。ClientDataS ......

Delphi写网页安全控件(dll,ocx)


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 ......

delphi string类型转integer时出错的检测

procedure TForm1.Button1Click(Sender: TObject);
Var
  Num: Integer;
Begin
  Try
    Num:=StrToInt(Edit1.Text);
    Edit2.Text:=IntToStr(Num*Num);
  Except
    On EConvertError Do   ShowMessage(Edit1.Text+'无法转成整数!'); ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号