这段VB代码翻译成Delphi怎么写?200分,急急急!!!!!!!!!!!(200分)

S

slush

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-22

• #1

这段VB代码翻译成Delphi怎么写?
baseserver中有三个接口,一个为IBase也是默认接口.
函数getObject返回为IDispatch接口类型.
dim as new baseserver.base
dim cnn as new Adodb.Connection
base.initObject(666666)
set cnn=base.getObject

 

T

takashiki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-22

• #2

var base:Tbase;//baseserver.base的类型
cnn :TConnection;//Adodb.Connection的类型
begin
base.initObject(666666);
cnn:=base.getObject;
end;

 

S

slush

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-27

• #3

接受答案了.