代码示例:你是真的对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;

...全文

3780 76 打赏收藏转发到动态举报

写回复

用AI写文章

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

打赏
举报

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