delphi7 如何使用和填写unit2?
delphi7 如何使用和填写unit2?
我新建立个工程 unit1 默认的，然后新建个空的unit2，之后我就不知道怎么操作了？
我想在unit2里写1个变量
mName:string
通过2个方法写值（setName）和读值(getName)
之后unit1中有按键1和按键2，分别对unit2的mName成员做读值和写值操作。
可以把例子发我的邮箱 gxming1981@yahoo.com.cn
谢谢~感激~新手求教~


[解决办法]
不是变量,你添加一个私有字段FmName,添加对应的读写方法setName,getName,然后再发布一个public属性mName,在unit1里面操作属性不就满足你的要求了,自己试着动手看看
[解决办法]
unit2中增加变量和属性

private
FName: string;
procedure SetName(const Value:string);
function GetName:string;
public
property mName:string read GetName write SetName;
[解决办法]
你是不是初学者，单元文件中是放类、函数和过程的，你说的GET或SET,一般用于组件的属性中，方法是类中的函数或过程。要实现你说的功能，不用那么复杂，象下面这样就可以实现：
unit Unit1;

interface

uses
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中定义字符串
implementation

end.