请问可不可以传递一个DataSet啊(10分)

请问可不可以传递一个DataSet，如
有Form1上有Button1，Table1各一个；
Form2上有DBGrid1，DataSource1各一个；
能不能在Form2中建立一个Procedure GetDataSet（参数描述），
在Form1中调用GetDataSet（Table1），就实现对DataSource1.DataSet赋值？

剩下的分分不多，全给了，^_^！

可以,但是注意类的关系
dataset:=table;可以
table:=dataset;好像不行

当然可以，把table当作参数传递就可以了
procedure getdataset(mytable:TTable);
begin
form2.datasource1.dataset:=mytable;
end;

up

多人接受答案了。

可以，代码如下（已经运行成功）
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, StdCtrls;

type
TForm1 = class(TForm)
Table1: TTable;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
Form2.GetDataSet(Table1);
end;

end.
//－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB;

type
TForm2 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
private
{ Private declarations }
public
procedure GetDataSet(DS: TDataSet);
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

{ TForm2 }

procedure TForm2.GetDataSet(DS: TDataSet);
begin
DataSource1.DataSet := Ds
end;

end.