Delphi 字符串转成现有类

lphj07 2011-03-21 08:30:16

语句：类名(self.FindComponent('XXX')).Caption:='XXXName';

怎样动态把上述语句的“类名”动态化，通过字符串传入，如“Tfrom、Tedit”等

...全文

186 12 打赏收藏转发到动态举报

写回复

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

tomorrow619810 2011-03-24

打赏
举报

回复

var
propinfo: PPropInfo;
begin
Propinfo := GetPropInfo(Control, 'Caption');
if propinfo <> nil then
begin
.....
end;

end;

haitao 2011-03-22

打赏
举报

回复

[Quote=引用 8 楼 lphj07 的回复:]
晕倒，一句话

SetProValues(FindComponent('XXX'),'dd','ff')

谢谢各位
[/Quote]

好像d7还不支持？

砝码 2011-03-21

打赏
举报

回复

每天回帖即可获得10分可用分！

xujin3000 2011-03-21

打赏
举报

回复

var
propinfo: PPropInfo;
begin
Propinfo := GetPropInfo(Control, 'Caption');
if propinfo <> nil then
begin
.....
end;

end;

lphj07 2011-03-21

打赏
举报

回复

晕倒，一句话

SetProValues(FindComponent('XXX'),'dd','ff')

谢谢各位

lphj07 2011-03-21

打赏
举报

回复

[Quote=引用 6 楼 iamduo 的回复:]
var cc:TComponent;
begin
cc := self.FindComponent('XXX');
if cc is TButton then
TButton(cc).Caption :=
[/Quote]

不能确定是不是有TButton

iamduo 2011-03-21

打赏
举报

回复

var cc:TComponent;
begin
cc := self.FindComponent('XXX');
if cc is TButton then
TButton(cc).Caption :=

lphj07 2011-03-21

打赏
举报

回复

[Quote=引用 4 楼 sz_haitao 的回复:]
function FindClass(const ClassName: string): TPersistentClass;
[/Quote]

这个我知道，但是如何转化后面的动态属性呢，(self.FindComponent('XXX')).Caption:='XXXName';

haitao 2011-03-21

打赏
举报

回复

function FindClass(const ClassName: string): TPersistentClass;

lphj07 2011-03-21

打赏
举报

回复

楼上能否详细一点啊，没用过着玩意

wrzaufe 2011-03-21

打赏
举报

回复

就是把在函数里定义成Tcontrol类型

wrzaufe 2011-03-21

打赏
举报

回复

那就用Tcontrol试试

返回指定字符串的起始位置，在Delphi中的实现方法很简单，使用现有的内置函数就可以，在本示例中我们使用IntToStr就可以轻松获取字符串中指定字符出现的位置，本判断中包括了英文和中文的判断，两种类型都可以使用IntToStr来实现，参考如下代码编写即可：　　begin 　　 s := 'Private declarations'; 　　 p := 'tion'; 　　 ShowMessage('源码的起始位置为：' IntToStr(Pos('源码','你好，源码素材网'))); 　　 ShowMessage('tion的起始位置为：' IntToStr(Pos(p,s))); 　　end; 　　本示例完整代码文件，请单击下载按钮下载。

