怎么将Tobject类型以字符串的方式输出

如何将Tobject类型以字符串的方式输出
如题：
procedure Tmain.cbb1Click(Sender: TObject);

如何获得Sender,并将其以字符串形式输出
------解决方案--------------------
你要得到什么？



procedure Tmain.cbb1Click(Sender: TObject);

var

   mStream: TMemoryStream;

   sStream: TStringStream;

begin

   mStream := TMemoryStream.Create;

   try

     sStream := TStringStream.Create;

     try

       mStream.WriteComponent(TComponent(Sender));

       mStream.Seek(0, soFromBeginning);

       ObjectBinaryToText(mStream, sStream);

       sStream.Seek(0, soFromBeginning);

       ShowMessage(sStream.DataString);

     finally

       sStream.Free;

     end;

   finally

     mStream.Free

   end;

end;

------解决方案--------------------
Sender.ToString;
------解决方案--------------------

引用:

因为我想在其他的过程中调用这个控件的onclick()这个动作
来选择combobox下的某个选项，我应该怎么使用onclick()这个动作？应该获取什么？

另外我用的是Delphi7，好像并没有ToString这个方法

就算是 C# 里的 ToString，也是需要继承来写的。
我们一般用 Obj.ClassName 来处理。
------解决方案--------------------
为什么用String类型？用TObject可以代替String就可以。传递TObject和传递TObject没什么区别。

怎么将Tobject类型以字符串的方式输出

相关推荐