Delphi中如何在表单之间传递数据？

Question

它可能看起来有点新手，但我确实遇到了问题。 我有一个表单（不是主要的）用于从用户那里获取许多不同的数据，我想将它传递给一个管理器类以使用这些创建一个对象。 问题是我不能让这个类使用另一个单元（获得圆使用），而且它也无权访问管理器类实例（在主窗体中）。

那么，我该怎么办？ 我已经考虑过使用公共变量，但我对此感觉不好（关于 OOD 模式）。

Answer 1

我的建议是将数据与 GUI 分离，因为这会导致您的问题。 如果您有一个从用户那里收集数据的表单，那么您应该将数据与表单（TForm）区分开来。

例如，假设您有一些 TForm 实例和一个表单，该表单由三个字段构建：用户名、年龄和位置。 您希望用户输入这三样东西，但是当用户关闭表单时，您应该将此插入的数据传递给某个对象。 表单关闭，它被释放，但对象仍然存在。 然后您将此对象传递给您的管理器对象。

简单的例子：

这是您保存数据的记录

type
  TGatheredData = record
    Name: String[40];
    Age: Byte;
    Location: String[40];
end;

你的 TForm1 可能有一个额外的构造函数：

constructor TForm1.Create(AOwner: TComponent; var GatheredData: TGatheredData );
begin
  inherited Create(AOwner);
  FGatheredData := GatheredData;
  //you may want to deserialize GatheredData here and show the data in your form controls
end;

您调用它，传递 GatheredData，然后显示您的表单。

接下来，当关闭表单时，您从表单控件中获取数据。

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Self.ModalResult = mrOk then
  begin
    //serialize your object
    FGatheredData.Name := '';//name taken from control f.e. TEdit
    FGatheredData.Age := '';//name taken from control f.e. TSpinButton
    FGatheredData.Location := '';//name taken from control f.e. TEdit
  end;
end;

有了这条数据记录，您现在可以以相同的方式将其传递给您的 Manager 对象。 您以这种方式将数据与 GUI 分离，并且您可以轻松地将记录插入到多种不同的形式中。

请记住在外部单元中声明您的记录类型，并在您的经理单元和表单单元中使用该单元。

希望这有所帮助。

Answer 2

“经理类”不应该在任何一种形式的单元中，而应该在它自己的单元中。 通过将 GUI 代码与业务逻辑分离，您可以避免此类问题。

Answer 3

[编辑：我最初将此答案放在评论中，但决定将其移出完整答案。 TDatamodules 在 Delphi 中太重要和太常见了，不能不强调它们，它们提供了内置的易于使用的方法，将 gui 与逻辑和数据分开。]

其他人对将 gui 与逻辑和数据解耦给出了很好的评价。 令人惊讶的是，我认为没有人提到在 Delphi 中 TDatamodules 是执行此操作的一种主要方法。 您将数据和逻辑放在 Datamodule 上，然后让两个表单“使用”Datamodule 来访问其数据和方法。 这是简要介绍： http : //delphi.about.com/od/database/l/aa101601a.​​htm

您的两个表单（和其他表单）都可以访问位于 Datamodule 单元上/中的数据集或其他数据/数据结构。 应该有一个易于找到的示例项目来说明设置，因为它是（或至少是）构建 Delphi 应用程序的标准方法。

Answer 4

如果我正确理解您的问题，那么您希望经理管理表格（而不是访问经理的表格）。 对？ 您不能像关闭应用程序一样关闭主窗体，但可以隐藏它。 （除非您创建控制台应用程序）。 但它带来了一个不错的小问题:)

所以... Splash form (Main Form) 是：

. . .

uses
   ManagerU;

type
  TFormSplash = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Manager: TManager;
  end;

var
  FormSplash: TFormSplash;

implementation


{$R *.dfm}

procedure TFormSplash.FormCreate(Sender: TObject);
begin
  Manager := TManager.Create;
end;

procedure TFormSplash.FormDestroy(Sender: TObject);
begin
  Manager.Free;
end;

procedure TFormSplash.FormPaint(Sender: TObject);
begin
  if Visible then
  begin
    Manager.GetData(Self);
    Hide;
    Manager.DoDataStuff;
    Close;
  end;
end;

end.

DaaObject 是：

unit DataObjectU;

interface

uses classes;

type TDataObject = class(TObject)
  Data: string;
end;

implementation

end.

经理是：

interface

uses DataObjectU;

type
  TManager = Class(Tobject)
    MyData: TDataObject;
    constructor Create; virtual;
    destructor Destroy; override;
    procedure GetData(OwnerForm: TForm);
    procedure DoDataStuff;
  end;

implementation

uses DataFormU;

{ TManager }

constructor TManager.Create;
begin
  inherited Create;
  MyData := TDataObject.Create;
end;


destructor TManager.Destroy;
begin
  MyData.Free;
  inherited;
end;

procedure TManager.DoDataStuff;
begin
  // do stuff with data here
end;

procedure TManager.GetData(OwnerForm: TForm);
var
  MyDataForm: TDataForm;
begin
  MyDataForm := TDataForm.Create(OwnerForm);
  try
    if MyDataForm.ShowModal = mrOK then
    begin
     MyData.Data := MyDataForm.Data;
    end;
  finally
    MyDataForm.Free;
  end;
end;

end.

数据形式为：

type
  TDataForm = class(TForm)
    btnOK: TButton;
    procedure btnOKClick(Sender: TObject);
  private
    function GetData: String;
    { Private declarations }
  public
    { Public declarations }
    MyData: TDataObject;
    property Data: String read GetData;
  end;

var
  DataForm: TDataForm;

implementation

{$R *.dfm}

procedure TDataForm.btnOKClick(Sender: TObject);
begin
  MyData := TDataObject.Create;
  ModalResult := mrOk;
end;

function TDataForm.GetData: String;
begin
  Result := MyData.Data;
end;

您需要填写单元代码的其余部分并释放一些东西，但本质上是这样的：

启动程序（创建飞溅）

Splash 创建管理器调用它从数据表单中获取数据然后隐藏自己

调用 manager 来管理数据

当经理完成它然后关闭。

除了通过任务管理器之外，现在没有其他方法可以关闭它！）

蒂姆

Answer 5

要解决循环引用错误，请在实现部分使用该单元。

implementation
{$R *.DFM}

Uses <Your Unit>;

end. 

Answer 6

有这 3 个单元： FormMain FormEdit UnitMyClass

您在 FormMain 中创建对象并将其传递给 FormEdit 中的函数，例如：

class function FormEdit.EditMyObject(AObject: TMyClass): boolean;

此函数将显示Modal 表单。 表单将对对象进行更改，如果用户按下 OK 则最终返回 True。

正如您在 UnitMyClass 中看到的，没有对 FormMain 或 FormEdit 的引用

Answer 7

FWIW，我在 CodeRage 9 视频中就这个主题做了一个完整的演示。 可以在这里看到：

https://youtu.be/qqKx8fQTTfI