TLabel释放出错

2009-07-03 12:09:17 107 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C++Builder 6 开发指南：VCL框架与RAD模式在遗留系统维护中的应用在Windows桌面开发领域，快速应用程序开发（RAD）是一种通过可视化设计工具提升开发效率的经典范式。其核心原理是将界面元素封装为可复用的组件，通过事件驱动模型将用户操作与业务逻辑绑定，从而降低开发门槛。这种模式的技术价值在于能够快速构建具有原生性能的桌面应用，尤其适合业务逻辑明确、界面复杂的内部工具或生产系统。在工业控制、医疗仪器等传统行业，大量遗留系统仍基于Borland C++Builder 6（BCB6）及其VCL框架运行，这些系统稳定但维护需求持续。本文聚焦于BCB6的RAD开发实践，详解VCL 阅读详情

我继承TCustomControl写了个控件，里面加了几个label控件，不知道为什么一到释放Label的时候就会出错?在别的单元里引用这个控件，运行时很正常，一到后边释放就蹦出错误'invalid pointer Operation'和‘Exception Einvalidpointer in model ...’
创建：
function CreateLable(LPoint: TPoint; LColor: TColor; LCaption: string):TLabel;
begin
Result :=TLabel.Create(nil);
Result.Font.Color := LColor;
Result.Font.Name :='宋体';
Result.Font.Height := -15;
Result.Font.Style :=[fsBold];
Result.Transparent :=True;
Result.Parent :=Self;
Result.Visible :=True;
Result.Left :=LPoint.X;
Result.Top :=LPoint.Y;
Result.Width :=40;
Result.Caption :=LCaption;
end ;

FLabLandPair := CreateLable(Point(196,64),clBlack,'0');
FLabIdlePair := CreateLable(Point(75, 64),clBlack,'0');
FLabLandKing := CreateLable(Point(317,64),clBlack,'0');
FLabIdleKing := CreateLable(Point(438,64),clBlack,'0');

=============================================================================
释放：
if Assigned(FLabLandPair) then FreeAndNil(FLabLandPair);
if Assigned(FLabIdlePair) then FreeAndNil(FLabIdlePair);
if Assigned(FLabLandKing) then FreeAndNil(FLabLandKing);
if Assigned(FLabIdleKing) then FreeAndNil(FLabIdleKing);

...全文

abaqus 根据坐标施加载荷- Analytical Field 载荷映射在一些类型的分析中，需要将按位置分布的载荷施加到结构上，比如流体分析导出了结构的气动载荷、或者温度载荷，需要将压强分布、温度分布载荷施加到固体上。这种分析可以使用abaqus中的Analytical Field实现。 1 例子 1.1 结构一个100*100mm的面，面的载荷分布函数为p=(x2+y2)0.5/((20.5)*100) MPa，即(0, 0)的压强为0，(100, 100)的压强为1。 1.2 载荷载荷函数：p=(x^2+y^2)^0.5/((2^0.5)*100) in exce. 阅读详情

jjbhql

非技术区 830 成员 53,568 内容

+ 关注 + 加入社区

切换为时间正序

弘石 2009-07-03

打赏
举报

这些代码没有问题，你是不是重复释放了？

haitao 2009-07-03

打赏
举报

是不是你freeandnil的时候，label的一些基础（parent）已经先被释放了？

jjbhql 2009-07-03

打赏
举报

简单的free也不行！第二个我也知道，只是我想知道上面到底为什么出错！

haitao 2009-07-03

打赏
举报

简单Fxxx.free;行不行？
如果不是需要先于form而释放，可以Result :=TLabel.Create(Aform);{需要多传入一个参数aForm} 就不用人为释放了

jjbhql 2009-07-03

打赏
举报

这是所有的Create和Destory,TPNGObject和 TPictureButtOn是第三方的并且已经用过多次肯定是没有问题的。
type
ResultType = (Idle, Ping, Land);
ResultTypeOption = (clNone,clLandPair,clIdlePair,clLandIdle);
CResultOption =packed record
arResultType: TBetPlace;
IsLandPair: Boolean;
IsIdlePair: Boolean;
end;

TableArrPos =packed record
X: Integer;
Y: Integer;
end;

