这是什么错误？

[飞月梦想]

我在自己写的一个组件中设置了一个事件，把组件放入工程中编译运行没问题，但是在运行时激活该事件调用处理函数的时候出现错误对话框，内容是
Project Project1.exe raised exception class EAccessViolation with message'Access violation at address 401075B9 in module 'vcl60.bpl'.read of address 0000003F'........
我发现在事件处理函数中引用了其他控件就会出现这样的错误，比如
Label1->Caption=......;
请问这时什么原因造成的？先谢谢了！！

[飞月梦想]

哪位大侠知道？指导一下好吗？

[jiangchun_xn]

贴出代码看看。

[whitelion]

可能是内存读取错误

[niuzhenjun]

你这么问谁都没有办法回答，贴代码吧。

[飞月梦想]

组件头文件代码：

#ifndef MyComponentH
#define MyComponentH
//---------------------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
//---------------------------------------------------------------------------
typedef void (__closure * TCountChangedEvent)(TObject * Sender,int value);
class PACKAGE TMyProperty : public TPersistent
{
private:
int FText;
int __fastcall GetMyProperty();
void __fastcall SetMyProperty(int value);
protected:
public:
__published:
__property int MyText={read=GetMyProperty,write=SetMyProperty};

};
class PACKAGE TMyComponent : public TWinControl
{
private:
int FCount;
int FArrayProperty[10];
int __fastcall GetArrayProperty(int index);
void __fastcall SetArrayProperty(int index, int value);
TMyProperty* MyProperty;
void __fastcall SetCount(int value);
TCountChangedEvent FCountChanged;
protected:
public:
__fastcall TMyComponent(TComponent* Owner);
__fastcall ~TMyComponent();
__published:
__property int Count={read=FCount,write=SetCount};
__property int ArrayProperty[int index]={read=GetArrayProperty,write=SetArrayProperty};
__property TMyProperty * MyInput={read=MyProperty,write=MyProperty};
__property TCountChangedEvent OnCountChanged={read=FCountChanged,write=FCountChanged,nodefault};
};
//---------------------------------------------------------------------------
#endif

组件实现文件代码：

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "MyComponent.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//

static inline void ValidCtrCheck(TMyComponent *)
{
new TMyComponent(NULL);
}
//---------------------------------------------------------------------------
__fastcall TMyComponent::TMyComponent(TComponent* Owner)
: TWinControl(Owner)
{
MyProperty=new TMyProperty;
}
//---------------------------------------------------------------------------
namespace Mycomponent
{
void __fastcall PACKAGE Register()
{
TComponentClass classes[1] = {__classid(TMyComponent)};
RegisterComponents("Samples", classes, 0);
}
}
//---------------------------------------------------------------------------


int __fastcall TMyComponent::GetArrayProperty(int index)
{
if(index<=9&&index>=0)
return FArrayProperty[index];
else return -1;
}

void __fastcall TMyComponent::SetArrayProperty(int index, int value)
{
if(index<=9&&index>=0)
FArrayProperty[index]=value;
}

int __fastcall TMyProperty::GetMyProperty()
{
return FText;
}

void __fastcall TMyProperty::SetMyProperty(int value)
{
FText=value;
}

__fastcall TMyComponent::~TMyComponent()
{
delete MyProperty;
}

void __fastcall TMyComponent::SetCount(int value)
{
FCount=value;
if(FCountChanged!=NULL)
FCountChanged(this,value);
}

程序单元代码，change函数是以上事件的处理函数：
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "MyComponent"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::changed(TObject *Sender,int value)
{
int a=1;
a=a+1;
cp->Text=MyComponent1->Count; //异常出现的代码位置
Label1->Caption=MyComponent1->Count; //异常出现的代码位置
}
//---------------------------------------------------------------------------

void __fastcall TForm1::WriteCount(TObject *Sender)
{
MyComponent1->Count=StrToInt(SetCount->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::InitLable(TObject *Sender)
{
Label1->Caption=IntToStr(MyComponent1->Count);
}

请高手指教！！！

[jiangchun_xn]

whitelion(chinaproject.51.net):

精彩，英语不错。：）

[我不懂电脑]

是不是没有创建vcl控件或者访问越界

[jiangchun_xn]

MyComponent1在哪生成的

[飞月梦想]

MyComponent1是程序中添加的自定义组件的名称

[pcclever]

cp->Text=MyComponent1->Count; //类型不对
Label1->Caption=MyComponent1->Count; //同上

我知道在bcb5里用label1->Caption=IntToStr(...);

BCB6没用过，不知道有没有这个原因

[飞月梦想]

不是类型问题，用与不用IntToStr函数结果都一样，所以在这里我没有用该函数进行类型转换。

出错的两行代码等号右边无论是什么都会出相同的错，可见问题是等号左边。可应该是没有问题啊。

还是继续请教！！！谢谢！！！

[whitelion]

我的意思是：
访问了没有分配内存的类，你试着一行一行的检查程序吧

[飞月梦想]

我的程序基本上都是从书上照搬的，怎么会这样？

[pcclever]

MyComponent1->Count 是怎么把值返回的呢？

[飞月梦想]

MyComponent1是自定义的组件，Count是其属性，组件是直接读取FCount变量取得属性值的，没什么问题吧。

[show00]

是不是MyComponentl的问题哦？？？试试把你的MyComponentl放到其他工程能用不？

[csdnxw]

可能:
1 访问了一个没有初始化的指针
2 访问了一个已经释放了对象的指针
3 ....看看上面大家的