数学建模社区-数学中国

标题: [分享]Delphi试题51道 [打印本页]

作者: ilikenba    时间: 2005-6-7 17:38
标题: [分享]Delphi试题51道
<><FONT face="Times New Roman">1.dbExpress</FONT>组件访问数据库是通过哪种方式与特定的数据库连接的?(<FONT face="Times New Roman">C</FONT>)</P>
. l  V1 [4 P" i, J2 P* ]  @<><FONT face="Times New Roman"><B>A. </B>BDE# k5 q9 n. s9 O
<br></FONT>
* Y% h" ~/ Z  _2 V2 a<p>/ V. M+ x& y& S( R' Z1 X. y  `* J
<><FONT face="Times New Roman">B.</FONT>其他三项都不是( b* O/ d) Z! m: m: G
<p>
4 q2 v2 e9 ]7 h1 ?: w# W. J/ }<p>
* h$ ~% Y! D6 l; w- N( `<><FONT face="Times New Roman">C.DbExpress</FONT>自己的数据库连接<FONT face="Times New Roman">DLL$ W' G2 P3 _  ]# p% R3 V7 t
<p></FONT>0 j" p# y# P7 j9 c5 l  S
<p>
- @! l/ _" _8 D* y<><FONT face="Times New Roman">D.ODBC
4 d+ }  P5 X6 {! j<p></FONT>
1 S% F' {9 K5 h<p>
: A2 ]& F  u1 t' H4 y<><FONT face="Times New Roman">2.</FONT>在<FONT face="Times New Roman">try</FONT>语句中使用多个<FONT face="Times New Roman">except</FONT>语句可以处理多个不同的异常情况。(<FONT face="Times New Roman">A</FONT>)
0 q: f+ [& O4 B) g. U<p>
9 y7 _% t1 h" m9 G& {! Y7 p<p>
* r$ p" ~5 i5 Q% R  s) f; z<><FONT face="Times New Roman">A.</FONT>错误
8 G% W0 F+ I5 L! {' l<p>2 I1 h" M! y& y3 |  @+ ^) A
<p># g  z) {! c% A
<><FONT face="Times New Roman">B.</FONT>正确
# v. E. }1 O) y. L  g% m5 q2 L" Q<p>% H8 p+ _2 T$ q% R, ^
<p>
- X: W+ ^/ G9 Y5 l<><FONT face="Times New Roman">3.DWORD</FONT>,<FONT face="Times New Roman">UINT</FONT>,<FONT face="Times New Roman">HResult</FONT>以及<FONT face="Times New Roman">WinAPI</FONT>函数中各种<FONT face="Times New Roman">Handle</FONT>等于<FONT face="Times New Roman">Delphi6</FONT>中的哪种数据类型?(<FONT face="Times New Roman"> A</FONT>)8 V, n/ g. U, Z% p! \
<p>& E" c, r  f5 `4 S' w$ I
<p>
. R7 V, `! ]: j% i' K<><FONT face="Times New Roman">A.LongWord
  {* v- V" J9 {1 \<p></FONT>
" T6 F2 v% x, S' k& R8 \<p>
3 ?4 }" @% ^7 {- B1 X+ ?<><FONT face="Times New Roman">B.UnsignedInt
" A4 @5 P: t  _<p></FONT>
: P* D8 n2 S; V# z! p<p>) X- N( l; i/ k' I
<><FONT face="Times New Roman">C.LongInt
; L9 R. \* q: i7 l% T<p></FONT>
( `$ b0 S- s7 Z1 v) t! t/ W<p>
+ Q  M8 \' p8 ^7 r7 p) r$ i( U<><FONT face="Times New Roman">D.Word, m" Y  h" j7 o. M* x/ J
<p></FONT>/ V# e. [  z; X8 K! @
<p>
6 a* Q5 V3 X2 }) P* t# h. D8 d7 |<><FONT face="Times New Roman">4.</FONT>窗体上放置有一个<FONT face="Times New Roman">TPanel</FONT>类的控件<FONT face="Times New Roman">anel1</FONT>,并定义了<FONT face="Times New Roman">anel1</FONT>的<FONT face="Times New Roman">OnEnter</FONT>事件,下面说法正确的是:(<FONT face="Times New Roman">C</FONT>)( J8 F. C& N0 T5 q7 x
<p>
) y7 v5 c! V6 N+ B<p>1 n* |0 q% F; @3 g9 y
<><FONT face="Times New Roman">A.</FONT>当鼠标移动到<FONT face="Times New Roman">anel1</FONT>上面时产生<FONT face="Times New Roman">anel1OnEnter</FONT>事件% {' d$ }, F* F4 ]( `5 c3 {
<p>( M$ D! R9 m( C+ a( M) }6 a
<p>
. C! h8 e2 X& M& _<><FONT face="Times New Roman">B.</FONT>其他三项都不对
: u: ], _! S5 o, G<p>1 i6 K6 C" O5 y' P# l6 e2 o' Q% C
<p>
' B) m! S1 \6 Z6 X4 i. A" d  G<><FONT face="Times New Roman">C.</FONT>当<FONT face="Times New Roman">anel1</FONT>获得焦点时产生<FONT face="Times New Roman">anel1OnEnter</FONT>事件
2 Z7 P$ Q3 Y% u1 P<p>4 X1 M( {1 N  U  B
<p>
/ s  A! a# d6 ]0 i5 S<><FONT face="Times New Roman">D.</FONT>当鼠标在窗体上移动时产生<FONT face="Times New Roman">anel1OnEnter</FONT>事件
( b. F9 W' |; l0 R9 m  {# I) f<p>3 @+ g6 z- y. s3 s- @1 O+ V# M
<p>
7 J3 g5 ?7 C! f) E3 P<><FONT face="Times New Roman">5.</FONT>下面关于数据集<FONT face="Times New Roman">BookMark</FONT>的说法那个是正确的?(<FONT face="Times New Roman">A</FONT>)- ~3 q' N/ w. g4 {) K
<p>
; o/ [) E) R3 a; E" m  ]3 m: Q<p>
0 z5 _( O5 j. X/ D: Q# U# _<><FONT face="Times New Roman">A.BookMark</FONT>类型的变量是一个对象指针,需要用<FONT face="Times New Roman">BookMark Create</FONT>来建立<FONT face="Times New Roman">BookMark</FONT>,用<FONT face="Times New Roman">BookMark.free</FONT>来释放
2 C& \* Z3 N0 y2 j<p>
+ H6 U7 t& X& A9 {; r<p>
0 Y: {) C$ {7 D) K<><FONT face="Times New Roman">B.BookMark</FONT>本质上是一条记录类型,无须建立和释放* b& j' H" S( D8 E; K# X, L
<p>6 W5 k* D3 R4 V! A; h9 B% Z" v
<p># `$ k: {% l5 T& Q0 n
<><FONT face="Times New Roman">C.Delphi</FONT>中,一个数据集组件只能建立一个书签<FONT face="Times New Roman">BookMark+ A6 u4 s$ }; f* E
<p></FONT>6 O# v( z) Z+ a/ r7 ^
<p>
( Y0 P" R) L: u; C& W<><FONT face="Times New Roman">6.</FONT>所有类都有<FONT face="Times New Roman">Name</FONT>属性(<FONT face="Times New Roman">A</FONT>)
, M; P3 P4 F; `' s; j) R7 @<p>
3 [& ^3 @: L" H6 E<p>
' H6 n9 f+ g4 `' P- T) J( D<P><FONT face="Times New Roman">A.</FONT>错误
6 A: e& X* {* s* A$ M" p<p>4 I  t  n! O8 c* b: H
<p>
5 ^5 Q( r- w- n! t0 p0 n<P><FONT face="Times New Roman">B.</FONT>正确
6 x) X1 I1 D& q<p>
! N) _( F- i" y$ A( n<p>: h; J- z) T2 r
<P><FONT face="Times New Roman">7.</FONT>一个<FONT face="Times New Roman">Delphi</FONT>窗体<FONT face="Times New Roman">Form1</FONT>中包含了一个<FONT face="Times New Roman">Tbutton</FONT>类的<FONT face="Times New Roman">Button1</FONT>控件,下面代码,将产生怎样的结果?(<FONT face="Times New Roman">D</FONT>)
' a9 U. J( d1 w( A' e0 e6 q- b! I<p>
6 S% Q" j) c+ V( i6 n* x<p>
# _4 N! x- D' {. F<P><FONT face="Times New Roman">……
( N2 r8 K6 |+ l% P0 B* ]<p></FONT>) I+ F. g& _% u  B8 T! f, n* t
<p>+ r4 R8 e: y0 c: m
<P><FONT face="Times New Roman">Tform1.button1Click(Sender);
" R2 I9 L  @1 @! I. T4 H$ _+ M$ c3 ]" [# D! z<p></FONT>2 Y  K1 m" U3 o, J5 V( F/ [
<p>" j% @% ^5 o) Y& M  A( U
<P><FONT face="Times New Roman">begin
; E1 G- f& V& T7 w& d. T<p></FONT>! g) ?: i' g. f4 |5 T/ L  G# }
<p>9 O0 D- @& ]/ o2 j" J6 V
<P><FONT face="Times New Roman">Self.Caption:=’self’;) z. ?' N; @5 N7 l: S
<p></FONT>% z5 g$ U* M$ q8 Q
<p>$ R8 K  T4 Q; m0 G9 ?2 F
<P><FONT face="Times New Roman">Self.Color:=ClBlue;6 J: ]0 v+ p2 P( z
<p></FONT>
  p* ?7 a) k; P7 F. R; ~<p>
0 M( q" J9 T( n# ~/ @; _<P><FONT face="Times New Roman">EventX(Sender);
# t5 [' z: H# t3 y/ {! l$ C5 w<p></FONT>
4 b6 W/ k- a# ~5 L<p>
/ t+ a  B& b; p+ L* p, A<P><FONT face="Times New Roman">end;
. S: R$ B. Z9 Y" a<p></FONT>
' O$ E% Y+ ?, L: g1 t* t  D  Z0 R<p>7 }& r7 w* ]3 k8 t5 P
<P><FONT face="Times New Roman">Tform1.EventX(Sender:TObject);
, O1 r/ F( j& h; I. u<p></FONT>
2 T9 n, ~# m' _<p>
" i" a! x5 [' O) D- ?<P><FONT face="Times New Roman">begin5 l' \& W5 ^6 d+ \9 q* s6 a% ^6 c
<p></FONT>  `. J, a2 I/ g1 W& ^" X
<p>0 _5 H4 p% l( m% P
<P><FONT face="Times New Roman">Sender.Tag:=10;
% U9 v; z2 d" c: l4 G<p></FONT>" M& a) P# h& H, I) \0 Z- g
<p>7 U& w- Y8 i+ }
<P><FONT face="Times New Roman">end;
- a0 B  }8 g; t, \) a! Z( p# j$ X<p></FONT>' b" k2 s' i7 z# Q, Y
<p>3 c' p8 E2 z" o! @9 Z
<P><FONT face="Times New Roman">A.</FONT>窗体的标题为<FONT face="Times New Roman">Self</FONT>,颜色为蓝色,窗体的<FONT face="Times New Roman">Tag</FONT>属性等于<FONT face="Times New Roman">10& L" q  R( l, q0 j) k* n: g
<p></FONT>0 x- i, |- k% w( [: J, o
<p>
  C! T) g: [: `. U, g<P><FONT face="Times New Roman">B.Button1</FONT>的标题为<FONT face="Times New Roman">Self</FONT>,颜色为蓝色,<FONT face="Times New Roman">Tag</FONT>属性等于<FONT face="Times New Roman">101 M  |! h7 h. u; y# J- V
<p></FONT>; u2 a) Y8 [5 J5 L
<p>
2 A8 V2 v3 c8 i( n8 m8 q* [<P><FONT face="Times New Roman">C.Button1</FONT>的标题为<FONT face="Times New Roman">Self</FONT>,颜色为蓝色,窗体的<FONT face="Times New Roman">Tag</FONT>属性等于<FONT face="Times New Roman">10
( r# g" J! u) n5 t1 f/ c<p></FONT>6 O4 i' \  O; O
<p># P! d- I. M( z" W
<P><FONT face="Times New Roman">D.</FONT>窗体的标题为<FONT face="Times New Roman">Self</FONT>,颜色为蓝色,<FONT face="Times New Roman">Button</FONT>的<FONT face="Times New Roman">Tag</FONT>属性等于<FONT face="Times New Roman">10: S" S7 Q1 G7 ]4 \: G9 \
<p></FONT>
) f. N5 L, k" I# {2 v5 _2 [<p>
- ?5 C/ W! c. w, E3 g' i<P><FONT face="Times New Roman">8.</FONT>在多个应用程序访问同一个<FONT face="Times New Roman">DLL</FONT>时,下面关于<FONT face="Times New Roman">DLL</FONT>中使用全局变量的说法哪个是正确的?(<FONT face="Times New Roman">C</FONT>)
0 h, D  j' O$ h<p>
1 j9 R4 p  {% M1 \6 G( i. M<p>( K( P( K4 T- f4 D
<P><FONT face="Times New Roman">A.</FONT>每个应用程序都各自使用在他自己的进程空间内复制的一份该全局变量
+ x3 k8 E2 l2 W: G0 H<p>
! b2 N3 Q5 S2 A& z$ ?4 J<p>5 Z& c* p' p" ~/ r+ C
<P><FONT face="Times New Roman">B.</FONT>全局变量在<FONT face="Times New Roman">DLL</FONT>中是不允许使用的
8 D; h, k4 @8 E: K9 [) Q. p$ o& s+ L<p>
; p; H2 t& C5 o0 o4 @3 e<p>
; I% T7 X' M; S5 f% O1 h<P><FONT face="Times New Roman">C.</FONT>每个应用程序访问的是同一个全局变量,该全局变量的有引用计数。, [+ k) Y/ X/ P: J. Y
<p>
6 t5 C; V- ?2 s<p>
' M6 S: D) r5 R# m3 \<P><FONT face="Times New Roman">9. </FONT>窗体上放置有一个<FONT face="Times New Roman">TEdit</FONT>类控件<FONT face="Times New Roman">Edit1</FONT>,当在<FONT face="Times New Roman">Edit1</FONT>中按下‘<FONT face="Times New Roman">A</FONT>’键时触发的事件和事件顺序是:(<FONT face="Times New Roman">OnKeyPress-&gt;OnKeyDown</FONT>)可以自己试一下9 z. x6 l2 J8 ]& c/ f- v, B6 n
<p>
$ N+ |; {  p# f: ~6 ?<p>
- ^9 p; W' N7 Z/ l<P><FONT face="Times New Roman">A.OnKeyDown-&gt;OnKeyPress-&gt;OnKeyUp" W% \$ |# I; g2 m3 }
<p></FONT>
- r+ p+ r. X: x: i<p>: B# Y$ |! e2 d8 ?: d* F! b& L2 q
<P><FONT face="Times New Roman">B.OnKeyDown-&gt;OnKeyUp% ]! v5 ^3 x* M$ ?  a
<p></FONT>
0 G! ?* G- d6 I$ y7 q7 \( H<p>
# A( n. x0 [, E2 M, G<P><FONT face="Times New Roman">C.OnKeyPress( i" `5 p4 G' |/ Y
<p></FONT>
$ A" i) ?; U& J; b2 e& m<p>3 [( b8 Z2 y$ e, l- B2 ?& ~7 C% f
<P><FONT face="Times New Roman">D.OnKeyDown-&gt;OnKeyUp-&gt;OnKeyPress
" n6 d* x" U; G: U5 z<p></FONT>5 K/ I% p7 ~5 K& a  J
<p>
6 s' _6 n1 J: @/ O9 p$ m<P><FONT face="Times New Roman">10.</FONT>下面方法中,哪个是正确的移动<FONT face="Times New Roman">TDataSet</FONT>的记录光标位置的方法?(<FONT face="Times New Roman">A</FONT>)
( o6 ]' M7 ^/ k& z3 g) g! O<p>
9 U  \$ Y6 E, y8 }& {<p>
& @3 P( g- ?7 b* _* ?  }( o5 p<P><FONT face="Times New Roman">A .(Sender As TDataSet).Moveby(10)" @  p& V; `( m2 M6 I3 @" h
<p></FONT>
1 a0 w2 H) G7 I4 |) _0 N: \; w<p>3 h, h2 p+ f  _9 F# y
<P><FONT face="Times New Roman">B.(Sender As TDataSet).Moveto(10)3 i" m7 D0 f& Q4 ~: d
<p></FONT>
4 I- \3 ~# R* n+ b, Z# X5 |; b* f<p>, T' O. L( m- S( x# d1 |
<P><FONT face="Times New Roman">C.(Sender As TDataSet).Move(10)6 a( B5 ^1 l2 m4 r% d' b% b
<p></FONT>
$ N) x; W: U5 T3 _<p>
$ w4 e2 x. x+ u$ r3 T4 Q3 \" I<P><FONT face="Times New Roman">D.(Sender As TDataSet).MoveToCursor(10)
; K: G: \. T! ]! d" l<p></FONT>7 z- G5 t+ z4 x9 h8 ~
<p>
2 h" q' b0 H3 N: V<P><FONT face="Times New Roman">11.</FONT>关于记录与类的说法错误的是:(<FONT face="Times New Roman">C</FONT>)
! F' l& X' `2 U( }! z& R5 z<p>, k1 q/ w' Q# K+ u1 u5 G
<p>
- A* ]+ T: G, t; d) `  n2 q3 J<P><FONT face="Times New Roman">A.</FONT>记录没有继承关系,而类有
% Z& p0 Y. b7 L% I<p>
' C- r4 I! V& k3 i6 t<p>
0 U2 V. @( P, }: c( R5 a0 c8 O) S% K; k<P><FONT face="Times New Roman">B.</FONT>不能自动对记录的域初始化
% ~1 U* G* s. g$ p7 d- {<p>( K2 l& j" d- k0 D; H& c
<p>0 H8 o7 e( W9 z
<P><FONT face="Times New Roman">C.</FONT>类可以使用<FONT face="Times New Roman">with</FONT>语句而记录不能9 ]9 B: R4 ^  l# c7 S: N! N" o
<p>% `1 |6 w( ]2 v: \
<p>
* M7 r, Q# j- x% P1 l<P><FONT face="Times New Roman">D.</FONT>记录没有任何保密性,所有细节从外部都是可见的,或者说是公用的。
: n. P9 D' x$ S" m" A3 q7 ?<p>  J0 r# a" F9 `9 D  j9 V  T" a
<p>
3 i8 l' z8 E' U% |" n- H<P><FONT face="Times New Roman">12.</FONT>以下不合法的数组是:(<FONT face="Times New Roman">A</FONT>)/ B% x$ \  ?- k
<p>( Q8 H4 R0 w; a" W0 x) W
<p>
$ o# P3 P4 c3 k' ]; }5 z, |<P><FONT face="Times New Roman">A.arr:Array of Class2 D. a, J8 v, m5 v/ v
<p></FONT>7 x5 \" l. P$ g/ o4 K
<p>) g: R8 X; ^5 N
<P><FONT face="Times New Roman">B.arr:Array of TButton
6 t( c% r5 O; f$ F3 u) i& H<p></FONT>* Q: q5 U, B% X2 U1 c8 v0 ~5 l/ e
<p>7 O7 W. G# A9 B, @9 G8 p+ h3 r
<P><FONT face="Times New Roman">C.arr:Array of byte
/ C: ~  n! T9 o2 b' m3 t<p></FONT>
  x5 q) z) I4 |6 Y5 [2 i- c! b1 }<p>
* y9 h$ ]9 L+ \- W' i% a<P><FONT face="Times New Roman">D.arr:Array of string' q- A; ~2 a8 G+ `
<p></FONT>
0 Z+ d% ]' W, o4 E; L<p>
9 ~) n& O( g/ a; b* [. R; R$ L<P><FONT face="Times New Roman">13.</FONT>下列关于<FONT face="Times New Roman">dfm</FONT>文件的一些说明哪个是正确的?(<FONT face="Times New Roman">C</FONT>)/ Z# j& T- K6 s3 k
<p>
" ?; Y, K. e$ |; |<p>
0 ]  e; }/ o$ k- B% K7 u" D3 j' ~<P><FONT face="Times New Roman">A.dfm</FONT>文件中包含了对应<FONT face="Times New Roman">Pascal</FONT>单元文件的编译后中间代码
. _- `, R% S. s& R1 C<p>
, b9 i% p2 V7 a2 p% _<p>
3 Q9 t/ Y  Y. a! A<P><FONT face="Times New Roman">B.dfm</FONT>文件是文本文件,用于保存编译器需要用到的<FONT face="Times New Roman">Pascal</FONT>文件的符号表
4 N. J! U8 E( x2 X9 M/ {, B1 b<p>4 m( N" j- n2 Z
<p>. W6 W, a# z$ q' Q5 N  @1 E
<P><FONT face="Times New Roman">C.dfm</FONT>文件保存着一个窗体和窗体拥有的对象的<FONT face="Times New Roman">Published</FONT>属性' x) Q2 M5 o& s
<p>" K5 k. O$ N7 N2 H# A
<p>. R! W6 C; w* D  L: G8 \
<P><FONT face="Times New Roman">D.dfm</FONT>文件是编译时产生的符号表,是为了使优化提高编译速度而产生的。( |, _3 G0 Q6 U' W5 p* f% H
<p>: I6 Y' @1 X0 C, m& i
<p>- r* h5 k5 p, v: @+ y
<P><FONT face="Times New Roman">14.</FONT>请判断下列代码在程序关闭时,正确的对象释放顺序(<FONT face="Times New Roman">B</FONT>)! c2 t% A6 u" t! V6 s2 r. S
<p>
- g, U$ @+ F: g: ]; H<p>, i* |; P1 f' f0 N& S6 I0 w
<P><FONT face="Times New Roman">TMybutton=class(Tbutton)
4 v& l( ^; ^: z5 d/ M# B1 f<p></FONT>
. S1 i' y% s" Q3 Q. f  q4 @1 n! n<p>/ l3 y) p( l0 u3 Y) }) C
<P><FONT face="Times New Roman">Protected
% E- B7 }* T9 o' w* N6 f<p></FONT>
7 w" P% d2 I4 X<p>
/ q0 H" e; W/ t<P><FONT face="Times New Roman">  Destructor Destroy;override;
4 ]4 ~1 T( h& k+ u<p></FONT>
0 a4 H9 V" y6 l# K) X<p>/ @$ C/ J$ y- ~. k# X' U3 R
<P><FONT face="Times New Roman">End;6 Q- g& |, d3 Q6 ?
<p></FONT>$ L1 s% U% a- c1 \$ m
<p>
4 S7 ]  c" b) [' Q  X! i# g1 `<P><FONT face="Times New Roman">………….) n. H2 I7 l1 D4 e& S, y
<p></FONT>
: u$ P9 v7 u# |8 L/ ]. r5 H$ j& y<p>
, ~" z, {  h' a( J/ R9 ]. N+ X0 x" o<P><FONT face="Times New Roman">destructor TMyButton.Destroy;
$ R* V9 u  K5 X6 ]5 u- A* k8 b<p></FONT>
% h8 N9 H' Y, M4 m<p>
/ E: b- y; ~: Y$ X) m& |<P><FONT face="Times New Roman">  Begin. z+ c' P. l+ d! Q3 R" z
<p></FONT>6 X7 X. \$ _' o8 I
<p>
2 ^; C4 f  E7 Y5 A0 f6 ?* d5 ^- l4 Z! g<P><FONT face="Times New Roman">inherited;
1 [) V' V4 I" Q3 `- H$ I# ]! P<p></FONT>
7 X3 _0 q5 S0 s<p>
* A! I: r4 Y, G6 q5 {<P><FONT face="Times New Roman">Application.MessageBox(PChar(Name),’Destroy’,mb_ok);
' L2 U& p1 f/ w, V* G8 K8 C<p></FONT>% b; m, C7 h& N# ~3 H
<p>- x+ N5 Q+ {5 p% L( T; G
<P><FONT face="Times New Roman">  end;( v& l' h! @! u/ e8 \' L5 ]
<p></FONT>
- U5 Q; j3 J# i3 L7 X8 a<p>
; d/ y' y) S1 t( v; V' H<P><FONT face="Times New Roman">var AButton,BButton:TMyButton;# Q, r) b8 S- N) v/ q
<p></FONT>/ l5 k. S" G" N
<p>+ @- Y: N4 Y7 [
<P><FONT face="Times New Roman">procedure TForm1.FormCreate(Sender:TObject);
. S& [/ X. e- n, m. N+ \# C<p></FONT>
! }. V6 w+ F; m- S  u9 r1 ]<p>
; \0 ^( D. O3 W+ n0 z% x/ ^<P><FONT face="Times New Roman">begin
, u# h/ T# b; W1 i<p></FONT>
/ h, C2 x4 v8 i( D9 A: ]. u! i<p>
+ P6 \' N) p* r3 N; C<P><FONT face="Times New Roman">  Abutton:=TmyButton.Create(Nil);
2 M3 G* k9 n& n& l, U<p></FONT>
# \+ h6 C, F' {5 g' D% _) X  l<p>' j5 |1 _# y. M! J
<P><FONT face="Times New Roman">  With AButton do
! T/ W) q% \: ?7 N2 P<p></FONT>5 `  F5 j# x6 T0 T
<p>
9 ?. K! V! V3 J<P><FONT face="Times New Roman">  begin9 ~. O5 Z2 |7 q
<p></FONT>0 I7 a. N* Q$ w% }$ s
<p>
  R; u8 i6 y. P" `- W$ I! F4 B* ~' g& O<P><FONT face="Times New Roman">Parent:=form1;
! a# g" ~' |  z<p></FONT>
4 T9 {' R2 w  i4 T' {2 D% J<p>
. \5 [" ]+ ^0 h0 F4 b% `<P><FONT face="Times New Roman">Top:=100;( b+ ]( l4 x$ W- p4 t
<p></FONT>" W) r# Q( v! f( ^  u! ]- K
<p>
! ?; n& _: ^8 R; L<P><FONT face="Times New Roman">Left:=100;
3 ?+ _; D: S# a: v7 N5 M<p></FONT>" H  C0 V3 o3 c1 H0 }
<p>1 u, W+ k4 u4 `( Z1 B3 W
<P><FONT face="Times New Roman">Visible:=True;
/ h: u0 }/ f) c! b, X4 ~- [<p></FONT>
9 c5 f3 U7 k8 S) _% B<p>5 z# q0 z, r- E" ^' Y
<P><FONT face="Times New Roman">Name:=’ABtn’;! O: k4 ~% \+ z- [: r9 g, V
<p></FONT>
9 M( G' K8 U% ]/ O" G9 P; Y" \1 s<p>
9 n$ h1 ^( [% L" U<P><FONT face="Times New Roman">  end;3 D: u, L6 u4 a3 a7 u1 V
<p></FONT>
% g9 C0 E! H4 c& s<p>' r: E- q5 V7 i! |. f
<P><FONT face="Times New Roman">  BButton:=TMyButton.Create(Application);
+ {0 R, \3 K7 u! d: k9 ~, N<p></FONT>7 X8 Z8 }" A# U% g" T
<p>: \' z7 x/ U0 ^7 _
<P><FONT face="Times New Roman">  With BButton do5 t+ Q) t# S8 ~/ m
<p></FONT>& S' x! _; N9 i! b' c1 s
<p>
( D, u( B- G$ `1 Z+ d<P><FONT face="Times New Roman">  begin2 s# a& ^2 k) x+ H: K( P' c0 k- W
<p></FONT>1 r4 B- }5 [/ N, N! @6 q0 e1 F
<p>8 {+ J* B, p0 s
<P><FONT face="Times New Roman">Parent:=Form1;) l% Y8 c( B8 ]1 J  `! ~
<p></FONT>
% l' l7 X& a8 E8 X  T# S; N<p>
; P$ B* ?; @! u; k% E<P><FONT face="Times New Roman">Top:=100;9 M, t: U' V5 a9 J# X$ t! ~
<p></FONT>0 V- S" _6 H! s* W7 j/ r
<p>- e* ]5 H% N! e4 A8 ?7 ~
<P><FONT face="Times New Roman">Left:=200;& ~+ p4 S' Q- l* V
<p></FONT>( f& r: ]) m0 b7 T
<p>% l; M1 ~: K$ z" V, g
<P><FONT face="Times New Roman">Visible:=True;7 Z( d& {; L* t9 w) v$ J5 J
<p></FONT>4 K4 s/ t( I7 g! p
<p>
8 Y( ^' N8 }/ j6 t6 l& K<P><FONT face="Times New Roman">Name:=’BBtn’;
: H1 \. J( e2 |# f$ \, s<p></FONT>
# g3 T6 t! p7 r2 X2 ?, }8 ?8 d<p>
0 x8 c) I3 |  y% X2 P4 s% y<P><FONT face="Times New Roman">  end;
8 ?8 m* k7 W$ k1 C<p></FONT>
: n3 u5 @2 L7 n9 k<p>+ D. y4 m2 m1 L" h
<P><FONT face="Times New Roman">procedure TForm1.FormDestroy(Sender:TObject);
, X' ^9 s4 }$ w! O( I  a<p></FONT>
: V$ N  U2 q( R5 ]& Y3 k% C<p>
% j. w: U. f: r7 N. s" [$ A3 ^# x<P><FONT face="Times New Roman">begin
; |9 ~* K+ [0 d" ]+ _& f<p></FONT>
8 Z( I' i0 ^3 j<p>1 l0 D+ q% h8 C
<P><FONT face="Times New Roman">  ……
8 D# W+ |. l# X8 g6 p$ v<p></FONT>
4 @; C4 f2 @' R0 w$ y<p>
) {2 \0 c. w! A# ^<P><FONT face="Times New Roman">end;
1 N& R" n, ^! Y" B<p></FONT>
8 p' S3 g' o& f/ c3 g<p>
$ x0 ~0 Y2 r, C2 }# `<P><FONT face="Times New Roman">A.BButton.Destroy-&gt;Form1.Destroy-&gt;AButton.Destroy' H# U1 [& {3 o$ W+ [4 K
<p></FONT>; I1 H5 Y7 H* \" [  X, f" b1 K* A
<p>
; j% ?, r/ v4 j1 }+ {. C% u<P><FONT face="Times New Roman">B.</FONT>上述都不对,应该手工调用<FONT face="Times New Roman">Abutton.free</FONT>,否则会造成<FONT face="Times New Roman">AButton</FONT>没有释放的错误
% Y4 [. q" X2 u% R9 G, {: ^4 L<p>
9 d2 m! b' N1 i4 r) s8 T- a<p>
7 r4 p1 T8 l1 c  Z, z. B6 k5 a<P><FONT face="Times New Roman">C.Form1.Destroy-&gt;AButton.Destroy-&gt;BButton.Destroy
. D. U) A$ o( _, m6 X6 e' B<p></FONT>
9 c, h- ]4 Y5 l<p>4 h2 q* v* R, o% m( f: I& J8 R
<P><FONT face="Times New Roman">D.AButton.Destroy-&gt;Form1.Destroy-&gt;BButton.Destroy
: k; b( i, ?# b. y<p></FONT>! O* ?" F$ H$ S8 Q" ?
<p>/ E3 p1 b6 K" {; `) x
<P><FONT face="Times New Roman">15.</FONT>已知有说明<FONT face="Times New Roman">var s:sting;</FONT>下列程序段中的错误为:
- |) a2 L$ g5 c; q3 d<p>
, V$ O2 Y) M/ n! e8 L<p>
* V! h# o6 Z+ |<P><FONT face="Times New Roman">case s of
" \0 t4 g" w* Y; {& \2 I& d: n: L<p></FONT>+ r, S$ M, Q4 L$ v$ i" Q
<p>4 e  y& A! O- O8 O. h$ @% I( V
<P><FONT face="Times New Roman">‘book_A’:processSelectionA;
1 _! c# Z) U/ R6 u6 M! D0 ?<p></FONT># _1 Y/ `- U9 [( w1 t1 Y, |
<p>
* H( j, l3 b$ ?" n+ T3 }+ t7 f* d<P><FONT face="Times New Roman">‘book_B’:processSelectionB;
; X  Q& r1 x5 J0 [) H/ I<p></FONT>
. |6 E( h3 e$ M8 h+ U( l<p>9 r; b7 C+ m8 ]: r
<P><FONT face="Times New Roman">‘book_C’:processSelectionC;
3 n# _: T! k: n; v/ ~<p></FONT>
5 Y- Z) y6 J$ G% h' z" C6 C* s<p>+ o4 n* W  w( t( T. a
<P><FONT face="Times New Roman">end; </FONT>()( X0 O! h3 r+ X, H( x
<p>- g/ c- u2 [; \- D: T- F
<p>
2 W4 w* N" r( \7 H2 P) C) V<P><FONT face="Times New Roman">A.</FONT>用字符串作为<FONT face="Times New Roman">Case</FONT>值表元素7 Q9 T, ~$ u- }6 R+ y8 f& j
<p>8 o3 O1 A% W1 S1 {2 I- S, P3 V1 g
<p>7 H5 }) T  d. W, _: j- W
<P><FONT face="Times New Roman">B.case</FONT>表达式中有常数( @, J, U5 e. `' P4 T7 ~
<p>, H! q* f' Q; w+ N6 M
<p>
- Z3 _) e& }; s( v9 o! @<P><FONT face="Times New Roman">C.case</FONT>常量和<FONT face="Times New Roman">case</FONT>值表元素
) W6 n4 S1 v3 a<p>6 ~% E# E6 U1 F+ _# K) B
<p>0 g8 u; H. F# B) K  _( g
<P><FONT face="Times New Roman">D.case</FONT>表达式位关系表达式
1 Z% N4 V# Q! f. ~# v0 g' I2 W<p>$ S/ ]# N/ J  Q* ^; b5 l
<p>
+ q/ [. `, Z% G! Z7 [3 i<P>这道题我不知道它要说什么……<FONT face="Times New Roman">Case String of </FONT>这个语法本身就是错误的!
. J) j9 Y' B+ e- j% C3 S$ c<p>9 ^) T  j9 E2 p, R) r0 ^1 {( b0 K# b
<p>
+ @5 o9 y7 e' i6 {<P><FONT face="Times New Roman">Case … of </FONT>中间的条件只能是整型,集合,枚举类型
5 p' q+ D5 R- v7 r( T( E<p>$ p" j* }- e% ]6 q/ |; `: |
<p>8 R0 J& P5 W/ i) n/ X- T
<P><FONT face="Times New Roman">16.</FONT>“工程选项对话框”中,当默认的<FONT face="Times New Roman">checkbox</FONT>位<FONT face="Times New Roman">True</FONT>时,会出现下面那种情况?(<FONT face="Times New Roman">D</FONT>)
1 g: x. F+ x$ u) E5 P2 u& h<p>
& R; U; n# x7 G" e: X: u+ E<p>
7 Q8 x$ j$ M9 ~<P><FONT face="Times New Roman">A.Delphi</FONT>把所有的工程选项都重置为最初的默认值0 Y% O1 J( j% Y/ k3 b3 r5 V
<p>
7 t# u& r! e' J  b) a) l5 X3 L7 W<p>
2 m( B( _, Y4 y<P><FONT face="Times New Roman">B.</FONT>“工程选项“值覆盖“环境选项”值! T& O' O8 H$ m6 w' p% N
<p>3 U2 x( m" B, L4 B+ S+ C( L5 V
<p>, K) @" o8 K  ^& l: B1 b
<P><FONT face="Times New Roman">C.</FONT>当前被选页上所有<FONT face="Times New Roman">checkbox</FONT>的属性都自动变成为<FONT face="Times New Roman">True
% J0 l. S: q" b" E* ?3 b" Z) a. h<p></FONT>% v# Z8 Z- G! w$ ]
<p>% X  n7 Q/ G7 ^! d' V
<P><FONT face="Times New Roman">D.</FONT>当前的工程选项作为新创建的工程的默认值: X0 l' u6 f, n
<p>! V9 N: w; L$ r% O, b
<p>9 u& r( r- t: ^* p
<P><FONT face="Times New Roman">17</FONT>.<FONT face="Times New Roman">XML</FONT>的含义是什么?(<FONT face="Times New Roman">B</FONT>)2 F7 P+ f( B5 _# j9 R! L6 J
<p>
& t9 y0 n% |, y( m7 S4 X9 B<p>/ g! s: p; V2 K9 H# ]0 q
<P><FONT face="Times New Roman">A.Express Manage Language
9 q% z* b4 u: o9 f! B. ^' x( H; U<p></FONT>; U! i# c3 b3 g/ g! x5 g* R# S( F
<p>
$ }9 ]4 e  L& t4 r+ Z* E% b<P><FONT face="Times New Roman">B.Extensible Markup Language
. \3 M% j/ V' N9 K$ h<p></FONT>$ |  m  F/ r/ b3 z9 B5 E$ V
<p>* T. B/ S' n6 I. H
<P><FONT face="Times New Roman">18.</FONT>下面关于单元的初始化<FONT face="Times New Roman">Initialization</FONT>部分的说法哪一个是正确的?(<FONT face="Times New Roman">B</FONT>)# Z& T- k( w, [+ U/ r
<p>
/ L+ @! I0 b# u' y<p>
2 t. k0 ~: ]) K/ F2 [- Y<P><FONT face="Times New Roman">A.</FONT>如果调用了<FONT face="Times New Roman">Initialization,</FONT>必须调用<FONT face="Times New Roman">Finalization
! n( x: e' h8 j<p></FONT>" ]- F& j" W2 X0 t% o) g
<p>
7 Y. l- G  g# s6 F+ N<P><FONT face="Times New Roman">B.</FONT>该部分代码单元被其他单元或程序引用时就会自动运行- @; D# k4 ~0 ~' m3 a* f8 T% \
<p>
# b5 a& p) ^# a3 `: K<p>) T1 L/ z+ Q5 w0 _' n. U
<P><FONT face="Times New Roman">C.</FONT>这部分代码与单元中的<FONT face="Times New Roman">FormCreate</FONT>事件的作用是相同的0 D& e. [, n4 l7 r! a) F* P
<p>; L, v$ L* m! k) T2 B* o
<p>  p4 V/ T: V9 S9 X3 ~. b9 W: n
<P><FONT face="Times New Roman">D.</FONT>初始化部分的代码只能在单元中有<FONT face="Times New Roman">OLE</FONT>和<FONT face="Times New Roman">COM</FONT>对象时才有效5 ?) u2 S9 z3 U3 H  y" U
<p>
0 {& |4 K8 j: a* ^  X# Q3 F; U5 r<p>
0 ^; j  B; J9 p: j/ Y6 ]7 C( s<P><FONT face="Times New Roman">19.</FONT>以下关于<FONT face="Times New Roman">Redcord(</FONT>记录<FONT face="Times New Roman">)</FONT>的描述,不正确的是:(<FONT face="Times New Roman">B</FONT>)) m: W% I1 _+ S. s2 }
<p>
* T% F2 D0 s; r, ~. R/ N/ r5 |<p>
+ z5 W2 ^( f0 o7 ]6 U<P><FONT face="Times New Roman">A.Object Pascal</FONT>支持可变<FONT face="Times New Roman">Record,</FONT>它允许在记录种不同的数据共同覆盖相同的内存(这个概念与<FONT face="Times New Roman">C/C++</FONT>中的<FONT face="Times New Roman">union</FONT>概念一样)' d7 u2 l" H1 @4 x. L9 \& I
<p>
0 a: m& ~1 ?( x! z0 V( h<p>' m2 `- h: ^0 G4 S& b" @5 Z/ S. D2 R4 l
<P><FONT face="Times New Roman">B.Record</FONT>类型定义中列出了若干个域,每个域对应一个域名,通过域名访问
2 k  u( |0 R' B$ R3 D; U3 Z6 Y<p>  p4 I* q/ m1 W
<p>
; j% m; q, ~$ U2 D5 P  P% Q3 m<P><FONT face="Times New Roman">C.Record</FONT>类型用于定义不同类型数据项的固定集合<br><FONT face="Times New Roman">D.record</FONT>类型是类的一种补充/ `# F3 f. S$ `1 T! `/ {' U
<p>( |7 z; h) Y& C( W. q/ S9 ~
<p>! n" O, g8 P5 n- {* ~) J6 l  f" T8 V
<P><FONT face="Times New Roman">20.</FONT>在每一个枚举类型中,默认编译的情况下,我们最多只能定义(<FONT face="Times New Roman">D</FONT>)个值。: G1 Z( n9 O/ W  z  Y8 v
<p>
) Q5 _$ y9 y" t2 }- V" Q<p>
3 G/ S% T7 C% l- N<P><FONT face="Times New Roman">A.642 D$ S) d) Z$ Z
<p></FONT>
9 C5 w, _' `& w7 Z9 ?<p>6 ?; p. c, V6 r9 r8 z
<P><FONT face="Times New Roman">B.512
  i4 }$ T* w- v9 _8 q1 X9 R<p></FONT>4 c! {. N2 Q8 b4 D
<p>9 K* Q$ ~# E! M- O' b* P; o
<P><FONT face="Times New Roman">C.128
, e9 u( X3 ~( H6 s0 J$ ~  J<p></FONT>% K2 I4 K7 `$ C  X
<p>) A/ R4 X) L2 I4 H$ G! q; B
<P><FONT face="Times New Roman">D.255; Y+ S& K- {0 u$ w$ V* m1 g" c
<p></FONT>0 g- G2 v, P( @. h4 _) U7 ^
<p>
% \: Z+ f% V; T4 [! [! j0 L# O) i<P><FONT face="Times New Roman">21.</FONT>用于建立菜单项的下划线快捷方式的字符是:(<FONT face="Times New Roman">C</FONT>)0 Y& @5 O5 Y8 k/ R. z. K- L
<p>
! h% U( [2 n7 l! N6 k! N0 c9 N<p>
# J7 |* Q3 D: B% `6 E, b<P><FONT face="Times New Roman">A.^<br>B.#
0 @* F# _2 z1 b6 M+ |/ M! B- g<p></FONT>
" U3 y6 m! P; _  x1 W' t<p>. y1 A9 C7 e! c% l+ v9 q
<P><FONT face="Times New Roman">C.&amp;
3 S2 g1 i0 l7 n# F- ~<p></FONT>: n  \3 o( J( x; ~$ n% \$ k$ Y0 v
<p>
9 ]" J! \- b' {. I( U$ U" b<P><FONT face="Times New Roman">D.@
& y4 R6 Z2 L* W$ `6 a, K<p></FONT>; N9 ]: l$ l. |
<p>( c+ I. E6 Y! z- M; x0 q& n
<P><FONT face="Times New Roman">22.</FONT>下列关于<FONT face="Times New Roman">Variant</FONT>类型的说法哪个是不正确的?(<FONT face="Times New Roman">A</FONT>)
0 ?- E% ?4 X* t# l$ e* O<p>6 A0 g# ^, d4 i" P# D
<p>4 W# g8 F* X1 n5 s- L
<P><FONT face="Times New Roman">A.variant</FONT>类型的变量被动态赋值为一个特定的数据类型后,不能再赋值为一个其它的数据类型( i/ ?# h4 j; R
<p>3 F  M- M' k3 i8 X( z
<p>
/ {, s! o0 `/ H2 Z# G! A<P><FONT face="Times New Roman">B.variant</FONT>类型变量是无类型变量
, L2 O: s$ @2 W1 r8 H<p>
4 x) n. a. b2 [7 t$ |( A<p>
5 n6 V( Q* D6 c) j9 V5 S% c, E<P><FONT face="Times New Roman">C.variant</FONT>类型是以前<FONT face="Times New Roman">Borland C++ </FONT>中固有的<FONT face="Times New Roman">Variant</FONT>类型的模仿
1 `7 O! l- s* x  v8 G# k<p>
- B) E% i: ]! K4 r<p>' o; `! F! G. Y3 X" G/ s1 V
<P><FONT face="Times New Roman">D.variant</FONT>类型无需进行释放,回收内存
2 k" s) z! A) Z" q7 Q<p>
; }% o1 y4 u" w) }( @<p>
0 p7 |& B- s# b; o$ n# k<P><FONT face="Times New Roman">23.</FONT>关于<FONT face="Times New Roman">Application</FONT>对象和属性的描述正确的是:(<FONT face="Times New Roman">B</FONT>)
* \+ F6 W+ U8 @/ g<p>1 x  U/ `6 ]/ W* B; k5 A
<p>6 E( w3 ^1 h( u& V% f* _$ A" E
<P><FONT face="Times New Roman">A.ExeName</FONT>可读可写
$ T4 Z9 ^5 ^5 o) Z' Z9 P6 D% Z  C- k<p>
# D: v; D1 m  o+ d% y$ {: {/ D& K<p>
2 d+ q; z* c2 {& \. j' k, f' H<P><FONT face="Times New Roman">B.Active</FONT>表明应用程序是否激活,可以设置该值来激活程序
2 g$ c. L. s: |( k+ r( n0 Z<p>3 N1 R9 R3 n: [: p0 n8 ?( ^
<p>" x8 g  ?! K6 H. V8 d5 L
<P><FONT face="Times New Roman">C.Title</FONT>属性设置主程序窗口的标题
, l5 b8 C1 x& x5 X1 e" ^* ^<p>9 w9 R* r8 a1 [  Q* N6 A
<p>
8 l. [- W9 X1 ?9 O<P><FONT face="Times New Roman">D.</FONT>只有给予窗体的应用程序才有全局<FONT face="Times New Roman">Application</FONT>对象,控制台没有<FONT face="Times New Roman">Application</FONT>对象
6 c) ?0 F( m* X: M1 `; ?& a* z<p>8 I' b$ @2 {. v8 m/ ~
<p>; c/ N5 `' V3 V& w( O( [3 j( h/ \
<P><FONT face="Times New Roman">24.</FONT>下列哪种变量类型不能作为<FONT face="Times New Roman">For</FONT>循环中的循环变量?(<FONT face="Times New Roman">D</FONT>)2 g( v7 P6 [( l% Q
<p>1 q; G/ l& e; _1 w* A3 N, h! v
<p>
9 m; T) U# g% |" M- R5 Q  M<P><FONT face="Times New Roman">A.</FONT>字符
( d3 E" x1 ]+ k9 W! e<p>
' R- T/ ~" d# q- F6 j<p>
9 E& a9 u& p  y" X7 T3 E7 c<P><FONT face="Times New Roman">B.</FONT>枚举, F( f/ L* C1 e% C
<p>0 F1 I  s2 C: ^. {5 h# I
<p>; B7 d4 ~2 V! x5 V! b
<P><FONT face="Times New Roman">C.</FONT>子界; y- a$ v6 E. d4 L8 Y- L; p
<p>6 _4 O- g$ x% r0 |. o9 m( p/ S/ s
<p>
8 f  `- ]. S+ w( K2 t1 n<P><FONT face="Times New Roman">D.</FONT>实数9 \4 f" [( [0 @! e' L  v* R3 s
<p>$ R# Q) @: J6 w# k6 X( D+ k, [
<p># v6 A9 x: v: x
<P><FONT face="Times New Roman">25.</FONT>下面是一个用户自定义的消息,哪一种消息定义是正确的?(<FONT face="Times New Roman">D</FONT>)& ?+ i  d7 g/ F0 K
<p>' s4 K. f4 J/ O6 D9 b5 a. l$ i
<p>9 [3 E* g8 l/ a
<P><FONT face="Times New Roman">A.WM_MyMessage=User_Base+100: e3 }7 M7 H* O% L3 v' {
<p></FONT>
- u) J2 r$ \9 q7 s<p>
* M5 a# ?% m/ {3 k<P><FONT face="Times New Roman">B.WM_MyMessage=CM_Base+100
( Z! J9 h% X9 k/ }$ f<p></FONT>
( Z) I& p" r' ]& ?0 f/ Z<p>( Q4 @$ M" W- X! U& @
<P><FONT face="Times New Roman">C.WM_MyMessage=WM_Base+100
8 `2 n, H" C5 }: u* ?" d<p></FONT>
2 M1 @3 R  \) Y& C<p>
& R3 [; E  v- b0 O<P><FONT face="Times New Roman">D.WM_MyMessage=WM_USER+100. T  s5 g' D/ Y% d
<p></FONT>) B+ Y4 @' |, j7 B' e% L( }- r
<p>
: o7 q% S0 O( k<P><FONT face="Times New Roman">26.</FONT>请看代码,回答下面的问题。) j( L. G# a6 q! D/ j4 V
<p>3 a, y. n4 s. u5 H2 k
<p>
/ p: p% V* v/ I- ]0 O<P><FONT face="Times New Roman">Type
5 p; B4 z4 D  R! v+ G  @. Q<p></FONT>
+ p8 c5 }! X) j<p>  n& k/ F* O7 @0 b: ]  O
<P><FONT face="Times New Roman">TMammal=Class% j2 M4 ]+ m) X* V4 {$ p0 l$ O
<p></FONT>
; i' \; |# G* i! f- T<p>* }8 s" y# l  W5 {4 _) P9 ]
<P><FONT face="Times New Roman">Procedure Walk;
  q3 ~+ v/ _/ z, A4 r7 m& T/ y% [! s<p></FONT>
% `5 S& r  m; n# _' y<p>
7 t( F9 }" t' f* W) N<P><FONT face="Times New Roman">…... z/ X* H8 a9 S' E! }! U
<p></FONT>
& l  x% [6 z( g<p>
9 H" Q! I- Q5 d9 j- E4 V<P><FONT face="Times New Roman">end;{end of TManmml}+ K# Y" L* S/ r) s/ T
<p></FONT>. H+ m0 O8 S4 b. l( h. ~/ s
<p>
8 o. x$ T/ ^2 `<P><FONT face="Times New Roman">procedure TMammal.Walk;6 \( g& v( K8 I! j; v
<p></FONT>* d+ s/ w1 Q5 H6 e; k! m
<p>
4 |7 U; {# Z5 b  [1 W- t<P><FONT face="Times New Roman">begin. s3 S* ]6 ~1 }3 W
<p></FONT>6 v! \+ S$ S; o
<p>
" e& F2 O, E* u. S<P><FONT face="Times New Roman">ShowMessage(‘Result is Mammal Walk’);* n# i7 o4 j% Y) o5 g5 C
<p></FONT>" y& i9 G- o. ]6 y9 q# W- t
<p>
5 A3 c$ F0 K+ }/ E; w  N, ^<P><FONT face="Times New Roman">end;
) u, F3 X% X3 i, S, n<p></FONT>3 {" O4 ^: d: u8 P5 b( c' S% ?' }
<p>
+ r+ ]3 A6 ]7 S$ R3 r: a9 [  B# j$ `<P><FONT face="Times New Roman">TDog=Class(TMammal)
5 s8 v+ k0 X0 _4 Q) ~' g<p></FONT>
( b" Q! A; V2 {2 Q0 U<p>: {; N1 r8 x: v" V
<P><FONT face="Times New Roman">Procedure Walk;
" j# y0 m( m/ V) g) M- _<p></FONT>
- A8 S, e% O7 C5 u9 I4 y, A1 t<p>/ f3 G8 G9 V; i3 I. F
<P><FONT face="Times New Roman">end;
6 F/ G# _, R; e; H<p></FONT>
* R& d2 {8 @7 w, n& D<p>" R$ q5 g+ N. ^) j3 C: z3 n
<P><FONT face="Times New Roman">procedure TDog.Walk;( D1 K$ ~+ u  v% Q0 t( I5 ?
<p></FONT>
* v$ ?. \$ A- _+ s! u9 b! r+ v# y<p>
3 j# B: k2 X3 l7 t( z<P><FONT face="Times New Roman">begin
2 i- ]+ |0 ~; v6 [$ h& P5 `<p></FONT>
' \6 b6 B; a, I<p>
: ?, i, i6 c+ D, ^6 t<P><FONT face="Times New Roman">ShowMessage(‘Result is Dog Walk’);
; M3 U0 E4 t: P, g<p></FONT>
1 p2 t7 i" ~* Y3 q" L<p>
! l* H4 [. J- G0 r% [, _6 t, V1 v<P><FONT face="Times New Roman">end;! j+ G" E6 L( i( u
<p></FONT>
+ e* O  P+ k9 ^- L% M/ T" R<p>
* r2 Y/ p* c7 `<P><FONT face="Times New Roman">var , u' j& O; H2 X
<p></FONT>8 o6 Q2 U  I3 k1 N+ U+ s
<p>) c5 i9 |" p+ y2 D6 m
<P><FONT face="Times New Roman">Mammal:TMammal;/ n: Z6 @1 i# y% b5 v+ s
<p></FONT>
7 l- ?8 [. K' \<p>. y9 ?8 b. B% J, n' B/ M" e
<P><FONT face="Times New Roman">  dog:TDog;
7 e. m! Z$ f! n; v8 V<p></FONT>: k5 _- \4 C$ r# |4 n
<p>
8 L# B0 ^# e0 _! q1 O- |1 O<P><FONT face="Times New Roman">begin
& \9 h& P/ \8 z" U9 K: N<p></FONT>! w! ^  [2 s! D- H3 o. z) }; t/ I
<p>4 Z/ L! x% k# z3 K+ P0 P2 k
<P><FONT face="Times New Roman">  Mammal:=TDog.Create;
& }- N  m+ X1 Y0 u<p></FONT>, x" R; Y8 y0 H
<p>
- j: Y# o, s' t<P><FONT face="Times New Roman">  Mammal.Walk;
1 h$ v, h9 K9 s1 G<p></FONT>
$ b0 r% K3 w( O/ O4 [<p>
) l. |5 u& |" d+ l<P><FONT face="Times New Roman">  Mammal.Free;! j; b8 ?5 \& }  v6 d8 ]- _9 A
<p></FONT>
) Y: Q8 R) D7 x<p>
9 C+ ~% U& K3 R* U& p<P><FONT face="Times New Roman">end;0 |% L  u- C% I6 t: ?" u& R
<p></FONT>" x, a. H  g% X
<p>
: E1 ~, F/ r% C7 T3 I/ V% M<P>上面代码中,最后的输出结果是:(<FONT face="Times New Roman">B</FONT>)
  F0 ?# a  \0 L: V6 s- Z8 I4 ?<p>7 q  E% M0 ~; E* ~) A; j+ W  F% F
<p>
. k, {4 T( j# {/ T0 q8 q1 i<P><FONT face="Times New Roman">A.‘Result is Dog Walk’
: Y5 C: v1 T( e  y" A<p></FONT>
; @# T( b$ l& x+ D6 v# H& S<p>
. F! g" j6 H6 s- a4 L5 U<P><FONT face="Times New Roman">B.‘Result ia Mannal Walk’3 p" w6 D2 |: d- a* ~3 [
<p></FONT>8 L; e' e! c0 j4 ]% K
<p>
$ J3 Z) q+ w9 a! Z# C7 d& G<P><FONT face="Times New Roman">27.</FONT>注册一个自定义组件语句的用法是:(<FONT face="Times New Roman">C</FONT>)4 Q0 ?7 q; x: K- v
<p>8 L0 ?5 w0 U* }! Y
<p>* c- O8 R! X& h; R
<P><FONT face="Times New Roman">A.RegisterComponents(TMyComponent,[‘Standard’])
/ }* t" G8 D0 e9 g) _3 E( u+ Z" ?<p></FONT>* `$ ~  V  x4 Z( `/ b2 e
<p>2 r5 I, k  W: ?* ^& K
<P><FONT face="Times New Roman">B.Register(TMyComponent,[‘Standard’])<br>C.RegisterComponents(‘Standard’,[TMyComponent])<br>D.Register(‘Standard’,TMyComponent)
  E, V: ?- w- v" k7 Y$ F. y. f<p></FONT>6 ]) \6 p6 u: d) k
<p>/ i$ n0 i, A1 a; m/ }& G, v$ t
<P><FONT face="Times New Roman">28.dbExpress</FONT>只提供单向游标,这意味着<FONT face="Times New Roman">dbExpress</FONT>类的数据及组建不允许做编辑、修改、删除这样的操作,是否正确?(<FONT face="Times New Roman">B</FONT>)- a8 L; h/ k2 U1 H
<p>
, L+ S. P9 @2 F! D! l<p>
  S8 H/ ~# c, G  h<P><FONT face="Times New Roman">A.</FONT>是/ U. e, Q1 O( X9 V9 Y2 t) G
<p>
; F8 f5 ]' g% \7 m! |; v% a<p>. |2 N9 d) ]+ I: j9 ~. _& c
<P><FONT face="Times New Roman">B.</FONT>否
4 g% ~7 p  u! O/ E6 H; C, O<p>
/ g2 u  \0 v  Z4 V<p>
* j2 s( A* j1 o% b. Y5 b% F<P><FONT face="Times New Roman">29.</FONT>窗体上放置有一个<FONT face="Times New Roman">TEdit</FONT>类的控件<FONT face="Times New Roman">Edit1</FONT>,并定义了<FONT face="Times New Roman">Edit1</FONT>的<FONT face="Times New Roman">OnEnter</FONT>事件,下面说法正确的是:(<FONT face="Times New Roman">C</FONT>)
) |9 G7 M1 h* |<p>
5 _7 S- N* U/ N* T0 y* z<p>
% ^. F9 m0 W) P! o<P><FONT face="Times New Roman">A.</FONT>当鼠标在窗体上移动时产生<FONT face="Times New Roman">Edit1OnEnter</FONT>事件' X; B' z6 L2 N* o. l
<p>
: ^+ G# w, d/ r1 J5 F3 d<p>
; u0 p" m* m, A<P><FONT face="Times New Roman">B.</FONT>其他三项都不对6 h  w! ?; y  S( @6 a
<p>7 t/ x: c; x. z+ \# F
<p>
6 x5 f, E" t! a% d, P3 ?7 B<P><FONT face="Times New Roman">C.</FONT>当<FONT face="Times New Roman">Edit1</FONT>获得焦点时产生<FONT face="Times New Roman">Edit10Enter</FONT>事件
. ^" y5 d+ ?+ J) w. M% ^" g, ~) f<p>3 ]4 ]1 J: W; |( J( ]3 x. |
<p>
) B/ }/ C0 |* w# f, j4 E<P><FONT face="Times New Roman">D.</FONT>当鼠标移动到<FONT face="Times New Roman">Edit1</FONT>的上面时产生<FONT face="Times New Roman">Edit1OnEnter</FONT>事件; w2 G0 Y' ?( M, v
<p>- a7 Q# z( b9 ]  C1 c
<p>
5 o5 g+ [. M1 T: S4 q; i<P><FONT face="Times New Roman">30.dbExpress</FONT>是一个独立的数据库接口层,它可以工作于<FONT face="Times New Roman">Windows</FONT>和<FONT face="Times New Roman">Linux</FONT>平台下吗?(<FONT face="Times New Roman">A</FONT>)
1 L' W2 s# O3 r# q; S; H<p>
  M- L/ f: b4 ?5 \2 }, D3 u<p>) J) j: N: f3 g/ M# k0 m$ u& C
<P><FONT face="Times New Roman">A.</FONT>是
% `, s8 Q: \3 x. _2 X<p>) [/ Z% V" j* V6 G' _8 a/ d
<p>: }! ~8 Z8 @7 s: W8 T5 j
<P><FONT face="Times New Roman">B.</FONT>否
4 s/ c( Y1 D6 C! ~( u0 T8 ]<p>
3 R; h, ~' r; }1 D! L<p>
1 z: A# T: j) d7 F<P><FONT face="Times New Roman">31</FONT>.所有可视化的<FONT face="Times New Roman">VCL</FONT>控件都是从哪一个基类派生而来的?(<FONT face="Times New Roman">A</FONT>), Q$ y  E' h1 N$ i) B8 `0 M" L: w
<p>- G. Z" G) \% V/ P: G0 J9 t
<p>5 {6 D" E! M- E0 j8 A6 I6 G* Y
<P><FONT face="Times New Roman">A TControl9 O# L% R! K1 p- x& r" h
<p></FONT>7 q3 ]1 |; u4 \/ s0 z
<p>
; p6 M, \$ _# J6 Y( P<P><FONT face="Times New Roman">B TWidgetControl: n, e. b' r  c& p: T8 u; b
<p></FONT>
% B6 `# B/ m4 p! J<p>
3 J/ |3 E( {7 k' s  q<P><FONT face="Times New Roman">C TWinControl
$ |( l  g6 I- j+ v2 w9 w<p></FONT>. s$ _8 h9 V4 }3 I
<p>- C$ t' b4 N) L$ t
<P><FONT face="Times New Roman">D TwindowControl1 r' j! q# Y6 Z" Q4 W
<p></FONT>
3 i% U$ E# \" r) {3 k# @<p>
; ^" C. N" _7 e2 V/ P1 t' @<P><FONT face="Times New Roman">32.dbExpress</FONT>是<FONT face="Times New Roman">Borland</FONT>多层数据库概念的延伸和发展,同<FONT face="Times New Roman">TClientDataSet</FONT>类组件一样,<FONT face="Times New Roman">TSQLDataset</FONT>同样提供了数据的本地缓冲机制,是否正确?(<FONT face="Times New Roman">B</FONT>)
. r4 B0 r$ }# o: o/ ^3 h<p>( d1 C8 Y, m6 V
<p>7 w! _6 R, G! O
<P><FONT face="Times New Roman">A.</FONT>否<FONT face="Times New Roman">      B.</FONT>是, l1 m% Y: M5 X- |6 N' f0 e, Y$ X
<p>7 }9 ?2 E' p1 c; H5 h
<p>8 C( x2 W1 ~+ I
<P><FONT face="Times New Roman">33.</FONT>表达式<FONT face="Times New Roman">Writeln(‘This is ‘#<st1:chmetcnv w:st="on" UnitName="’" SourceValue="39" HasSpace="False" Negative="False" NumberType="1" TCSC="0">39’</st1:chmetcnv>xxx#39string’)</FONT>的结果是:(<FONT face="Times New Roman">B</FONT>)。, g; D& P. @) e5 k2 j
<p>
& M* j/ v, A; s: S+ l<p>3 P- T# ~, s, q5 D- p2 G. d) P, h- v
<P><FONT face="Times New Roman">A.This is xxx sstring
& S  Y! l; z8 I& H: K% z, m5 b<p></FONT>9 G  H. R5 Q# `6 f: _* z
<p>) j* _1 a3 {  U/ t& W
<P><FONT face="Times New Roman">B.this is ‘xxx#39string5 T3 W2 w5 `; f0 U& V) |/ r' U# \
<p></FONT>. v, g( b, F0 u" s1 T/ u) i2 V
<p>
+ q! R7 f/ H3 r3 c  p4 L" @<P><FONT face="Times New Roman">C.This is ‘’’xxx’string<br>D.This is ‘xxx’string
/ m1 u4 W' I* L6 F  ]4 a6 \& p<p></FONT>! q5 j. P9 i) U3 f# R
<p>) `. _/ D  S! c+ ]: r1 o% R6 W' K
<P><FONT face="Times New Roman">34.</FONT>集合类型的数据大小是:(<FONT face="Times New Roman">A</FONT>)
+ Y) {4 T  r- D4 @6 d. o9 O+ [2 K, v, G<p>
7 ^# o, y% J: T: l  X6 ?7 @" n<p>, }' `* `" v3 l. F; C6 V
<P><FONT face="Times New Roman">A.0..2556 d* F% B7 L5 ^+ V! J
<p></FONT>
, |6 r5 q8 R& \( U<p>! ^; K) H6 w! }- y
<P><FONT face="Times New Roman">B.0..65535, v; }. D* z, a: ^# A
<p></FONT>+ H1 z, `/ P% m% Q) _& M( C9 b2 H
<p>
  m3 q  H# V) T2 ]! Y1 q6 S  y<P><FONT face="Times New Roman">C.0..63
: R9 u& P5 a( K# x2 m7 ?- v<p></FONT>
3 G5 B% t7 Z* I! |3 X8 o! c$ h<p>. }5 H6 j1 j2 ~7 d
<P><FONT face="Times New Roman">D.0..31
: X/ H" v8 o' R$ q9 q<p></FONT>* A; K- u# Z$ [. H- @4 ^
<p>
% v7 Z" X% y( V<P><FONT face="Times New Roman">35.</FONT>关于<FONT face="Times New Roman">CLX</FONT>以下说法不正确的是:(<FONT face="Times New Roman">A</FONT>)
) p4 ^: h. F* R<p>
' h0 |% Q5 c% d6 }) ~<p>: g1 F- ^9 `: |; N0 C
<P><FONT face="Times New Roman">A.CLX</FONT>是在<FONT face="Times New Roman">VCL</FONT>的基础上开发的,而非重新开发的: a, @* u' H& \  K; V4 x4 G! `, J
<p>' {. W6 Q  r) D; w, _
<p>
* o( M- M# e8 H<P><FONT face="Times New Roman">B.CLX</FONT>是伴随着<FONT face="Times New Roman">LINUX</FONT>问世的& a$ n4 D7 ?3 T, u/ {7 b1 V
<p>! G+ f2 _2 i& ?+ G/ Z( X& [6 m9 }
<p>; u& G) O* U; \6 q/ D. N
<P><FONT face="Times New Roman">C.CLX</FONT>的含义就是跨平台类库& Q9 W& ^4 P( J1 X# K. j& L; o
<p>
2 x2 {; {; ?  F$ @# K  }$ S8 L1 P<p>' U  A# @0 I: f7 g' ?
<P><FONT face="Times New Roman">D.VCL</FONT>的代码不可以直接移植到<FONT face="Times New Roman">CLX5 f7 }) j, p& [9 ~# e8 h) m
<p></FONT>
7 P5 {5 [) C; V1 l( X: s' P. t9 R# J<p>6 Z2 v7 i% X' S5 N$ V; w3 G
<P><FONT face="Times New Roman">36.Windows</FONT>的消息系统中的消息来源可分为:(<FONT face="Times New Roman">B</FONT>)
: y8 Q/ V( u. V  [1 f2 [<p>6 z8 @7 p* @3 B* W" ~9 }
<p>
+ i. x% n8 m( U7 J- o<P>A<FONT face="Times New Roman">.</FONT>硬件消息,应用程序消息7 q; Y% w5 S; U# F' x! m
<p>
5 c6 K  C0 z' J  p<p>+ v4 O. E# {2 \  ~* W, w8 I$ ^
<P>B<FONT face="Times New Roman">.</FONT>应用程序消息,硬件消息,<FONT face="Times New Roman">Windows</FONT>系统的窗口管理消息$ B/ }$ q+ C7 b( D, Z6 A1 F
<p>
6 O: K" ?/ r8 x" f' M7 ?( `/ W1 A& ^<p>
& r, O9 B) V8 g1 i& o: T' Y<P>C<FONT face="Times New Roman">.</FONT>用户自定意消息,<FONT face="Times New Roman">Windows</FONT>系统的窗口管理消息、
& H9 y/ L* _. Q9 P<p>
' J; G1 B! J6 L0 R- q7 D  e<p>) \  A8 q1 b# A% x+ |1 w9 ]( j
<P>D<FONT face="Times New Roman">.</FONT>硬件消息,<FONT face="Times New Roman">Windows</FONT>系统的窗口管理消息
( Q- I! O- L! p<p>
' g  t6 P0 v8 j# _3 s1 M* [<p>
# P0 C% [5 K6 O4 N<P><FONT face="Times New Roman">37.TPersistent</FONT>类的用途是什么?(<FONT face="Times New Roman">C</FONT>)
" d; y, s/ u: s0 x<p># Z5 q; ^$ g' f  m
<p>3 d8 t. j' R6 M( Q
<P>A<FONT face="Times New Roman">.</FONT>作为<FONT face="Times New Roman">DLL</FONT>接口的基类,因为<FONT face="Times New Roman">DLL</FONT>不能自动被加载* D+ R: ]+ A7 Z8 M! R" ^, y, R
<p>
4 a& i5 R! `0 ^+ a, B7 n' }4 R<p>
0 z( B" v8 d) q2 Y& u7 s/ N<P>B<FONT face="Times New Roman">.</FONT>可以完成<FONT face="Times New Roman">Windows</FONT>控件的封装! m$ f' L, v$ q0 ^( K7 l0 k* e4 g
<p>
' }) C% G2 L  z! k# o$ U; ~' }8 @: ^<p>' {3 l0 i. p3 X5 b' I9 X
<P>C<FONT face="Times New Roman">.</FONT>是所有用来保存和加载<FONT face="Times New Roman">Delphi</FONT>对象流的类的基类6 x& L, E8 H6 Q% x  l
<p>
+ c- v: ^  O: g5 z* O<p>9 h0 B8 L3 I: ~* n
<P>D<FONT face="Times New Roman">.</FONT>所有<FONT face="Times New Roman">Delphi</FONT>的类都从它派生而来3 D! z6 h- m+ y
<p>
8 A! h. M- V0 Z4 ?" }. q& e+ v5 h5 ]<p>$ A; ^$ f. m1 e2 q8 H. z8 {1 W- t
<P><FONT face="Times New Roman">38.</FONT>下面三个类型转换操作中,哪一句是不正确的?(<FONT face="Times New Roman">A</FONT>)4 i: O0 B" d+ m+ r# l0 L
<p>3 E  e: a3 g" R3 _3 g, K
<p>6 i4 D8 j! \, N
<P><FONT face="Times New Roman">Procedure Tform1.AbuttonClick(Sender:TObject);3 L! g3 M' h9 u! R. M% A
<p></FONT>5 P1 A( w  m1 u0 C8 Q5 s
<p>2 f: g3 u8 A0 f; X3 K) b: k# Z& C6 q8 T
<P><FONT face="Times New Roman">Begin
% a( I# X! d% z4 v* h& G<p></FONT>& Q7 V" J) i1 a8 w  t7 n5 F
<p>6 t- L9 ]. M7 \2 V/ B, x
<P><FONT face="Times New Roman">………& n" r( t) W3 y0 Y
<p></FONT>
5 O' `1 h# X! w5 Y" Y<p>
7 x  ^$ m8 \  t! Y: o. X4 I<P><FONT face="Times New Roman">end;
/ t; r$ M! f+ L' r* l<p></FONT>
' u2 E/ a; z: d" }<p>
( f9 m, P- U5 e+ X. f<P><FONT face="Times New Roman">A.(Sender is TButton).Caption:=’Button’9 @+ g, C0 j' Z- p9 m
<p></FONT>
1 I4 m" J* R; F$ I& V- F<p>; l3 A* o) o! ^0 W4 P& ]
<P><FONT face="Times New Roman">B.TButton(Sender).Caption:=’Button’. r. e2 L. N" \- k' Z* V
<p></FONT>
5 P) h; |1 @" r* {<p>
% q  T% Q! d% g0 `) ^9 l<P><FONT face="Times New Roman">C.(Sender As TButton).Caption:=’Button’; A/ o" g9 e8 g) y$ k5 ]
<p></FONT>
$ b" n3 k5 H3 o& I7 j8 G<p>' [) [+ {+ K. D: i4 J+ r3 L, J* p
<P><FONT face="Times New Roman">39.</FONT>在设计一个<FONT face="Times New Roman">MDI</FONT>应用程序时,假设主窗体的<FONT face="Times New Roman">Name</FONT>是<FONT face="Times New Roman">MainForm</FONT>,而子窗体的定义是<FONT face="Times New Roman">Child:TChildForm</FONT>,那么应该采取下面哪种方法来生成子窗体?(<FONT face="Times New Roman">A</FONT>)
+ p  r4 N. [# L) D7 V' U# `<p>
9 ^' S5 N. p0 Z& y<p>
8 X, _: k* V' X: c: F, M# @<P>A<FONT face="Times New Roman">.Child:=TChildForm.Create(Nil), t2 |' k$ M5 v* J: W
<p></FONT>7 H: V8 E5 F( Q  r5 Y# z; K4 g# }
<p>
7 h' y) J$ z, B' ^; L<P>B<FONT face="Times New Roman">.Child:=TChildForm.Create(TApplication)6 G* T& @  m/ M5 v% q- d
<p></FONT>4 Z. J$ C' r5 m" |' D# u
<p>7 n4 q8 f+ ]8 m# U$ x8 d7 o
<P>C<FONT face="Times New Roman">.Child:=TChildForm.Create(MainForm)' |: U6 }% B$ e& h9 K- a4 h6 h
<p></FONT>) a+ N6 g4 p1 V& g3 o
<p>" B5 K( V: o# B7 e1 p* n4 A
<P>D<FONT face="Times New Roman">.Child:=TChildForm.Create(TMainform)
5 ?. v$ _. ?0 }9 j% q  o<p></FONT>9 u+ q1 s- z. I- W2 s3 n2 V4 X
<p>
( `+ }9 ^7 u5 L6 L5 b<P><FONT face="Times New Roman">40.</FONT>有关<FONT face="Times New Roman">Assigned</FONT>的说法哪个是正确的?(<FONT face="Times New Roman">C</FONT>)% V# M: g5 D% y" p9 b
<p>
* T5 `% g9 u3 C<p>
5 a+ s2 b9 M+ S<P><FONT face="Times New Roman">A.</FONT>其他三项都不对
( {  W# Z$ o  F9 j7 i. q3 r9 Z; g<p>% r8 g& ]" [. l
<p>
2 c3 Y' v: Z' i/ l. W8 v! j. c<P><FONT face="Times New Roman">B.Assigned</FONT>的作用是判断一个对象是否为<FONT face="Times New Roman">Nil</FONT>,如果是<FONT face="Times New Roman">Nil</FONT>,返回<FONT face="Times New Roman">True</FONT>,如果不是<FONT face="Times New Roman">Nil</FONT>,返回<FONT face="Times New Roman">False4 c+ w5 O8 R& n$ z$ V$ J3 C. z! W
<p></FONT>
; x3 f( }/ S0 h. {2 X! I<p>
5 d' @# a* ?# [" {<P><FONT face="Times New Roman">C.Assigned</FONT>的参数可以是对象或者方法,或者是一个指针# e6 e3 n1 ~. I/ l9 t
<p>
1 O! v& o* U5 `<p>* V: L; v2 i/ L. A! ^6 u8 Q
<P><FONT face="Times New Roman">D.Assigned</FONT>的作用是判断<FONT face="Times New Roman">Assign</FONT>过程是否已经完成。& \% Q( [( o. M2 a1 f) F% H* ?
<p>
1 j0 i4 @0 p* z$ u$ R<p>
# H( E. M+ S- |  w1 O<P><FONT face="Times New Roman">41</FONT>、在修改数据前检查<FONT face="Times New Roman">TQuery</FONT>组件的状态,发现处于浏览(<FONT face="Times New Roman">daBrowse</FONT>)状态,该<FONT face="Times New Roman">TQuery</FONT>组件的<U><FONT face="Times New Roman"> Active    </FONT></U>属性的值已经为真,则调用该<FONT face="Times New Roman">TQuery</FONT>组件的<FONT face="Times New Roman">Edit</FONT>方法可以将其状态该为可修改。2 N7 i# Y/ c4 [# X0 M- {+ W
<p>
# J4 B7 O( Y. m6 n3 U1 w<p>
- T9 l' p6 q$ f; o  ^  L<P><FONT face="Times New Roman">42</FONT>、在当前<FONT face="Times New Roman">Form</FONT>上添加一个<FONT face="Times New Roman">TActionList</FONT>组件(已添加),选择一个“<FONT face="Times New Roman">TEditCopy</FONT>”标准动作添加到<FONT face="Times New Roman">TActionList</FONT>组件中。. t5 V3 }( w* g% ~2 b2 [, S
<p>
' R5 h+ o6 ^! X6 d/ L% g2 ~. i<p>, n8 p/ A9 Q% ^: @+ K8 `- d1 ^
<P><FONT face="Times New Roman">43</FONT>、将默认路径下的<FONT face="Times New Roman">BrowseFolder.pas</FONT>组件安装在<FONT face="Times New Roman">Delphi IDE</FONT>的默认的<FONT face="Times New Roman">package</FONT>中。
( H  N6 i( ]0 u. y<p>
2 C6 {/ c- I1 V: R<p>
) ^" f. I" g7 J! t<P><FONT face="Times New Roman">44</FONT>、调用<FONT face="Times New Roman">TQuery</FONT>组件的<FONT face="Times New Roman">Prepare</FONT>方法让<FONT face="Times New Roman">BDE</FONT>和远程的数据库服务器为查询分配资源并执行一些优化操作,称为执行查询前的准备工作。因为执行这个查询的准备工作会消耗一定的资源,所以在完成查询以后应该调用<FONT face="Times New Roman">TQuery</FONT>组件的<U><FONT face="Times New Roman">  UnPrepare </FONT></U>方法来释放分配给查询的资源。0 A# ~/ P: z8 }6 l" H& A' W
<p>' s) `! @' Y" Z- v
<p>7 ]% D" H5 C7 n* u; s' P8 h! x
<P><FONT face="Times New Roman">45</FONT>、数据集<FONT face="Times New Roman">TQurey</FONT>要执行如下<FONT face="Times New Roman">SQL</FONT>语句:<FONT face="Times New Roman">select * from mytable
6 A) T1 g4 s% I7 D: `) d<p></FONT>
% A) f. L# R  p. i. h: l<p>8 H9 q% Z/ n" T, c, s$ I8 W. Z
<P>请补充完成程序中横线所缺少的语句:
- ^8 v% _# X0 Z( P<p>
# z" w& X6 H1 S' q<p>8 j6 p+ K* a" W# A
<P><FONT face="Times New Roman">var/ r) J+ ]% G: e* l; f  s
<p></FONT>( _; i- [6 M0 p
<p>3 v# C+ Z2 \- Z, M: U" _) c
<P><FONT face="Times New Roman">  Query1:TQuery;
8 ]* P5 g6 A; h7 E' ?1 f<p></FONT>( r/ v! i2 Q% b, h4 d
<p>  ?, H: k8 c/ s* `; n5 |2 L
<P><FONT face="Times New Roman">……
) l' ?* k9 g& O7 F  s0 |/ s4 ~<p></FONT>
# ~8 x8 E3 M2 ]) p3 @8 B<p>
3 j8 R1 V# V, q' Z4 H! A2 @<P><FONT face="Times New Roman">begin
: Z" Y! P* t' ]* R  `2 [: A<p></FONT>0 f% t& g& D  l+ _$ _, q0 ~
<p>+ U# I. ~* o- V" P% B/ ^
<P><FONT face="Times New Roman"><U>with  </U> Query1 do
" C. C' l% u  T( T<p></FONT>7 Z% R5 n+ |* M; J
<p>
& d8 q7 e5 l' {<P><FONT face="Times New Roman">  begin
) d/ h% \9 Q' R) r<p></FONT>
9 J- B, J) v! O9 j<p>
1 T7 S1 G9 M$ j4 v4 \<P><FONT face="Times New Roman">    Close;
  B5 ~- t6 a4 H& J; C/ m; r<p></FONT>* [% s7 n( h3 h( O' r+ N: Z
<p>
3 j" @" O' O, W( N0 h<P><FONT face="Times New Roman">    Clear;
. |& m. K7 m! x% S# \: C<p></FONT>
8 h3 k% q$ M3 U1 E& F<p>+ n. ]% E+ _& A8 e8 ~
<P><FONT face="Times New Roman">    SQL.Add(‘select * from mytable’);3 [& H0 ]2 R: k3 o- M: E
<p></FONT>& b$ f# i6 t: O6 I( |+ `; y; \9 S
<p>: Y$ e+ ~! g1 {1 R, V
<P><FONT face="Times New Roman">    Open;
: v$ q" W6 A& l6 ?! p% r<p></FONT>; U+ Z' D# V+ H1 a! N
<p>6 f, C8 \+ I5 K$ @/ E$ G, c' O
<P><FONT face="Times New Roman">  end;
$ {! f2 R4 j1 j4 I. z<p></FONT>* o: m% E8 L3 r. K- Q3 r# C, V
<p>; x! u" {& T0 p0 l- ]( X
<P><FONT face="Times New Roman">end;
$ r7 e/ L+ B6 ~* w  r! V3 z& d. ^<p></FONT>
- _: o. x- J5 t1 o+ k0 v$ P<p>8 B: V, P+ n4 Y# D+ p; ^
<P><FONT face="Times New Roman">46</FONT>、下面语句用来删除<FONT face="Times New Roman">TMemo</FONT>组件的第<FONT face="Times New Roman">2</FONT>行,请补充完整:
7 r" q* A5 o& k. u, ^5 q<p>( ~" H% F( d. u7 \# ]+ ^. l
<p>
6 F* e$ f# a- I1 P<P><FONT face="Times New Roman">Memo1.Lines.delete(<U> 1 </U>);" t5 q0 C! I) ^8 Q7 l+ j- |
<p></FONT>
( P1 j  O' b* ~/ d3 ~. r<p>( z* s% v. W! g: A1 ~) d: w6 \% A
<P><FONT face="Times New Roman">47</FONT>、调用函数<U><FONT face="Times New Roman">  IntToStr  </FONT></U>实现整型数字到文本字符串的转换。(只写出括号前的函数名称)4 G9 ]) Q$ A! O; M
<p>$ }, \5 n' t- V1 j
<p>- V% ?1 w. K+ ?( w0 \* e" a
<P><FONT face="Times New Roman">48</FONT>、完成下列要求:
% l' ^" Q. x: t' v+ x* R<p>
1 G( m2 Q, o. i<p>' R, @. M9 {; {* A8 a
<P>(<FONT face="Times New Roman">1</FONT>)自定义一个过程类型<FONT face="Times New Roman">TGetPropProc</FONT>,该类型有一个参数<FONT face="Times New Roman">Prop</FONT>,类型为<FONT face="Times New Roman">IProperty
& I& t1 }! ]: x) J8 B/ p<p></FONT>
- o& o: [% Q8 x8 I8 j) @<p>
9 n/ o. s. T& \* O<P>(<FONT face="Times New Roman">2</FONT>)定义一个类<FONT face="Times New Roman">TPropertyEditor</FONT>,该类有一个过程<FONT face="Times New Roman">GetProperties</FONT>,该过程有一个参数,参数类型为<FONT face="Times New Roman">TgetPropProc</FONT>,请写出有关代码。
: g7 t( s8 [& [* D8 t% W5 ]<p>
; G! H1 ~4 ~' X' K<p>
9 n9 p2 g: S0 c  M( P<P>(<FONT face="Times New Roman">3</FONT>)在<FONT face="Times New Roman">Uses</FONT>中写出所使用的单元。
4 M3 u9 R+ A. N1 O3 _<p>2 ^+ U5 T/ c3 C1 f+ [7 t
<p>0 B6 L" t9 q0 b: }
<P>备注:请从下面两种结构中选择一种,并添加具体的代码。
$ H5 q( x* o6 a, [) V' q<p>& T9 S; L# |2 ^8 X7 s& `+ E
<p>; y3 M" _- |- [) x8 e9 S
<P>(<FONT face="Times New Roman">1</FONT>)控制台结构
$ l* n8 f, e# r3 ^; W<p>
! z0 a" P  Q/ @9 _  @5 H<p>3 j+ r& b2 X3 \5 I
<P><FONT face="Times New Roman">program Project1;' _+ [3 j  {6 [  L9 _0 n
<p></FONT>2 M3 ~5 R# g# M1 s( ?) }$ B7 @
<p>: N% S- Z2 G2 K7 C; t" ?
<P><FONT face="Times New Roman">{$APPTYPE CONSOLE}# I5 ~% N/ H3 P- j  N
<p></FONT>1 |. x# Z& n3 l  }! c$ H9 a+ D: t
<p>
- v$ ^% P8 e# v) i( w<P><FONT face="Times New Roman">uses1 ]. z) R6 S+ p8 D' ^5 j0 v8 H/ H' u
<p></FONT>6 j0 W9 C& i# E3 K
<p>
1 F4 q, Q' H9 r, u- y: O3 I<P><FONT face="Times New Roman">  SysUtils;, n$ |& h& {  d/ _: t$ L
<p></FONT># u" f: B5 v; _5 b$ Q  v5 {
<p>9 c# p! @: X( g
<P># Y: R# j" E. e8 R# d; a. M
<P><FONT face="Times New Roman"></FONT></P>
( Y2 P% N- w' X! K<p>/ r- Y/ |2 M; `+ h7 r: A& ^
<P><FONT face="Times New Roman">begin9 v7 A) a' e' v2 _$ s
<p></FONT>. C( {/ i- i0 K: p+ `, c
<p>
; P# h" V9 V5 |; f! a<P><FONT face="Times New Roman">  
& N2 H) ?2 n9 j9 V, f( ^<p></FONT>
( |+ {% \; U4 ?. z9 W<p>5 y  u; Z" ?, N1 H
<P><FONT face="Times New Roman">end.
4 p! Y+ K" M6 ?* h2 J<p></FONT>
: |# e1 p" K/ [+ f<p>
' b- j. m( x7 E# Y. e<P>(<FONT face="Times New Roman">2</FONT>)单元结构
) {8 p( Q! ?- ^& O$ ^7 K0 L& F<p>
& V$ w6 d8 S% U3 b4 l<p>
8 M0 Z; j( W/ j/ @1 a<P><FONT face="Times New Roman">unit Unit1;
" x) ]4 u- P3 O+ C8 E. \6 H6 D<p></FONT>3 r1 f. A  V7 p- @
<p>
1 \+ `* p8 V0 ]* e$ f<P><FONT face="Times New Roman">interface
" }) i/ P/ k. t, d; C; c<p></FONT>
* L) u2 S( e+ I' J+ H<p>
! k8 Y9 e  A  I& v) z<P><FONT face="Times New Roman">uses" b. {; I5 ?* |7 }
<p></FONT>7 M1 s- A0 @. Z( \  s4 X
<p>
5 d, I% b, h1 E5 T3 ?2 r0 z% j<P><FONT face="Times New Roman">  DesignEditors,DesignIntf;
- H9 ~) S! \9 U4 W3 K% D<p></FONT>
) \: @) G0 z  S, h' u6 C% B<p>
7 g: B( C: E& B* d% \% h, ]& q( Z7 [<P><FONT face="Times New Roman">type" @. m4 O4 R7 l/ [7 U. X: W
<p></FONT>/ g5 ]* x  c7 R0 i' _
<p>. w4 M6 P2 L/ U/ l% O3 }3 A
<P><FONT face="Times New Roman">  TGetPropProc=procedure(const Prop:Iproperty)of Object;
" \, y, M0 G% ?9 L<p></FONT>, @' E$ |- O0 t! ^: }6 `# [
<p>/ J. g+ n; X- R3 u
<P><FONT face="Times New Roman">  TPropertyEditor=class(TBasePropertyEditor,Iproperty)
% v6 N; l- K' `, j- v$ p<p></FONT>7 n5 E& c) ~& B$ g4 Q( H
<p>
6 G9 R0 x2 Y2 i" _$ Q<P><FONT face="Times New Roman">  Public
4 j; Q! D' j. j- Z" W" w<p></FONT>
0 S* E. v0 g* }2 l<p>
5 Z. B- e4 _' B6 a+ }. `6 a7 J& x) m. V$ G<P><FONT face="Times New Roman">   Procedure GetProperties(Proc:TGetPropProc);
' S% u! S8 t; |  G0 b<p></FONT>
; ~0 N/ B( V' |% j/ [6 Z9 s% t2 Q" p<p>( k( N; Q; a* M% y. Y9 a. \
<P><FONT face="Times New Roman">  end;
9 [# G- Q! t* @$ q4 q" o' J<p></FONT>
; M( E( S1 |% ]8 t" Y3 _1 ]3 Q<p>5 E8 e1 |; U! X- e& u
<P><FONT face="Times New Roman">implementation6 V  c+ C' @8 j. q6 K6 A5 Q! t" U
<p></FONT># G, U+ S, h, W, s: f
<p>
: d. x( c+ Z( ~" n# [" t<P><FONT face="Times New Roman">procedure TPropertyEditor.GetProperties(Proc:TGetPropProc);
1 {# ]) s! L8 D. _: Z* N<p></FONT>
/ F7 Y6 I3 o  |<p>. q# ~& }  o; \% @
<P><FONT face="Times New Roman">begin! W/ l& e0 Q4 I4 m
<p></FONT>
9 G0 F: T" O- m& c8 b<p>! M0 t- r5 L+ |, T
<P><FONT face="Times New Roman">end;
9 x' }% g2 `& n<p></FONT>
/ b, ?6 ~( ]$ m9 f9 o<p>, D$ V3 V# V3 z8 m7 r
<P><FONT face="Times New Roman">end.
% A2 N, d8 X' M1 D3 o<p></FONT>
! d0 ^8 d+ r" u6 x# A' m! y' a8 y<p>
- P( t% b1 }1 o! y<P><FONT face="Times New Roman">49</FONT>、在下面代码的基础上,声明一个函数常量,并将函数常量的指针指向函数<FONT face="Times New Roman">Calc</FONT>。, C$ v9 l$ D, r8 |$ W
<p>
* U2 }( F7 i3 r7 B' c: }<p>  _6 T/ R$ D: l' ~
<P>备注:请在下面结构中添加具体的代码。. g# ]! \1 i$ y/ s
<p>
0 A8 i* ?$ W8 N; b5 ~4 v  W<p>0 s/ I5 e, E8 D( R: ?9 f: C
<P><FONT face="Times New Roman">Program project1;
4 ?9 G4 g4 S/ c" c4 F5 w5 A<p></FONT>
" V. q# q' o! e5 K" D: }0 G<p>; N$ \% o/ ], M! r; |+ {! s1 W+ ^
<P><FONT face="Times New Roman">{$APFTYPE CONSOLE}
9 |0 M: H. u* S% l4 v<p></FONT>( o5 R. Z% X+ ]+ I- g/ {8 i% L9 h  U  q
<p>  a1 \% {: Y* w, S9 _0 ?3 Q' J' _% B0 j
<P><FONT face="Times New Roman">uses
- h9 c- _5 f: a: ^  ?. Y- `<p></FONT>% h0 w4 d7 Y2 m( O
<p>% }+ ?- k3 R% }- e$ n- J
<P><FONT face="Times New Roman">  SysUtils;, P0 p6 X% V, k8 q! }1 j
<p></FONT>
2 |. z) H( ^& }- K& Y& F<p>
9 t* z% h8 e. R! Q. A% F<P><FONT face="Times New Roman">function Calc(x,y:integer):integer;
4 Q" T0 _8 X5 n. s7 ]9 _3 v+ R<p></FONT>
* g3 C- X9 l* m$ V/ k: H6 Q<p>, A: ~2 @0 |1 [: M9 }
<P><FONT face="Times New Roman">begin
. `2 F1 `7 b$ M<p></FONT>
7 p, g1 Y) A! D; \+ T- w<p>. s( e2 ^8 X- L5 v9 M( \. K) v
<P><FONT face="Times New Roman">  Calc:=x+y;# d0 N4 }0 s4 C: P& \
<p></FONT>
% t: ^" n. A6 d3 B; v/ H/ Q<p>( Y+ `! x& ], y! k
<P><FONT face="Times New Roman">end;1 L% Y& i/ O* ^8 |9 G0 g, N
<p></FONT>% E2 G3 J5 W# }$ z+ \2 x
<p>
! m& }( o; l4 ]. x( D; i. ?! g<P><FONT face="Times New Roman">type% w  l0 Q  Y$ c4 Q; ]! w
<p></FONT>8 `3 J# o- j2 i4 w8 k/ U+ i) R6 F& z
<p>1 Z0 m5 s, x* Q, J% i. Y: |! n& S
<P><FONT face="Times New Roman">  Tfunction=function(x,y:integer):integer;0 q: B* {0 u1 X/ z% X# P
<p></FONT>
1 F$ V7 x" m) G<p>4 a* x5 l0 b! t( o( f9 m
<P><FONT face="Times New Roman">const
/ E9 G/ T9 |  ]) Y; w9 U<p></FONT>8 d8 @2 \1 T% X$ S8 G1 E
<p>
: {& w+ E3 E. \# D( x+ e<P><FONT face="Times New Roman">  MyFunction:Tfunction=Calc;( Z7 a, R8 R1 d) M
<p></FONT>/ x3 r9 L( Z; A& d# G! j1 _
<p>2 g9 F5 @) R% k; ~" [8 N
<P><FONT face="Times New Roman">begin
& o* \+ v" K5 q<p></FONT>
9 F1 S7 q0 z4 {% e) t. P<p>) ~& X9 M! E. d2 r, g/ T# ]! P& i
<P><FONT face="Times New Roman">  write(MyFunction(2,3));
! D, N3 V1 C6 B* u- v, ~0 c<p></FONT>. B8 f( F+ ]$ B$ A! W
<p>  ~4 i+ M! S" [3 }
<P><FONT face="Times New Roman">  readln;8 b# s7 \8 S2 S( U
<p></FONT>: h# p8 q: z# g; o) ]4 b
<p>; g* I; A$ M9 Y/ [8 m
<P><FONT face="Times New Roman">end.
8 X2 H9 p6 ^  C/ O; [<p></FONT>
8 w; e9 s0 t8 G3 y: a<p>. @# J9 C7 d+ l% T4 n8 i
<P><FONT face="Times New Roman">50</FONT>、编写实现一个<FONT face="Times New Roman">DLL</FONT>。该DLL中有一个输出函数function ChangeColorWordToInt(ColorName : PChar):TColor;stdcall;可以将字符串按下表转换为对应的颜色,并返回该颜色值:Red-&gt;CLRed;Blue-&gt;CLBlue;Lime-&gt;CLLime;Other-&gt;CLBlack。- _$ ?9 [" L+ _: z  y: u
<p>$ N0 }! N1 G. ^2 a8 }1 b; J
<p>2 H9 B5 v$ j- O) R9 E. m; c' F
<P>一点提示:用StringToColor 和 ColorToString
% o9 \; H8 S& k; h( x<p>! Y2 H' R+ R$ |4 B. {  O
<p>
( h- Z. g  m9 [- p9 u: q. O<P>51、编一个显示和隐藏任务栏的应用程序,它有两个按钮分别用来显示和隐藏任务栏。
$ `- b1 t* X1 u$ d: C% ^! i<p>2 o4 C7 J0 q# Q# L# K1 j2 G
<p>
4 P# X- \. k0 l<P>' B7 d7 d5 S. M- D6 N3 R
<P><FONT face="Times New Roman"></FONT></P>
5 w  \( b6 A# w* f9 U) I# l<p>) q( v2 S$ {6 H4 O+ z% e
<P>
# S7 z6 L: w2 e! r  t! p<P><FONT face="Times New Roman"></FONT></P>" O5 C' F' \$ b5 O5 q8 ?
<p>
2 j. ?* f3 [( o% w# p: J" `<P>
! e( s2 A: H0 c. u. ^( Y. T<P><FONT face="Times New Roman"></FONT></P>6 T( m2 X3 j2 m6 p+ S3 }3 D  `6 C
<p>/ H9 V- B! F. c+ n2 I5 \
<P>+ \# B7 K* W/ h0 K* s9 \' b. L
<P><FONT face="Times New Roman"></FONT></P>. ~  V8 D7 n' G: K% n' r( l$ r
<p>
5 v' i9 k4 o3 F" J5 r- [<P><FONT face="Times New Roman">var8 K0 W' U9 w2 Z
<p></FONT>
' b  w+ m% g* L0 L<p>
) x+ l& ~9 b& G; y<P><FONT face="Times New Roman">  taskbarWnd:THandle;
) p# u( Q6 ?& N7 e5 H<p></FONT>
; F3 x) d( r4 f; x4 n# k<p>
$ C6 X" I; t+ h0 N3 z1 i* [2 q<P><FONT face="Times New Roman">….
; {. k' ^' I' S1 _$ v<p></FONT>
) X0 u; Z( i% f0 a+ g# ~0 T2 D- z% Z<p>
5 n3 q- m% E0 _<P><FONT face="Times New Roman">begin& c/ w6 b" V# Z) z. V& @3 m% @0 M, x
<p></FONT>
2 S% j" j5 g( S4 c/ j<p>
3 d0 v  ^  k4 M$ t9 V2 P<P><FONT face="Times New Roman">taskbarWnd := FindWindow('shell_traywnd',nil);! `4 X1 Q+ g: k% Y1 z
<p></FONT>
% F- U+ M/ p( X; C. [/ s<p>
( N* s" @' Q5 B5 q% |1 P<P><FONT face="Times New Roman">ShowWindow(taskbarWnd,sw_Hide);  //</FONT>隐藏. x5 J  g5 W; t/ X4 B$ D
<p>% g6 @  t7 P, a3 ?' {+ C
<p>
6 t: w& Z+ a$ @# `<P><FONT face="Times New Roman">ShowWindow(taskbarWnd,sw_Restore);  //</FONT>显示4 H* I) ?: }8 P2 r
<p>
2 S3 x$ E0 |- Z! |# D<p>
3 L1 J9 O- v2 h/ m: A2 G$ i<P><FONT face="Times New Roman">end;
/ p$ X" [' p$ v& \( |<p></FONT>/ Q4 a- l3 S* E: L- l7 I
<p>
! b- z+ {7 {: f/ w
[此贴子已经被作者于2005-6-7 17:41:29编辑过]

作者: nightgril    时间: 2005-6-9 22:23
<>真是不错!</P>[em01]
作者: nightgril    时间: 2005-6-9 22:24
新手请多指教!
作者: qrxjrsto    时间: 2012-1-11 03:54
这个贴子要顶~~~~~~~~~~~~~~




欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5