已经知道类的名称，怎么转换成类的类型，马上结贴！

Question

比如：
我要创建一个Edit编辑框或者DbEdit编辑框，我已经知道要创建的组件的ClassName
是TEdit或TDBEdit(TEdit和TDbEdit是变量)，
我如何写：
(Sender as TEdit).text 中TEdit。

Answer 1

TEdit(Sender).Text := 'hello';

Answer 2

比较笨的方法：sName := Sender.ClassName;
if sName = 'TEdit' then
  // ...
else if sName = 'TDBEdit' then
  // ...

Answer 3

如果只有TEdit和TDBEdit 大可以都使用TEdit

Answer 4

我也想过同样的问题！！没头绪！！upup

Answer 5

如果只是TEdit和TDBEdit的话，很好办。他们有共同的祖先类TCustomEdit，所以可以这样写：(Sender as TCustomEdit).Text := 'aaaa';

Answer 6

if Sender is TEdit then TEdit(Sender).text;如何从帮助中得到：
1、打开帮助
2、选择“索引”
3、输入is关键字，回车
4、选择The is Operator主题

Answer 7

好像只有： windofsun(太阳风) ( ) 信誉：100 看懂了你的问题
提出一个可行的方法

Answer 8

不只Tedit和Tdbedit还有很多，就是因为很多，所以要如此做法

Answer 9

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  c : TFormClass;
  someobj : TObject;
begin
  c:=TFormClass(FindClass('TEdit'));
  someobj:=c.create(self);
  TEdit(someobj).Left:=100;
  TEdit(someobj).Top:=100;
  TEdit(someobj).Parent:=form1;
  Tedit(someobj).Show;
end;initialization
begin
  RegisterClasses([TEdit, TButton]);
end;end.
我现在只能做到这种地步，可以共同探讨

Answer 10

好了，我来了，首先，你可以看一下这个帖子，
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1224849
我自己做了一个例程，你有兴趣的话可以发短信息给我。