小学语文教师用书下载:我想问一些有关delphi代码的弱智问题。

Delphi似乎没有像VB在模块中定义全局变量那样
各各模块之间通信最好使用属性/接口/消息机制

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RpRave, RpDefine, RpCon, RpConDS, Grids, DBGrids, ExtCtrls,
DBCtrls, DB, ADODB, StdCtrls;

type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DBNavigator1: TDBNavigator;
DBGrid1: TDBGrid;
RvDataSetConnection1: TRvDataSetConnection;
RvProject1: TRvProject;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
//定义全局变量
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
//定义局部变量
begin
RvProject1.ProjectFile:=ExtractFilePath(Application.ExeName)+'Project1.rav';
RvProject1.Execute;
RvProject1.Close;
end;

end.