一、临界区所谓临界区，就是一次只能由一个线程来执行的一段代码。如果把初始化数组的代码放在临界区内，另一个线程在第一个线程处理完之前是不会被执行的。使用临界区的步骤： 1、先声明一个全局变量类型为TRTLCriticalSection； 2、在线程Create()前调用InitializeCriticalSection()过程来初始化，该函数定义是： void WINAPI InitializeCriticalSection(LPCRITICAL_SECTION lpCriticalSection); 类型lpCriticalSection即是Delphi封装的TRTLCriticalSection。 3、在线程的需要放入临界区的代码前面使用EnterCriticalSection(lpCriticalSection)过程来开始建立临界区。在代码完成后用LeaveCriticalSection(lpCriticalSection)来标志临界区的结束。 4、在线程执行完后用DeleteCriticalSection(lpCriticalSection)来清除临界区。这个清除过程必须放在线程执行完后的地方，比如FormDesroy事件中。上面的例子中，若把该过程放在TMyThread.Create(False);后，会产生错误。二、互斥：互斥非常类似于临界区，除了两个关键的区别：首先，互斥可用于跨进程的线程同步。其次，互斥能被赋予一个字符串名字，并且通过引用此名字创建现有互斥对象的附加句柄。提示临界区与事件对象(比如互斥对象)的最大的区别是在性能上。临界区在没有线程冲突时，要用10~15个时间片，而事件对象由于涉及到系统内核要用400~600个时间片。使用互斥的步骤： 1、声明一个类型为Thandle或Hwnd的全局变量,其实都是Cardinal类型。Hwnd是handle of window,主要用于窗口句柄；而Thandle则没有限制。 2、线程Create()前用CreateMutex()来创建一个互斥量。该函数定义为： HANDLE WINAPI CreateMutex( LPSECURITY_ATTRIBUTES lpMutexAttributes, BOOL bInitialOwner, LPCTSTR lpName:Pchar); LPSECURITY_ATTRIBUTES参数为一个指向TSecurityAttributtes记录的指针。此参数设为nil，表示访问控制列表默认的安全属性。 bInitalOwner参数表示创建互斥对象的线程是否要成为此互斥对象的拥有者。当此参数为False时，表示互斥对象没有拥有者。 lpName参数指定互斥对象的名称。设为nil表示无命名，如果参数不是设为nil，函数会搜索是否有同名的互斥对象存在。如果有，函数就会返回同名互斥对象的句柄。否则，就新创建一个互斥对象并返回其句柄。返回值是一handle。当错误发生时，返回null，此时用GetLastError函数可查看错误的信息。利用CreateMutex()可以防止程序多个实例运行，如下例： Program ABC; Uses Forms,Windows,…; {$R *.res} Var hMutex:Hwnd; Begin Application.Initialize; hMutex:=CreateMutex(nil,False,Pchar(Application.Title)); if GetLastErrorERROR_ALREADY_EXISTS then begin //项目要运行的咚咚 end; ReleaseMutex(hMutex); Application.Run; End; 在本节的例程中，我们只是要防止线程进入同步代码区域中，所以lpName参数设置为nil。 3、在同步代码前用WaitForSingleObject()函数。该函数使得线程取得互斥对象（同步代码）的拥有权。该函数定义为： DWORD WINAPI WaitForSingleObject( HANDLE hHandle, DWORD dwMilliseconds); 这个函数可以使当前线程在dwMilliseconds指定的时间内睡眠，直到hHandle参数指定的对象进入发信号状态为止。一个互斥对象不再被线程拥有时，它就进入发信号状态。当一个进程要终止时，它就进入发信号状态。dwMilliseconds参数可以设为0，这意味着只检查hHandle参数指定的对象是否处于发信号状态，而后立即返回。dwMilliseconds参数设为INFINITE，表示如果信号不出现将一直等下去。这个函数的返回值含义： WAIT_ABANDONED 指定的对象是互斥对象，并且拥有这个互斥对象的线程在没有释放此对象之前就已终止。此时就称互斥对象被抛弃。这种情况下，这个互斥对象归当前线程所有，并把它设为非发信号状态 WAIT_OBJECT_0 指定的对象处于发信号状态 WAIT_TIMEOUT 等待的时间已过，对象仍然是非发信号状态再次声明，当一个互斥对象不再被一个线程所拥有,它就处于发信号状态。此时首先调用WaitForSingleObject()函数的线程就成为该互斥对象的拥有者，此互斥对象设为不发信号状态。当线程调用ReleaseMutex()函数并传递一个互斥对象的句柄作为参数时，这种拥有关系就被解除，互斥对象重新进入发信号状态。注意除WaitForSingleObject()函数外，你还可以使用WaitForMultipleObject()和MsgWaitForMultipleObject()函数，它们可以等待几个对象变为发信号状态。这两个函数的详细情况请看Win32 API联机文档。 4、在同步代码结束后，使用ReleaseMutex(THandle)函数来标志。该函数只是释放互斥对象和线程的拥有者关系，并不释放互斥对象的句柄。 5、调用CloseHandle(THandle)来关闭互斥对象。请注意例程中该函数的使用位置。三、还有一种用信号量对象来管理线程同步的，它是在互斥的基础上建立的，但信号量增加了资源计数的功能，预定数目的线程允许同时进入要同步的代码。有点复杂，想不到在哪可以用，现在就不研究论了。 unit Tst_Thread3U; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private procedure ThreadsDone(Sender: TObject); end; TMyThread=class(TThread) protected procedure Execute;override; end; var Form1: TForm1; implementation {$R *.dfm} const MaxSize=128; var NextNumber:Integer=0; DoneFlags:Integer=0; GlobalArry:array[1..MaxSize] of Integer; Lock:byte; //1-不同步 2-临界区 3-互斥 CS:TRTLCriticalSection; //临界区 hMutex:THandle; //互斥 function GetNextNumber:Integer; begin Result:=NextNumber; inc(NextNumber); end; procedure TMyThread.Execute; var i:Integer; begin FreeOnTerminate:=True; //终止后自动free OnTerminate:=Form1.ThreadsDone; if Lock3 then //非互斥情况 begin if Lock=2 then EnterCriticalSection(CS); //建立临界区 for i := 1 to MaxSize do begin GlobalArry[i]:=GetNextNumber; Sleep(5); end; if Lock=2 then LeaveCriticalSection(CS);//离开临界区 end else //-------互斥 begin if WaitForSingleObject(hMutex,INFINITE)=WAIT_OBJECT_0 then begin for i := 1 to MaxSize do begin GlobalArry[i]:=GetNextNumber; Sleep(5); end; end; ReleaseMutex(hMutex); //释放 end; end; procedure TForm1.ThreadsDone(Sender: TObject); var i:Integer; begin Inc(DoneFlags); if DoneFlags=2 then begin for i := 1 to MaxSize do Memo1.Lines.Add(inttostr(GlobalArry[i])); if Lock=2 then DeleteCriticalSection(CS); //删除临界区 If Lock=3 then CloseHandle(hMutex); //关闭互斥 end; end; //非同步 procedure TForm1.Button1Click(Sender: TObject); begin Lock:=1; TMyThread.Create(False); TMyThread.Create(False); end; //临界区 procedure TForm1.Button2Click(Sender: TObject); begin Lock:=2; InitializeCriticalSection(CS); //初始化临界区 TMyThread.Create(False); TMyThread.Create(False); end; //互斥 procedure TForm1.Button3Click(Sender: TObject); begin Lock:=3; // 互斥 hMutex:=CreateMutex(0,False,nil); TMyThread.Create(False); TMyThread.Create(False); end; end.

