社区
Delphi
帖子详情
有关类赋值的问题。
crackatom
2004-08-16 12:24:49
定义了一个类:
TClass1 = Class
Test1 : TClass2;
Test2 : TClass3;
大体过程如下:
procedure Test;
var Class1:TClass1;
Class2:TClass2;
begin
Class1:=TClass1.create;
Class2:=TClass2.create;
// 这里 Class2 赋值;
Class1.Test1:=Class2; //就在这里出错;
end;
应该如何修改?
...全文
192
10
打赏
收藏
有关类赋值的问题。
定义了一个类: TClass1 = Class Test1 : TClass2; Test2 : TClass3; 大体过程如下: procedure Test; var Class1:TClass1; Class2:TClass2; begin Class1:=TClass1.create; Class2:=TClass2.create; // 这里 Class2 赋值; Class1.Test1:=Class2; //就在这里出错; end; 应该如何修改?
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
10 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
crackatom
2004-08-16
打赏
举报
回复
补充:
Pack:TPack;
crackatom
2004-08-16
打赏
举报
回复
我觉得也是正确的,但发生地址访问冲突;
我定义一个数据包:
TPackHead = Class
cmd : word;
flag : word;
TPackContent = Class
PackLength : word;
PackContent : word;
TPack = Class
PackHead : TPackHead;
PackContent : TPackContent;
var TestPackHead:TPackHead;
......
//这里对TestPackHead赋值;
Pack.PackHead:=TestPackHead;//就在这里出错;
......
kaguo
2004-08-16
打赏
举报
回复
楼主,你的问题出在哪里?我建立了类似你的程序成功运行...
kaguo
2004-08-16
打赏
举报
回复
TClass2 = Class
Test2 : string;
end;
TClass1 = Class
Test1 : TClass2;
aaa:string;
end;
procedure TForm1.Button1Click(Sender: TObject);
var Class1:TClass1;
Class2:TClass2;
begin
Class1:=TClass1.create;
Class2:=TClass2.create;
Class2.Test2 :='asd';
// 这里 Class2 赋值;
Class1.Test1:=Class2;
edit1.Text := Class1.Test1.Test2;
end;
我测试,没错误的!
linzhengqun
2004-08-16
打赏
举报
回复
Class1.Test1:=Class2; //就在这里出错;
肯定会出错,你把一个类赋给一个字符类型。
问题是你要做什么,你写得好乱。
kaguo
2004-08-16
打赏
举报
回复
sorry sorry 错了地方...
kaguo
2004-08-16
打赏
举报
回复
frReport1.SavePreparedReport('d:\3.frp'); 先给他存了
chinaandys
2004-08-16
打赏
举报
回复
过程不能等一个类.
kaguo
2004-08-16
打赏
举报
回复
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TPackHead = Class
cmd : word;
flag : word;
end;
TPackContent = Class
PackLength : word;
PackContent : word;
end;
TPack = Class
PackHead : TPackHead;
PackContent : TPackContent;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var TestPackHead:TPackHead;
TestPackContent:TPackContent;
Pack:TPack;
begin
Pack:=TPack.Create;
TestPackHead:=TPackHead.Create;
TestPackHead.cmd := 123;
TestPackContent:=TPackContent.Create;
//这里对TestPackHead赋值;
Pack.PackHead:=TestPackHead;//就在这里出错;//没出错啊?
end;
end.
crackatom
2004-08-16
打赏
举报
回复
ding一下
matlab
类
赋值
,Matlab
类
数组
赋值
的
问题
?
不好意思 , 上次自己发的那个帖子找不到了。重新发一个。
问题
是如何对 由classdef 产生的对象 构建的数组
赋值
的
问题
。最近用matlab做了一些面向对象的开发工作,感觉很爽,但是遇到一个对于
类
数组的
赋值
问题
,一直无解,不知道是不是matlab不支持。我用的是 matlab r2008a (7.06.0.324)
问题
如下:element 是一个
类
,有一些基本属性;container是另外一个
类
...
php
类
赋值
,php 给
类
变量
赋值
问题
private $pagebarnum=10;$this->pagebarnum = $array['page_name'];$this->set('pagebarnum ',$array['page_name']);/** * 设定
类
中指定变量名的值,如果改变量不属于这个
类
,将throw一个exception * @param unknown $var * ...
c++第十一天(基
类
与派生
类
的
赋值
问题
和动态多态)
基
类
与派生
类
的
赋值
问题
C++编程语言中
类
对象的
赋值
与复制介绍(一)
本系列文章主要介绍C++编程语言中
类
对象的
赋值
和复制操作,以及两者之间的区别,另外还会介绍“深拷贝”与“浅拷贝”的相关知识。本文为系列文章的第一篇,主要介绍C++编程语言中
类
对象的
赋值
的相关知识。
将一个实体
类
赋值
给另一个实体
类
1. 自己写工具
类
下面这个
类
便可以帮我们实现。 在Main方法中我给AppointmentOrderParam
类
初始化并
赋值
,然后想把这个
类
的值能够自动
赋值
给另一个
类
AppointmentOrder,这两个
类
大部分属性是一样的,有个别不一样。
赋值
有个需要注意的地方,那就是在AppointmentOrderParam
类
中的apointmentTime字段
类
型是String,而AppointmentOrder
类
中的同名字段apointmentTime是个Date
类
型,像这样的情况就不要让它
赋值
了,跳过即可。
Delphi
5,928
社区成员
262,931
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章