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

解决方案 »

  1.   

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

  2.   

    单元是放类或者函数的,看看Delphi自带的就知道了
      

  3.   

    写个.DLL的连接文件,直接引用就可以了。
      

  4.   

    unit2中增加变量和属性private
      FName: string;
      procedure SetName(const Value:string);
      function GetName:string;
    public
      property mName:string read GetName write SetName;
      

  5.   

    你是不是初学者,单元文件中是放类、函数和过程的,你说的GET或SET,一般用于组件的属性中,方法是类中的函数或过程。要实现你说的功能,不用那么复杂,象下面这样就可以实现:
    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.