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

Delphi > VCL组件开发及应用
收藏 回复
[问题点数：100分，结帖人ShallowShrimp]
更多帖子
私信 空间 博客
shallowshrimp
等级
本版专家分：1
结帖率 100%
请教各位高手，我自己创建一个类：
  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   
---------------------------
只看楼主 引用 举报 楼主 收起
展开阅读全文
更多帖子
私信 空间 博客
yinweixian
等级
本版专家分：2981
'Property sWorkerName does not exist'是没有找到属性
只看TA 引用 举报 #1得分 0
更多帖子
私信 空间 博客
luke5678
等级
本版专家分：7043
procedure TForm1.Button1Click(Sender: TObject);
var
  NewWorker:TWorker;
begin
  NewWorker:=TWorker.Create;
  NewWorker.FsWorkerName := 'FsWorkerName';
  ShowMessage(NewWorker.sWorkerName);
end;

这样楼主应该明白了吧!
只看TA 引用 举报 #2得分 0
更多帖子
私信 空间 博客
wanwangzhiwang
等级
本版专家分：7153
按一下Ctrl+shift+C，马上解决问题
只看TA 引用 举报 #3得分 0
私信 空间 博客
wx1452
等级
本版专家分：1543
{$M+}
TWorker = class(TObject)
  private
    FsWorkerName:string;
  public
  published
    property sWorkerName:string read FsWorkerName write FsWorkerName;
  end;
{$M-}

用{$M+}让编译器为TWorker产生RTTI,
或者让TWorker从TPersistent派生
只看TA 引用 举报 #4得分 98
更多帖子
私信 空间 博客
eastunfail
等级
本版专家分：20147
uses TypInfo.pas;

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


你的TWorker类已经表示是工人类了，如果在属性中还重复出现Worker则有点看起来不爽。建议你用Name代替sWorkerName
只看TA 引用 举报 #5得分 0
更多帖子
私信 空间 博客
eastunfail
等级
本版专家分：20147
而且还要按照wx1452()说的，从TPersistent继承或者手动添加产生RTTI的编译开关
只看TA 引用 举报 #6得分 2
更多帖子
私信 空间 博客
alphax
等级
本版专家分：11135
老达摩为什么要用马甲呢？
只看TA 引用 举报 #7得分 0
更多帖子
私信 空间 博客
ly_liuyang
等级
本版专家分：68390
勋章
Blank
黄花 2004年9月 Delphi大版内专家分月排行榜第二
Blank
蓝花 2005年4月 Delphi大版内专家分月排行榜第三
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.
只看TA 引用 举报 #8得分 0
更多帖子
私信 空间 博客
beyondtkl
等级
本版专家分：18542
没写过 学习
只看TA 引用 举报 #9得分 0
更多帖子
私信 空间 博客
shallowshrimp
等级
本版专家分：1
http://community.csdn.net/Expert/topic/3312/3312749.xml?temp=.6168024
不知道各位能否帮我解决这个问题？
只看TA 引用 举报 #10得分 0
1 2
收起
收藏 回复
shallowshrimp

等级：

关注 私信 TA的帖子
Jboss 启动问题

1.web.xml元素先后顺序 我的Jboss是5.1GA, Error Message:AXException: The content of element type "web-app" must match "(icon?,display-name?,

windows下jboss启动、配置、访问

window 下的jboss启动、配置、访问 1、进入jboss\server\default\deploy\jboss-web.deployer 执行run命令 2、jboss访问地址：http://localhost:port 3、jboss端口配置文件： jboss\server\default\deploy\jboss...

Linux下Jboss启动、关闭、端口配置等常见问题FAQ

默认情况下，jboss启动时加载server/default/目录下的配置，要实现多个实例的启动，主要是解决端口冲突的问题，因为一套端口只能被一个应用占有； 一般来说，我们可以在Jboss启动时通过-Djboss.se...

Linux下Jboss启动、关闭、端口配置等常见问题FAQ

单台Linux服务器中如何部署多个独立应用，即多个应用不能run在一个jboss实例中？ 换言之，这个问题也可以这样描述：...默认情况下，jboss启动时加载server/default/目录下的配置，要实现多个实例的启动，主要是解决端