通过课堂上一个一个的实战例子，演示DelphiXE10的用法，最后通过一个完整的通讯录程序，让学员初步掌握软件开发的全部流程让零基础学员快速入门Delphi编程，快速掌握Delphi的使用方法，并能够制作出自己的软件来。为同学们下一步的提高打下坚实的基础。

很久没有发布东东了，今天看到盒子上有朋友发布了个三层的东东，下来大概看了看，貌似使用起来不太方便，曾经用过ASTA和RmoObject，都不是那么让人满意，BUG多，并且庞大需要安装，使用十分不方便。为了继续支持我喜欢的DELPHI和可爱的盒子，特发布个自己写的远程数据库对象希望能给大家平常的工作带来便利和高效（偶自己和同事们都用了挺长时间，十分稳定易用）。用DELPHI的朋友少不了要和数据库打交道，一般小程序都使用ACCESS做数据库感觉十分方便，不用装服务端，客户端不用单独装驱动，发布程序时直接目录一拷贝就完事,但缺点是不方便从其它计算机对它进行访问，有了偶这个东东，就可以很方便容易的实现咯。 ps : 就是连接Oracle和mysql，客户端也可以不用装驱动哦使用步骤解压后找个地方存放将GobUnit目录添加到delphi的搜索路径将DXSockEnt30(我改过bug的版本)的3个子目录也添加到delphi的搜索路径即可使用和编译所有偶提供的代码 FAQ：这个东东都提供什么功能？答：提供最简单方便高效的方式，通过ADO对象实现远程数据库这个东东为什么不封装成控件？答：本类以单元形式封装，只要加到搜索路径后直接引用即可，无需经过安装等麻烦的步骤。这个东东适合应用在什么场合？答:适合应用于小型分布式程序。这个东东掌握起来有难度吗？答:没有任何难度，就和你开发本地数据程序一样简单。这个东东可以应用在我已有的程序里吗？答：由于我使用的是AdoQuery作为数据集载体，所以无需更改为其他控件，现有的本地数据库程序也可以非常容易的改造为支持分布式数据库。这个东东稳定吗？答:经自己长期做小白鼠广泛的实际应用实践，发现方便，稳定。服务端的端口号是多少？答:服务端的端口号可以随意设置，只要不和其他程序冲突就可以，并且客户端连接服务端时必须端口一致. 如果服务端重启了客户端需要重启吗？答:不用，客户端只要连接上服务端以后就有自动断线重连的功能。这个东东免费吗？答:完全免费，并且开放所有源代码，你可以随意改进，传播它,当然如果更好用了，记得给我也发一份：）（要保留偶的版权和注释信息哦）这个东东使用到了那些控件？答:delphi的ADO控件，INDY,以及第3方Dxsock（服务端用）。同时发布的还有我自己积累的几个常用单元，有日志，调试,tcp的通用服务和客户端模块等,同样都是十分有用的东东。这个东东有demo程序吗？答:有最简单的示范程序，但时间关系只写了最简单的演示代码，还有很多值得你去挖掘的实用接口和单元。我有了改进版本，怎么联系这个东东的作者？答:QQ 22900104 ,Email 22900104@qq.com 马敏钊发布这个东东的目的是什么？答：好用的东东大家分享，共同学习，共同进步，希望大家都能发扬开源精神。构架说明: 大概是这样的，偶有一个服务器对象，负责提供数据库服务，在需要提供数据服务的程序里创建它即可。使用起来十分简单首先引用服务端单元 uses UntRmodbSvr; //创建远程服务对象 (参数1 服务端口号日志对象，如果不需要记录日志请填nil) Gob_RmoDBsvr := TRmodbSvr.Create(FSvrPort, nil); //连接数据库可以是ADO支持的所有数据库调用TDBMrg提供的获取各种数据库的链接字符串即可，这里连接Access数据库 Gob_RmoDBsvr.ConnToDb(TDBMrg.GetAccessConnStr('cfg.mdb')); 到此为止，2行代码使你的这个程序具有了将数据库发布出去的能力，其它机器的程序可以方便的通过它访问到数据库，像使用本地数据库一样。客户端只需连接服务端即可，不管服务端是什么样的数据库，无需安装任何数据库驱动。 uses UntRemSql; //创建客户端对象 RmoClient := TRmoHelper.Create(); //连接服务端填入服务端地址和端口（与服务端端口一致即可） Result := RmoClient.ReConnSvr(ISvrIP, Iport); 2行代码使你的客户端程序具有了方便的访问到远端的数据库，像使用本地数据库一样，并且你原有的单机数据库程序可以很方便改为远程数据库。具体使用方法可以查看DEMO程序为了方便交流建了个QQ群，欢迎大家参与 15637473

