Создание шаблонов для повторяющегося кода в классах Delphi: примеры с Tim, Bob и Steve

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

Вопрос, поставленный перед нами, заключается в возможности упрощения повторяющегося кода для работы с объектами класса в Delphi. Рассмотрим ситуацию, когда нам необходимо выполнить одни и те же операции над несколькими свойствами объектов. Вместо того, чтобы копипастить код для каждого объекта, мы можем использовать шаблоны и ООП-подходы, чтобы сделать наш код более читаемым, поддерживаемым и масштабируемым.

Использование циклов для повторяющихся операций

Самый простой способ — использовать цикл for, чтобы обрабатывать каждый объект в коллекции. Например:

for I := 0 to Data.Count do
begin
  Data[I].NewValue := Data[I].SavedValue;
  Data[I].OldValue := Data[I].SavedValue;
end;

Определение метода внутри класса

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

type
  TMyClass = class
  private
    FNewValue, FOldValue, FSavedValue: Double;
  public
    procedure RestoreValues;
    property NewValue: Double read FNewValue write SetValue;
    property OldValue: Double read FOldValue;
  end;

procedure TMyClass.SetValue(const AValue: Double);
begin
  FOldValue := FNewValue;
  FNewValue := AValue;
  FSavedValue := FNewValue;
end;

procedure TMyClass.RestoreValues;
begin
  SetValue(FSavedValue);
end;

Объединение объектов в массив

Можно создать дополнительный список, который будет содержать ссылки на все объекты, и использовать цикл для выполнения операций над каждым из них:

type
  TDataArray = TArray<TMyClass>;
  TMyData = class
  private
    FObjects: TDataArray;
  public
    procedure RestoreAllValues;
  end;

procedure TMyData.RestoreAllValues;
var
  I: Integer;
begin
  for I := Low(FObjects) to High(FObjects) do
    FObjects[I].RestoreValues;
end;

Использование записей и массивов

Если объекты имеют простую структуру, можно использовать записи и массивы для управления данными, а также определить функции для выполнения необходимых операций:

type
  TValue = record
    NewValue, OldValue, SavedValue: Double;
    procedure SetValue(const AValue: Double);
    procedure SaveValue;
    procedure RestoreValue;
  end;
  TValueKind = (Tim, Bob, Steve);
  TDataArray = array[TValueKind] of TValue;

procedure TValue.SetValue(const AValue: Double);
begin
  OldValue := NewValue;
  NewValue := AValue;
  SaveValue;
end;

procedure TValue.SaveValue;
begin
  SavedValue := NewValue;
end;

procedure TValue.RestoreValue;
begin
  NewValue := SavedValue;
  OldValue := SavedValue;
end;

var
  Data: TDataArray;

procedure RestoreAllValues(var aData: TDataArray);
var
  I: Integer;
begin
  for I := Low(TValueKind) to High(TValueKind) do
    aData[I].RestoreValue;
end;

Заключение

Применение шаблонов и ООП-подходов в Delphi позволяет не только сократить количество повторяющегося кода, но и упростить его поддержку и расширение. Использование циклов, методов внутри классов, массивов объектов и записей — все это инструменты, которые помогут сделать ваш код более чистым и эффективным.

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

Вопрос касается создания шаблонов для упрощения повторяющегося кода в классах Delphi, рассматриваются примеры с использованием объектов Tim, Bob и Steve.

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

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

:: Главная :: Классы ::