可以向工程中添加一个Unit,那么如何写一个新类呢?是否象Unit一样添加?他们之间有什么区别?谢了! 可以向工程中添加一个Unit,那么如何写一个新类呢?是否象Unit一样添加?他们之间有什么区别?谢了! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可以写啊你在var那定义 然后在别的unit中调用就可以了呵呵 具体没有什么区别了 可以向工程中添加一个Unit,那么如何写一个新类呢? 在unit中写就是了。他们之间有什么区别? 我理解该问题是unit与类有什么关系? unit是代码的存放处,任何代码要么在unit中,要么在prj中(常见的情况,且不考虑设计窗体的工作作为代码的情况下)。 一个unit可以有多个类的定义,就象有多个类型定义一样,把类看成类型就可以。 一个 unit中只能有一个有对应窗体的的类。如delphi中创建一个窗体时所自动生成的unit。当然这些窗体类不包括,所有控件都由你用代码创建的那些。 .........你在var那定义 .........确切一点应该是在type部分定义可以在var部分定义对象——类的实例(实际上是引用变量) 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;type TMy=class private public constructor create(s:string); end;var Form1: TForm1; my:Tmy;implementation{$R *.dfm}constructor TMy.create(s:string);begin showmessage(s);end;procedure TForm1.Button1Click(Sender: TObject);begin my:=Tmy.create('hello');end;end. 当然也可以写在其他的单独unit当中 这种问题很简单了,你应该找本关于 Delphi 基本操作的书来看看。 delphi执行外部程序等待程序运行成功,而不是程序退出 求一个 ADOCommand 或者 ADOStoredproc 使用 存储过程 的 实例 如何对给出的一组数据拟合出方程式? 新手上路哈 急求解决办法:用ado控件访问sybase11.5,虽然成功,但速度很慢,不可以接受 模拟sqlplus中的工作过程! 使用SQL可不可以修改当前数据指针所指向的记录的数据? 在EDIT 或DBEDIT中按ENTER实现TAB键功能 请问下面的代码在delphi中如何实现(vb的代码) 关于截取消息的问题,请大家帮忙 第一次提问,第一次写程序,请大虾帮忙!!!!!!!!!! 动态创建窗体
你在var那定义
然后在别的unit中调用就可以了
呵呵
具体没有什么区别了
在unit中写就是了。
他们之间有什么区别?
我理解该问题是unit与类有什么关系?
unit是代码的存放处,任何代码要么在unit中,要么在prj中(常见的情况,且不考虑设计窗体的工作作为代码的情况下)。 一个unit可以有多个类的定义,就象有多个类型定义一样,把类看成类型就可以。 一个 unit中只能有一个有对应窗体的的类。如delphi中创建一个窗体时所自动生成的unit。当然这些窗体类不包括,所有控件都由你用代码创建的那些。
确切一点应该是在type部分定义可以在var部分定义对象——类的实例(实际上是引用变量)
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;
type
TMy=class
private
public
constructor create(s:string);
end;
var
Form1: TForm1;
my:Tmy;
implementation{$R *.dfm}
constructor TMy.create(s:string);
begin
showmessage(s);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
my:=Tmy.create('hello');
end;end.