constructor TBJLResultTable.Create(AOwer: TComponent);
var
I: ResultType;
J:ResultTypeOption;
PicPng: TPNGObject;
function CreateLable(LPoint: TPoint; LColor: TColor; LCaption: string):TLabel;
begin
Result :=TLabel.Create(Self);
Result.Font.Color := LColor;
Result.Font.Name :='宋体';
Result.Font.Height := -15;
Result.Font.Style :=[fsBold];
Result.Transparent :=True;
Result.Parent :=Self;
Result.Visible :=True;
Result.Left :=LPoint.X;
Result.Top :=LPoint.Y;
Result.Width :=40;
Result.Caption :=LCaption;
end ;
begin
inherited;
EmptyTable;

PicPng :=TPNGObject.Create;
PicPng.LoadFromResourceName(HInstance, 'TbaleBack');
FBackGround :=TPicture.Create;
FBackGround.Graphic :=PicPng;
Width :=FBackGround.Width;
Height :=FBackGround.Height;

for I :=Low(ResultType) to High(ResultType) do
begin
for J := Low(ResultTypeOption) to High(ResultTypeOption) do
begin
PicPng.LoadFromResourceName(HInstance, Format('%s%d',[FarrResName[I],ord(J)]));
FArrResultPic[I][J] := TPicture.Create;
FArrResultPic[I][J].Graphic :=PicPng;
end;

PicPng.LoadFromResourceName(HInstance,Format('%s',[FArrSResName[I]]));
FArrResultSPic[I] :=TPicture.Create;
FArrResultSPic[I].Graphic :=PicPng;

FLabResultNum[I] := CreateLable( Point(72+ord(I)*153, 42), FArrColor[I],'0');
FlabResultRate[I] := CreateLable( Point(102+ord(I)*153, 42), clBlack,'00.00%');
end;

FLabLandPair := CreateLable(Point(196,64),clBlack,'0');
FLabIdlePair := CreateLable(Point(75, 64),clBlack,'0');
FLabLandKing := CreateLable(Point(317,64),clBlack,'0');
FLabIdleKing := CreateLable(Point(438,64),clBlack,'0');

FCloseBtn :=TPictureButton.Create(Self);
FCloseBtn.Parent :=Self;
FCloseBtn.Visible := True;
FCloseBtn.Left :=475;
FCloseBtn.Top :=10;
FCloseBtn.OnClick := CloseBtnClick;

try
PicPng.LoadFromResourceName(Hinstance, 'CloseComm');
FCloseBtn.CommPicture.Graphic := PicPng;
PicPng.LoadFromResourceName(HInstance, 'CloseMove');
FCloseBtn.MovePicture.Graphic :=PicPng;
PicPng.LoadFromResourceName(HInstance,'CloseDown');
FCloseBtn.DownPicture.Graphic :=PicPng;
finally
if Assigned(PicPng) then
FreeAndNil(PicPng);
end;

end;

destructor TBJLResultTable.Destroy;
var
I:ResultType;
J:ResultTypeOption;
begin
inherited;

if Assigned(FLabLandPair) then FreeAndNil(FLabLandPair);
if Assigned(FLabIdlePair) then FreeAndNil(FLabIdlePair);
if Assigned(FLabLandKing) then FreeAndNil(FLabLandKing);
if Assigned(FLabIdleKing) then FreeAndNil(FLabIdleKing);
if Assigned(FCloseBtn) then FreeAndNil(FCloseBtn);

for I := Low(ResultType)to High(ResultType) do
begin
for J := Low(ResultTypeOption) to High(ResultTypeOption) do
begin
if Assigned(FArrResultPic[I][J]) then FreeAndNil(FArrResultPic[I][J]);
end;
if Assigned(FArrResultSPic[I]) then FreeAndNil(FArrResultSPic[I]);
if Assigned(FLabResultNum[I]) then FreeAndNil(FLabResultNum[I]);
if Assigned(FLabResultRate[I]) then FreeAndNil(FLabResultRate[I]);
end;

end;

jjbhql 2009-07-03

打赏
举报

jjbhql 2009-07-03

打赏
举报

就写在这个控件的Destroy里拉，要不我把整个单元的代码贴出来？只是里面用了几个第三方控件，可能会造成不好理解。

beifangke 2009-07-03

打赏
举报

释放写在哪里的？

TLabel释放出错

相关推荐