指针作函数参数问题？

[1016133]

以一个对象指针为参数，过程如下：

//线程类
class Tsimple : public TThread
{
private:
TLabel *pLabel;
protected:
void __fastcall Execute();
public:
__fastcall Tsimple(bool CreateSuspended);
void __fastcall assign(TLabel *p);
};

void __fastcall Tsimple::assign(TLabel *p)
{
//TODO: Add your source code here
pLabel=p;

}


class TForm1 : public TForm
{
__published: // IDE-managed Components
TLabel *Label1;
void __fastcall FormCreate(TObject *Sender);
private: // User declarations
Tsimple *simple;
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};

void __fastcall TForm1::FormCreate(TObject *Sender)
{
simple->assign(Label1);

}
编译提示错误“access violation at address 00401E2E in module 'Project1.exe'. write of address 00000030.
请帮忙看看是那有错！！！！
不深感激

[Jagen在路上]

你没有为simple分配内存阿？？
你只是声明了一指针，那个指针指向什么你怎么知道，编译器也不知道啊，所以才会报告错误阿！

[Jagen在路上]

你的代码应该这样写
void __fastcall TForm::FormCreate(TObject *Sender)
{
simple = new TSimple(true);//true我猜想的
simple->assign(Label1);
}

[1016133]

啊哈，对。我把这个给忘了。