摘要 ComponentOne SizerOne™;;; 8.0是四合一工具软件，它包含了2个调整尺寸的控件，可以方便的操作简单和复杂的尺寸调整；1个选项卡控件，可以快速创建笔记本样式和Outlook样式的选项卡；1个解析控件，可以自动分割字符串。组件列表 · ElasticOne控件（原vsElastic）- 无论多么复杂都可以自动标注和调整窗体上控件的尺寸。同时提供分割条。 · ElasticLight控件 – 按比例调整现有窗体，不依赖分辨率。而且很小—只有40K。 · TabOne控件（原vsIndexTab）-- 在一个屏幕显示几个屏幕的数据。自动调整窗体，监测每个选项卡页的内容。 · AwkOne控件（原vsAwk）- 快速扫描解析文本文件。尤其适用于执行简单的数据操作（如变化格式，检查字符串有效性，检索项目，生成报表），无须编写过多编码。 · ActiveTreeView™;;; 技术特性 ";;;我们在已经很强大的控件中填加了20多种新功能： · 处理所有调整尺寸请求，从简单的到复杂的。无须编写单调的调整大小编码。";;; · 可以在任何开发环境中运作-Visual Basic, Visual C++, Delphi, C++ Builder, 和Windows;;;; · 支持所有的分辨率- EGA， VGA， SVGA · 覆盖所有情况：如果您希望不通过窗体之间来切换，或者如果您正在寻找一个可以自动分割字符串的控件，那么您可以结束寻找了！这是因为ComponentOne SizerOne 8.0包含了一个选项卡控件和一个字符串解析控件。所以，我们有理由说“ One Sizer 适合所有情况，”当您第一次试用ComponentOne SizerOne 8.0时，就可以体会到这点。应用场景适用于界面尺寸调整运用优势开发环境 Visual Basic®;;; 5.0/ 6.0;;;; Visual C++®;;; 5.0/ 6.0;;;; Delphi™;;; 3.0/4.0/5.0;;;; C++Builder™;;; 3.0/4.0/5.0 支持平台 Windows®;;; 95, 98, 2000, and NT. 标准报价 2,760 元人民币 * 以上报价仅供参考，具体以厂商正式报价为准。电话 021-58549800 Email: tools@sh.grapecity.com http://www.grapecity.com/china

5,402

社区成员

262,733

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章