Delphi Unit局部变量-如何使每个实例唯一？

Question

在下面的单元中，我在实现部分声明了一个变量 - 该单元本地的变量。我还有一个在 TYPE 部分中声明的过程，它接受一个参数并将该参数分配给相关的局部变量。此 TFrame 的每个实例都通过 passMeTheVar 传递一个唯一的变量。

我希望它做的是让框架的每个实例保留该变量的自己的版本，与其他变量不同，并使用它来定义它的操作方式。然而，似乎发生的情况是所有实例都使用相同的值，即使我显式地向每个实例传递一个不同的变量。

即：

Unit FlexibleUnit;
interface
uses
//the uses stuff
type
TFlexibleUnit=class(TFrame)
   //declarations including
   procedure makeThisInstanceX(passMeTheVar:integer);
private
//
public
//
end;

implementation
uses //the uses
var myLocalVar;

procedure makeThisInstanceX(passMeTheVar:integer);
begin
myLocalVar:=passMeTheVar;
end;

//other procedures using myLocalVar 
//etc to the 
end;

现在在另一个表单中的某个地方，我已将此框架放到“设计”窗格中，有时在一个表单上放置两个这样的框架，并在适当的位置声明它，等等。每个框架都是唯一的：

ThisFlexibleUnit : TFlexibleUnit;
ThatFlexibleUnit : TFlexibleUnit;

当我执行以下操作时：

ThisFlexibleUnit.makeThisInstanceX(var1); //want to behave in way "var1"
ThatFlexibleUnit.makeThisInstanceX(var2); //want to behave in way "var2"

似乎它们都共享相同的变量“myLocalVar”。

原则上我这样做错了吗？如果这是正确的方法，那么就需要调试我所拥有的内容（太大而无法发布），但如果这原则上不正确，那么有没有办法做我所建议的事情？

编辑：

好的，所以这里学到的教训是类定义就是这样。许多类可以放在一个单元中，并且 Type 部分中所有类的所有实例共享该单元的实现部分。

Answer 1

myLocalVar 是一个全局变量，但仅在单元内可见。

局部变量将位于过程/函数中，就像

procedure makeThisInstanceX(passMeTheVar: integer);
var
  myLocalVar: Integer;
begin
  myLocalVar := passMeTheVar;
end;

您想要一个实例变量一样，即每个帧都有自己的副本，将其放入类中：

type
  TFlexibleUnit = class(TFrame)
     procedure makeThisInstanceX(passMeTheVar:integer);
  private
    myLocalVar: Integer;
  ...
  end;

Answer 2

您将 makeThisInstanceX 方法作为类（静态）方法调用，而不是创建该类的实例并将其作为对象方法调用。看一下这个参考：

http://oreilly.com/catalog/delphi/chapter /ch02.html

Answer 3

框架/单元/类/控制

我赞扬你为改进代码而做出的英勇尝试。然而，从你的问题和评论来看，我很遗憾地告诉你，你的理解非常有限。

框架不是一个单元，也不是一个类。框架是一个类，但并非每个类都是框架。框架是一个控件，但并非每个控件都是框架。单元具有接口和实现（以及初始化和终止）部分。类有私有和公共（以及受保护和已发布）部分。

我放入最后一段并不是为了尝试教学，而是为了让您衡量您的理解水平。 Delphi 开发人员应该对这段文字没有任何问题。我并不是想让你感觉不好或炫耀——只是想提供帮助。也许 Stack Overflow 目前不适合您。

作为第一次学习 Delphi 的人，我可能会对一些看似多余的功能感到困惑。但该产品有着悠久的历史，每次添加在添加时都是有意义的。当您一次只需要学习一首曲子时，学习起来也更容易。