delphi7 如何使用和填写unit2?
我新建立个工程 unit1 默认的,然后新建个空的unit2,之后我就不知道怎么操作了?
我想在unit2里写1个变量
mName:string
通过2个方法写值(setName)和读值(getName)
之后unit1中有按键1和按键2,分别对unit2的mName成员做读值和写值操作。
可以把例子发.cn
谢谢~感激~新手求教~
我新建立个工程 unit1 默认的,然后新建个空的unit2,之后我就不知道怎么操作了?
我想在unit2里写1个变量
mName:string
通过2个方法写值(setName)和读值(getName)
之后unit1中有按键1和按键2,分别对unit2的mName成员做读值和写值操作。
可以把例子发.cn
谢谢~感激~新手求教~
FName: string;
procedure SetName(const Value:string);
function GetName:string;
public
property mName:string read GetName write SetName;
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,unit2;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
unit2.mName :='sss1'; //写字符串
end;procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage(unit2.mName ); //读字符串
end;end.
unit Unit2;interface
var
mName:string; //在Unit2中定义字符串
implementationend.