请好心富翁帮忙!!! ( 积分: 10 )

O

oent

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-18

• #1

请好心富翁帮忙把以下C++ 代码翻译成 Delphi代码!!!谢谢!!!
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
strSaveDrt=NULL;
strFileTo=GetCurrentDir();
}

 

O

oent

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-18

• #2

请好心富翁帮忙把以下C++ 代码翻译成 Delphi代码!!!谢谢!!!
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
strSaveDrt=NULL;
strFileTo=GetCurrentDir();
}

 

P

pascal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-19

• #3

procedure TForm.FormCreate(Sender: TObject);
//在delphi中无TForm的构造过程,就放这里了
begin
strSaveDrt := nil ;//这两个应该是全局变量
strFileTo := GetCurrentDir ;
end;

 

F

fisheryj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-21

• #4

同意

 

O

oent

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-21

• #5

谢谢!问题解决!