TAddress是一个record类型的数据,里面的字段有street、city、state等,能不能给其中任意字段赋值,比如Person.address.city:='Shanghai'; (总是遇到left side cannot be assigned to).
解决方案 »
- 同时查询多表更新的问题
- QRCompositeReport1连接多个quickreport发现的问题!急急急急急
- 采用什么样的方式可以使文件上传至ftp,资源利用率最小
- XML保存的问题:如何将修改过的文件(在Treeview里改的)保存到原来的XML里???
- 如何关闭MDI 子 窗体 ???????????????????????????????/急
- 怎么样让AdoDataSet连接表的速度变快?
- 请问如何判断edit里面输入的是数字?
- 大家帮忙:数据修改问题
- 关于DELPHI网络通信SNMP方面(我将给出500分)
- delphi中大文件读取的问题
- 一个文件内容处理的问题
- 我C++写了一个类,没有用到任何的MFC类,类都是封装微软的API,我用VC编译成DLL。这个DLL,要如何让DELPHI程序可以调用该类里的公共函数
// 左值?? 你貼一下詳細代碼?
type
TAddress = record
Company: string;
Street: string;
City: string;
Province: string;
Country: TCountry;
ZipCode: string;
end;TPerson类:
type TPerson=class
private
m_Address:TAddress;
published
property Address: TAddress read m_Address write m_Address ;
end;实例:
persen:=tperson.create;
person.address.street:='Shanghai';
private
FCompany: string;
FStreet: string;
FCity: string;
FProvince: string;
FCountry: TCountry;
FZipCode: string;
private
procedure SetCompanyValue(Value: string); published
property Company: string read FCompany write SetCompanyValue;
.... // others
end;property Address: TAddress read m_Address write m_Address ;
你這樣只是對Address 沒有對裡面的成員
property Address: TAddress read m_Address write SetValue; 可以添加一个过程:
procedure SetValue(Add: TAddress);
begin
m_Address.City := Add.City;
//others
end;
实例化时可以:
var
AddressValue: TAddress;
begin
AddressValue.city := 'ShangHai';
//other items
persen:=tperson.create;
person.address := AddressValue;
...end;