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

Question

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

我想要它做的是为框架的每个实例保留自己的变量版本，与其他变量不同，并使用它来定义它的操作方式。然而，似乎正在发生的是所有实例都使用相同的值，即使我明确地为每个实例传递了一个不同的变量。

IE:

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;

现在在另一个表单的某个地方，我已经将此框架放到设计 Pane 中，有时在一个表单上放置两个框架，并在适当的位置声明它，等等。每个都是独一无二的:

ThisFlexibleUnit : TFlexibleUnit;
ThatFlexibleUnit : TFlexibleUnit;

当我做一个:

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

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

原则上我做错了吗？如果这是正确的方法，那么这是调试我所拥有的东西的问题(它太大而无法发布)但是如果这在原则上不正确，那么有没有办法按照我的建议去做？

编辑:

好的，所以这里学到的教训是类定义就是这样。许多类可以放在一个单元中，所有类的所有实例都在 Type 中。 section 分享本单元的执行部分。

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;