4894
社区成员
有关类赋值的问题。
定义了一个类：
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;
应该如何修改？
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;
应该如何修改？
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
crackatom 2004-08-16
补充：
Pack:TPack;
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;//就在这里出错；
......
我定义一个数据包：
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.
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一下
asp.net利用反射实现给model类赋值的方法 主要介绍了asp.net利用反射实现给model类赋值的方法,结合实例形式分析了asp.net使用反射给model类赋值的操作步骤与相关操作技巧,需要的朋友可以参考下
java反射对实体类取值和赋值 项目中需要过滤前面表单页面中传过来的实体类的中的String类型变量的前后空格过滤，由于前几天看过一个磨砺营的java反射讲解，非常受益。于是，哈哈哈 public static <T> void modelTrim(T model){ Class<T> ...
基类与派生类对象之间的赋值问题 一、将派生类对象赋值给基类对象？ 注意：这不同于将派生类对象赋值给基类的引用或者指针 请看如下代码： Base b; //基类对象 Derived d; //派生类对象 b=d; //赋值 这将使用哪一个运算符呢？赋值语句实际上会被...
java反射遍历实体类属性和类型,并赋值和获取值的简单方法 下面小编就为大家带来一篇java反射遍历实体类属性和类型,并赋值和获取值的简单方法。小编觉得挺不错的，现在就分享给大家，也给大家做个参考。一起跟随小编过来看看吧
深入理解Python中变量赋值的问题 在 python 中赋值语句总是建立对象的引用值，而不是复制对象。因此，python 变量更像是指针，而不是数据存储区域，这点和...下面这篇文章主要介绍了Python中变量赋值的问题,需要的朋友可以参考借鉴，下面来一起看看吧。
利用反射子父类赋值高效工具类案例extends_setvalue.zip 利用反射子父类赋值高效工具类案例，特别对扩展类进行数据持久化的时候或者是查询父类数据要赋值给扩展类时，这个工具类就非常高效高性能。避免许多冗余代码和重复IO读写；
实体类set方法赋值问题 关于Java实体类计算的问题 是这样的，我同一个实体类有几个属性是其他几个几个属性值计算得来的。我想在set方法的时候就给她将值赋进去，但是我现在做的sprintBoot项目用的@Data注解，有什么好的办法可以实现我想要...
