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

[musicwind]

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;

[davy_david]

"类的类"在OOP术语中叫做"元类".

• 打赏
• 举报

回复 赞

[wonderxin]

刚入门，我是来向大家求助的！还望多指教！

• 打赏
• 举报

回复 赞

[musicwind]

我是来刷新我的昵称的!

• 打赏
• 举报

回复 赞

[musicwind]

怎么还不刷新？

• 打赏
• 举报

回复 赞

[musicwind]

当然不是！

• 打赏
• 举报

回复 赞

[musicwind]

哈.....欠!你好!

• 打赏
• 举报

回复 赞

[richardsong]

五爱是Yaya？是孟庭苇嘛？

• 打赏
• 举报

回复 赞

[yangming_ok]

这是类引用，它允许用户在运行时处理类数据类型。
下面代码能复制你点击的所有组件，甚至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型，并建立一对象。

• 打赏
• 举报

回复 赞

[GoodHope]

这段代码有什么问题吗？怎么看起来类似ToolsAPI里面的东西？

• 打赏
• 举报

回复 赞

[likegigi]

45

• 打赏
• 举报

回复 赞

[bushman]

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.

• 打赏
• 举报

回复 赞

[nagar]

好,好,好!
这个贴子 很好!
在技术上,不敢评论,但至少不是那些 C好 pascal好的 无谓争论.
如果CSDN中多一些技术的讨论,少一些偏激的言行,会更吸引人!

• 打赏
• 举报

回复 赞

[yangming_ok]

怎么没人给我分啊！！

• 打赏
• 举报

回复 赞

[yangming_ok]

怎么没人给我分啊！！

• 打赏
• 举报

回复 赞

[kabob]

俺喜欢这类贴子
Musicwind(吾爱是Yaya!)好兄弟，有东西能与大家分享

• 打赏
• 举报

回复 赞

[musicwind]

yangming_ok(小山羊)写得好。
这个论题的讨论就到这里吧，谢谢大家的参与。
给分。

• 打赏
• 举报

回复 赞

[zzy1012]

• 打赏
• 举报

回复 赞

[zzy1012]

GuanZhu

• 打赏
• 举报

回复 赞

[cyj]

好好，为什么我每次都迟到呢每天过的是匆匆忙生怕多丢了网费，哎呀可悲可悲！！！！！！！

• 打赏
• 举报

回复 赞

[cyj]

我也经常看一看源程序但我怎么没有看到注册的语句呢（指DELPHI组件的源程序）

• 打赏
• 举报

回复 赞