linux下jboss启动配置参数

JBoss Bootstrap Environment JBOSS_HOME: /usr/java/jboss4 JAVA: /usr/java/j2sdk/bin/java JAVA_OPTS: -Dprogram.name=run.sh -server -Xms128m -Xmx512m -Dsun.rmi.dgc.client.gcInterval=3600000 -Dsun.rmi.

jboss启动日志级别配置及日志编码格式配置说明

标题Jboss启动日志级别配置及日志编码格式配置说明 启动日志boot.log 的配置位置 jboss-6.1.0.Final\bin\logging.properties 日志编码格式配置（包括console和log文件） 找到jboss下面的bin文件夹，...

Jboss4集群配置之四:启动Jboss集群

集群准备知识3.Jboss集群配置实例概述4.Jboss集群负载均衡器配置5.Jboss集群节点配置6.启动Jboss集群6.启动Jboss集群步骤先启动负载均衡器apache,然后启动各jboss节点。各jboss节点的启动顺序没有要求。启动负载均衡...

jboss启动超时问题

 最近使用jboss7开发web系统，在开发环境中运行正常，但是发送到现场时启动报错，刚开始感觉很莫名其妙，后来现场发回jboss日志，发现报错 如下 JBAS015052: Did not receive a response to the deployment ...

【转】JBOSS启动参数

JBoss 启动参数解释 -h, --help 显示帮助信息 -V, --version 显示版本信息 -D[=] ...

JBoss常用配置文件

$JBOSS-HOME/server/下有3个目录，all/default/minimal，它们是表示3种配置，全部的配置、默认配置、最小配置，我们在启动JBOSS服务时，可以指定run –c all 表示是启动all配置(将会加载所有服务)；run 表示是以默认...

JBoss7安装配置

一、JBoss优点： a、Jboss支持热部署，将归档后的JAR、WAR文件到部署目录下自动加载部署，自动更新。 b、在高并发访问时，性能比Tomcat更加优秀、高效。 c、Jboss在设计方面与Tomcat相比，进行了线程池和连接池的...

一个jboss启动多个实例

今天终于自己总结一点东西，于是就分享出来，希望大家多多指正 ... 下面就说说怎么让一个jboss启动多个实例：  1.jboss中有server中有all defalut minimal 三个文件夹，分别指的是复杂的配制 默认配置 最小配置

centos 6.5 系统中jboss4.2.3启动过程异常缓慢的问题处理一则

同事反映运行某业务系统的jboss启动异常缓慢. 解决思路: 1.从运行正常的机器拷贝一份环境jboss/jdk到目标机 结果:失败 2.检测磁盘io读写,iotop -o jboss启动时io读写少,怀疑磁盘异常,但后续通过上传文件排除. ...

JBOSS安装配置详细教程

第一章 安装运行JBOSS 1 安装JBOSS JBOSS最新发布的AS（Application Server）版本是5.0.0.Beta1，最近一个稳定版本是4.0.5，我们使用的版本是4.0.4。该版本比较稳定。  安装JBOSS很简单。将jboss-4.0.4.GA.zip...

Linux下配置JBoss自动启动

Linux下配置JBoss自动启动（JBoss V4.0）#为root用户的命令提示符 $为jboss用户的命令提示符Ø 安装J2SDK到/usr/local/j2sdk1.4.2，编辑/etc/profile# /etc/profileJAVA_HOME=/usr/local/j2sdkPATH=$PATH:$JAVA_...

eclipse启动jboss问题

用eclipse启动jboss，结果一些没遇到的问题就出来了。先是访问的端口，不正常。在eclipse中已经将jboss服务端口设置为80，但是真正的端口依旧是88（jboss拷贝他人）.这倒没什么访问88就是了。然而，当我用eclipse...

jboss 启动参数

jboss jvm 启动参数添加 "-Dorg.apache.coyote.http11.Http11Protocol.SERVER=SecureServer" 可去掉获取 端口Banner的信息 Apache-Coyote/1.1

