• 主页
  • 招聘
  • 语言基础/算法/系统设计
  • 数据库相关
  • 图形处理/多媒体
  • 网络通信/分布式开发
  • VCL组件开发及应用
  • Windows SDK/API

代码示例:你是真的对Delphi很了解了么?

musicwind 杭州网梭科技有限公司 产品线研发负责人  2001-05-21 09:27:00
Procedure StepEditor( strgrid: TStringGrid; Step: TStep );
var
sValue, sField: string;
EditorClass: TStepEditorClass;
Editor: TStepEditor;
begin
sField := strgrid.Cells[0, strgrid.Selection.Top];
sValue := strgrid.Cells[1, strgrid.Selection.Top];
EditorClass := EditorClassList.Editors[ sField ];
Editor := EditorClass.Create;
Editor.Field := sField;
Editor.Step := Step;
Editor.Edit( sValue );
Editor.Free;
strgrid.Cells[ 1, strgrid.Selection.Top ] := sValue;
end;
...全文
3647 点赞 收藏 76
写回复
76 条回复
cyj 2001年05月31日
我也经常看一看源程序但我怎么没有看到注册的语句呢(指DELPHI组件的源程序)
回复 点赞
cyj 2001年05月31日
好好,为什么我每次都迟到呢每天过的是匆匆忙生怕多丢了网费,哎呀可悲可悲!!!!!!!
回复 点赞
zzy1012 2001年05月28日
GuanZhu
回复 点赞
zzy1012 2001年05月28日
回复 点赞
musicwind 2001年05月28日
yangming_ok(小山羊)写得好。
这个论题的讨论就到这里吧,谢谢大家的参与。
给分。
回复 点赞
kabob 2001年05月28日
俺喜欢这类贴子
Musicwind(吾爱是Yaya!)好兄弟,有东西能与大家分享
回复 点赞
yangming_ok 2001年05月27日
怎么没人给我分啊!!
回复 点赞
yangming_ok 2001年05月27日
怎么没人给我分啊!!
回复 点赞
nagar 2001年05月27日
好,好,好!
这个贴子 很好!
在技术上,不敢评论,但至少不是那些 C好 pascal好的 无谓争论.
如果CSDN中多一些技术的讨论,少一些偏激的言行,会更吸引人!
回复 点赞
bushman 2001年05月27日
This is a Object Pascal language feature called -- RTTI(RunTime Type Infomation).

Following refers to Delphi help
--------------------------------------------------------------------------
Class-reference types are useful when you want to invoke a class method or virtual constructor on a class or object whose actual type is unknown at compile time.
回复 点赞
likegigi 2001年05月27日
45
回复 点赞
GoodHope 2001年05月27日
这段代码有什么问题吗?怎么看起来类似ToolsAPI里面的东西?
回复 点赞
yangming_ok 2001年05月26日
这是类引用,它允许用户在运行时处理类数据类型。
下面代码能复制你点击的所有组件,甚至Form.
procedure TForm1.Click(Sender ;TObject);
var
ControlText: String;
begin
with TControlClass(Sender.ClassType).Create(self) do
begin
Parent := (sender as TControl).parent;
Left := (sender as TControl).Left;
Top := (sender as TControl).Top;
SetLength(ControlText,50);
(sender as TControl).GetTextBuf(pchar(ControlText),50);
ControlText := pchar(ControlText) + ' *';
SetTextBuf(pchar(ControlText));
end;
end;

Sender.ClassType 得到你点击组件的类类型(TClass型)
TControlClass(Sender.ClassType).Create(self)把TClass型转换成TControlClass型,并建立一对象。


回复 点赞
richardsong 2001年05月25日
五爱是Yaya?是孟庭苇嘛?
回复 点赞
musicwind 2001年05月25日
哈.....欠!你好!
回复 点赞
musicwind 2001年05月25日
当然不是!
回复 点赞
musicwind 2001年05月24日
怎么还不刷新?
回复 点赞
musicwind 2001年05月24日
我是来刷新我的昵称的!
回复 点赞
wonderxin 2001年05月24日
刚入门,我是来向大家求助的!还望多指教!
回复 点赞
davy_david 2001年05月24日
"类的类"在OOP术语中叫做"元类".
回复 点赞
发动态
发帖子
Delphi
创建于2007-08-02

1467

社区成员

26.2w+

社区内容

Delphi 开发及应用
社区公告
暂无公告