＋设为首页 ＋添加到收藏夹
我自定义了一个类，如下
type cls_jfzt=class
public
dq_jfid:string;
dq_jfmc:string;
dq_pbzl:string;
dq_pbjhdm:integer;
dq_pbjhmc:string;
dq_bclx:integer;
dq_zbbc:string;
dq_zbbc_last:string;
dq_bzdm:integer;
dq_bzdm_last:integer;
dq_kssj:string;
dq_jzsj:string;
procedure set_jf(jfid:string;jfmc:string);
procedure set_pbzl(zl:string);
procedure set_pb(today:string);
procedure set_zbbc(today:string;now_1:string);
procedure set_zbbc_last(today:string);
procedure set_bzdm(today:string);
procedure set_all(jfid,jfmc,zl:string);
function fun_getyesterday(today:string):string;
end
可以使用，但是这个类的两个对象进行赋值时就报错，delphi 中有运算符重载的函数吗？
我这个类有问题吗？
谢谢
delphi 中无运算符重载的函数
也许将来会有
两个对象进行赋值最好自己实现一个assign(const aa:cls_jfzt)方法
example:
procedure cls_jfzt.assign(const aa:cls_jfzt)
begin
dq_jfid=aa.dq_jfid;
.
.
.
end;
