社区
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;
应该如何修改?
...全文
193
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
类
数组
赋值
的
问题
?
最近用matlab做了一些面向对象的开发工作,感觉很爽,但是遇到一个对于
类
数组的
赋值
问题
,一直无解,不知道是不是matlab不支持。我用的是 matlab r2008a (7.06.0.324)
问题
如下:element 是一个
类
,有一些基本属性;...
php
类
赋值
,php 给
类
变量
赋值
问题
private $pagebarnum=10;$this->pagebarnum = $array['page_name'];$this->set('pagebarnum ',$.../** * 设定
类
中指定变量名的值,如果改变量不属于这个
类
,将throw一个exception * @param unknown $var * ...
java内部
类
赋值
_详解 Java 内部
类
内部
类
在 Java 里面算是非常常见的一个功能了,在日常开发中我们肯定多多少少都用过,这里总结一下关于 Java 中内部
类
的相关知识点和一些使用内部
类
时需要注意的点。从种
类
上说,内部
类
可以分为四
类
:普通内部
类
、...
相似实体
类
赋值
我们经常会遇到实体
类
赋值
的情况,尤其是两个实体
类
有很多相似的变量,如果想传递参数一般只能 通过get set方法一个个
赋值
在springframework提供了
赋值
的工具
类
<dependency> <groupId>org.spring...
java
类
变量
赋值
_Java 中
类
变量,实例变量,局部变量的
赋值
在 Java 中,
类
变量,实例变量可以不经过主动
赋值
就直接使用,而局部变量在不主动
赋值
的情况下,是无法使用的。在下面分析一下这个原因:1.
类
变量
类
变量的
赋值
有两次,两次都在
类
加载的过程中,
类
加载可以简单的...
Delphi
5,929
社区成员
262,934
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章