一个Pascal语法题：如何在不使用预编绎指令情况下，实现动态定义一个类？(50分)

A

aKnightChen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-01-18

• #1

如何能达到这种效果:
IF myTypeStr='T1' then
T0=CLASS(T1)
else
IF myTypeStr='T2' then
T0=CLASS(T2)
不能使用预编绎指令.
哪位大哥指定一下。[]

 

A

aKnightChen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-01-18

• #2

即：
不能使用
{$ifdef xxx}
T0=CLASS(T1)
{$else
}
T0=CLASS(T2)
{$endif}

 

轻

轻舞肥羊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-01-18

• #3

不可能
换种实现方法,把TO定义为类类型变量

 

L

levi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-01-18

• #4

不如定义一个类
类中包含两个子类，然后定义一个属性，记住当前用的类，这样好些。

 

A

aKnightChen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-01-18

• #5

羊哥:
能否给个HELLOWORLD代码，给小弟开个窃？
(如何定义,使用一个类型变量)

 

A

aKnightChen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-01-18

• #6

levi的思路也不错！

 

P

Passion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-01-18

• #7

用一个class of的类变量来接收具体类的赋值就行了。

 

A

aKnightChen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-02-21

• #8

多人接受答案了。