Как сделать, чтобы каждый экземпляр класса имел свою собственную версию переменной myLocalVar

Delphi , Компоненты и Классы , Модули

В статье будет рассмотрено, как сделать так, чтобы каждый экземпляр класса в Delphi имел свою собственную версию переменной myLocalVar.

При работе с классами в Delphi может возникнуть ситуация, когда необходимо, чтобы каждый экземпляр класса имел свою собственную версию переменной. Однако, по умолчанию, все экземпляры класса делят одну и ту же переменную, объявленную в секции implementation единицы (unit).

Вопрос, заданный в контексте, заключается в том, как сделать так, чтобы каждый экземпляр класса TFlexibleUnit имел свою собственную версию переменной myLocalVar, даже если эта переменная объявлена в секции implementation единицы, содержащей класс.

Ответ на этот вопрос заключается в том, чтобы переместить переменную myLocalVar из секции implementation в секцию private класса TFlexibleUnit. Таким образом, каждый экземпляр класса будет иметь свою собственную версию переменной myLocalVar.

Пример кода, иллюстрирующий это решение, приведен ниже:

unit FlexibleUnit;

interface

uses
  //the uses stuff
type
  TFlexibleUnit = class(TFrame)
  private
    myLocalVar: Integer;
    procedure makeThisInstanceX(passMeTheVar: Integer);
  public
  end;

implementation

uses //the uses

procedure TFlexibleUnit.makeThisInstanceX(passMeTheVar: Integer);
begin
  myLocalVar := passMeTheVar;
end;

end.

Теперь, когда переменная myLocalVar объявлена в секции private класса TFlexibleUnit, каждый экземпляр класса будет иметь свою собственную версию этой переменной. Например, если создать два экземпляра класса TFlexibleUnit и вызвать метод makeThisInstanceX для каждого из них с разными значениями, то каждый экземпляр будет использовать свою собственную версию переменной myLocalVar:

var
  ThisFlexibleUnit: TFlexibleUnit;
  ThatFlexibleUnit: TFlexibleUnit;

begin
  ThisFlexibleUnit := TFlexibleUnit.Create(nil);
  ThatFlexibleUnit := TFlexibleUnit.Create(nil);

  ThisFlexibleUnit.makeThisInstanceX(1);
  ThatFlexibleUnit.makeThisInstanceX(2);

  // Теперь переменная myLocalVar для EachFlexibleUnit равна 1, а для ThatFlexibleUnit равна 2
end.

Таким образом, каждый экземпляр класса TFlexibleUnit будет иметь свою собственную версию переменной myLocalVar, и сможет использовать ее для определения своего поведения.

Создано по материалам из источника по ссылке.

В контексте статьи рассматривается вопрос о том, как сделать так, чтобы каждый экземпляр класса в Delphi имел свою собственную версию переменной `myLocalVar`, даже если эта переменная объявлена в секции `implementation` единицы, содержащей класс.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Модули ::