从不同形式调用程序

Question

我正在使用Lazarus，我有一个名为TForm1的表单和单位名称的单元1.在这里，我有一个名为mergeDATfile(a:shortint);的程序可以制作一些东西。

顺便说一句，我必须创建另一个名为TForm2的表单，并在其中我有按钮（Button1）。按下时，必须从第一个表单中调用mergeDATfile(a:shortint);。

我怎么能这样做？

Answer 1

显而易见的解决方案是将MergeDatFile函数移动到一个公共单元，然后可以由两个表单单元使用。

Answer 2

我假设该方法是TForm1的方法，因为它对TForm1的成员进行操作。在这种情况下，您将执行以下操作：

1. 将该方法公开为公共方法。
2. 安排TForm2实例访问TForm1的实例。
3. 在TForm1实例上调用该方法。

如果我的假设不正确，那么该方法应该从TForm1移出到另一个可供两个表单使用的单元中。