jboss启动多个springboot项目

springboot项目有N个微服务，正常我们都是用jar直接启，但是我们客户要求用jboss作为服务器，记录以下踩过的坑： 1.运行多个微服务报：unable to register MBean，有两种办法:A spring. jmx. enabled=false 。B ...

JBoss AS 安装配置部署

JBoss AS 7.1.1.Final 启动失败：JBAS015899：Brontes starting 最新的wildfly17的配置参考： Wildfly 10的安装、配置到部署 1、下载安装 http://jbossas.jboss.org/downloads/ JBoss A...

IDEA导入maven项目JBoss启动

apache-maven-3.6.0 jboss-as-7.1.1.Final 2.1 添加microsoft sqlserver 2.2 替换或配置对应的standalone.xml 3. 导入项目 4. 配置maven file->...6. 配置Project Structure ...7. 配置JBoss ...

如何在Jboss启动时调用Java程序

有一个配置文件和数据库某个表对应，...现在有个问题，如果我换了个数据库，启动Jboss后，因为数据库更改会造成数据库表和文件不一致。 现在想每次启动Jboss时都去读数据库表，然后更新文件。 请问这个应该怎么实现。

修改jboss启动端口

在 D:\jboss-6.1.0\server\default\conf\bindingservice.beans\META-INF\bindings-jboss-beans.xml下面 找到  修改port就可以了。

JBoss7.1.1配置成windows启动服务

JBoss 7 .1.1配置成windows启动服务 原文 http://www.cnblogs.com/pancz/p/4062015.html 将Jboss7.1.1 server 配置成一个windows启动服务的两个文件，部署步骤如下： 1. 先检查是否配置java_home和...

小技巧：如何解决Eclise中JBoss服务器启动超时

通常而言，Eclipse中JBoss启动时间应该是比较快的，默认的启动超时时间为50秒，如果你不幸看到下面的弹出框： 你可能需要改动Eclipse中的JBoss插件配置，修改默认的启动时间，来让JBoss有更多的时间启动。 ...

JBoss启动参数

========================================================================= JBoss Bootstrap Environment ... JBOSS_HOME: /usr/java/jboss4 JAVA: /usr/java/j2sdk/bin/java JAVA_OPTS: -Dp...

Jboss启动报错：Could not reserve enough space for object heap

Jboss启动时报错：查看服务器的内存，可是32G的啊，任务管理器中，内存剩余20几个G呢Jboss的JAVA_OPTS设置如图查看bin下的run.bat、run.conf、run.conf.bat，几个配置几乎都是如图的，远远小于32G的啊，没有办法，...

jboss5配置文件路径

路径\jboss-eap-5.0\jboss-as\server\default\deploy\jbossweb.sar\server.xml可修改port="8080"变更端口可修改address="${jboss.bind.address}&...解决外部不能访问的问题(默认配置相当于127.0.0.1)...

Jboss启动与访问的问题

下载jboss之后,首先需要的就是配置环境, 在此之前需要配置Java运行环境,jboss5.0需要创建"变量名=JAVA_HOME","变量值=jdk安装目录",　在bin目录下就行:不要包括到bin 然后新建系统变量:"变量名=JBOSS_HOME",变量...

Jboss7集群配置说明

JBOSS7集群配置说明 第一节 前言 JBOSS7具有独立模式(standalone)和域模式(domain)两种运行方式。独立模式(standalone)是单机器单进程方式，配置布署简单，适用于一般单服务器项目。域模式(domain)是多机器多进程...

jboss启动后其他机器无法访问jboss的应用

并且本机直接使用本机IP也无法访问到，在其他机器以及本机使用本机IP telnet jboss端口也不通，最后再网上几经搜索才发现原来jboss启动之后绑定到127.0.0.1上。最后再...

相关热词 c# dll str乱码 c# ucs-2 转码 c# 图形按钮 漂亮 c# lic文件 c# 十进制数字转换字母 c#某个变量更改刷新 c#往json里添加数据 c#怎么调用api接口 c# 调用mstsc c#扩展函数