如何根据属性名称给属性赋值？

2004-08-30 05:01:12 384 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

植物叶绿体基因组分析全攻略：从共线性到密码子偏好性本文全面解析植物叶绿体基因组分析流程，从共线性分析到密码子偏好性研究。详细介绍了叶绿体基因组结构特征、测序数据获取与质量控制、基因组组装与注释方法，以及比较基因组学和进化分析技术。特别关注IR区边界变异分析和选择压力评估，为植物系统发育研究和物种鉴定提供实用指南。阅读详情

请教各位高手，我自己创建一个类：
TWorker = class(TObject)
private
FsWorkerName:string;
public
published
property sWorkerName:string read FsWorkerName write FsWorkerName;
end;

引用下面语句赋值：
var NewWorker:TWorker;
begin
NewWorker:=TWorker.Create;
SetPropValue(NewWorker,'sWorkerName','shallowshrimp');
end;

结果系统报错，为什么？
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EPropertyError with message 'Property sWorkerName does not exist'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

...全文

西门子PLC1200与CB1241模块的Modbus RTU从站配置全流程（附串口调试技巧）本文详细介绍了西门子S7-1200 PLC与CB1241通信模块实现Modbus RTU从站配置的全流程，包括硬件接线规范、TIA Portal工程组态、通信指令编程及串口调试技巧。通过实战案例和常见错误处理方案，帮助工程师快速搭建稳定的工业通信系统，提升自动化设备的互联互通能力。阅读详情

ShallowShrimp

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

wx1452 2004-08-30

打赏
举报

alphax:
最近怎么样，好久没有联系了
最近想用这个wx1452来升颗星
本来想一直隐藏下去,,,
呵呵，可能是有点无聊吧
不过有很多问题弄不懂

ShallowShrimp 2004-08-30

打赏
举报

http://community.csdn.net/Expert/topic/3312/3312749.xml?temp=.6168024
不知道各位能否帮我解决这个问题？

beyondtkl 2004-08-30

打赏
举报

没写过学习

ly_liuyang 2004-08-30

打赏
举报

N年写的，翻出来：）

unit SetControlProp_Unit;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, TypInfo;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
function SetControlProp(ComStr, value: string): boolean;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.SetControlProp(ComStr, value: string): boolean;
var
ComName, ComProp: string;
i: integer;
PropInfo: PPropInfo;
cp: TComponent;
begin
i := Pos('.', ComStr);
if i > 0 then
begin
ComName := copy(ComStr, 1, i-1);
ComProp := Copy(Comstr, i+1, 1000);
cp := FindComponent(ComName);
PropInfo := GetPropInfo(cp.ClassInfo, ComProp);
if Assigned(PropInfo) then
SetStrProp(cp, PropInfo, value);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SetControlProp('button1.caption', 'hello');
end;

end.

alphax 2004-08-30

打赏
举报

老达摩为什么要用马甲呢？

Eastunfail 2004-08-30

打赏
举报

而且还要按照wx1452()说的，从TPersistent继承或者手动添加产生RTTI的编译开关

Eastunfail 2004-08-30

打赏
举报

uses TypInfo.pas;

var Worker:TWorker;
begin
....
SetStrProp(Worker,'sWorkerName','工人名字')
end;

你的TWorker类已经表示是工人类了，如果在属性中还重复出现Worker则有点看起来不爽。建议你用Name代替sWorkerName

wx1452 2004-08-30

打赏
举报

{$M+}
TWorker = class(TObject)
private
FsWorkerName:string;
public
published
property sWorkerName:string read FsWorkerName write FsWorkerName;
end;
{$M-}

用{$M+}让编译器为TWorker产生RTTI,
或者让TWorker从TPersistent派生

wanwangzhiwang 2004-08-30

打赏
举报

按一下Ctrl+shift+C，马上解决问题

luke5678 2004-08-30

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
var
NewWorker:TWorker;
begin
NewWorker:=TWorker.Create;
NewWorker.FsWorkerName := 'FsWorkerName';
ShowMessage(NewWorker.sWorkerName);
end;

这样楼主应该明白了吧!

yinweixian 2004-08-30

打赏
举报

'Property sWorkerName does not exist'是没有找到属性

如何根据属性名称给属性赋值？

相关推荐