Delphi: работа с классами, унаследованными от TList

Еще немного расскажу о своих "привычках" в программировании. Очень часто приходится работать со списком однотипных объектов. В этом случае создаю класс для объекта и класс для списка объектов, унаследованный от TList.

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

Самый простой пример такой объектной организации:

TBASetting  = class
  BA              : string;
  MM_CONST        : integer;
  STRIKESTEP,
  MIN_STRIKE,
  MAX_STRIKE      : double;  
public
  constructor Create(const aPath: string; const aParams: TStrings); overload;
  ...
end;

TBASettings = class(TList)
  ...
  function LoadFromINI (IniFile : TIniFile) : boolean;
  function SaveToINI (IniFile: TIniFile) : boolean;
  procedure Clear; override;
end;

Остановлюсь подробнее на следующих пунктах:
- создание объектов, заполнение списка;
- освобождение памяти при "очистке" списка.

Создание объектов и добавление их в список

Опять же, два варианта.
1. Создание одиночного объекта (выделение памяти, присвоение значений полям), добавление в список.

tmpSet := TBASetting.Create;
tmpSet.BA := sBA;
tmpSet.MM_CONST := iMM_CONST;
tmpSet.STRIKESTEP := dSTRIKESTEP;
tmpSet.MIN_STRIKE := dMIN_STRIKE;
tmpSet.MAX_STRIKE := dMAX_STRIKE;
BASettings.Add(tmpSet);

2. Массовое заполнение списка объектами (групповое добавление объектов). Этот вариант удобен, если, например, считывать данные из ini-файла или XML.

function TBASettings.LoadFromINI(IniFile: TIniFile): boolean;
var
  Sections,
  SecParams   : TStringList;
  i           : integer;
  sVal        : string;
begin
  Result := false;
  Sections := TStringList.Create;
  try
    IniFile.ReadSections(Sections);
    SecParams := TStringList.Create;
    try
      for i:=0 to Sections.Count-1 do
      begin
        sVal := Sections[i];
        // ну, тут всякие условия, проверки, код для "отсева" и т.д.
        if sVal <> 'COMMON' then
          begin
            IniFile.ReadSectionValues(sVal, SecParams);
            if SecParams.Count > 0 then
              begin
                BASettings.Add(TBASetting.Create(sVal, SecParams));
              end
          end;
      end;
    finally
      SecParams.Free;
    end;
  finally
    Sections.Free;
  end;
  Result := true;
end;

constructor TBASetting.Create(const aPath: string;
  const aParams: TStrings);
begin
  BA            := aPath;
  MM_CONST      := StrToIntDef(aParams.Values['MM_CONST'], 4);
  STRIKESTEP    := StrToFloatDef(aParams.Values['STRIKESTEP'], 0);
  MIN_STRIKE    := StrToFloatDef(aParams.Values['MIN_STRIKE'], 0);
  MAX_STRIKE    := StrToFloatDef(aParams.Values['MAX_STRIKE'], 0);
end;

Очистка списка объектов (наследника TList)

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

Что делать при удалении всего списка? У TList есть метод Free, который освобождает память и удаляет объект. Казалось бы, надо у нашего списка перегрузить этот метод? Но правильнее перегрузить метод Clear (который, в свою очередь, вызывается из Free, а Free вызывается FreeAndNil-ом).

TBASettings = class(TList)
  ...
  function LoadFromINI (IniFile : TIniFile) : boolean;
  function SaveToINI (IniFile: TIniFile) : boolean;
  procedure Clear; override;
end;

procedure TBASettings.Clear;
var
  i : integer;
  tmpSet  : TBASetting;
begin
  for i := 0 to Count-1 do
    begin
      tmpSet := TBASetting(Items[i]);
      tmpSet.Free;
    end;
  inherited;
end;

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

Листинг для примера:

TBASetting  = class
  BA              : string;
  PUTNAME,
  CALLNAME        : TStringList;
  MM_CONST        : integer;
  STRIKESTEP,
  MIN_STRIKE,
  MAX_STRIKE      : double;
public
  ...
  constructor Create(const aPath: string; const aParams: TStrings); overload;
  constructor Create; overload;
  destructor Destroy; override;
end;

constructor TBASetting.Create;
begin
  PUTNAME := TStringList.Create;
  CALLNAME := TStringList.Create;
end;

destructor TBASetting.Destroy;
begin
  PUTNAME.Free;
  CALLNAME.Free;
end;

Я тут привожу условный листинг, не особо заботясь о "классических правилах" работы с классами. Вообще, в небольших проектиках, которые пишу под свои задачи, не парюсь над защищенностью наследуемых и ненаследуемых методов, всяких протектедах и доступах к полям. Считаю, что это лишнее, хотя, может, кто-то с этим и не согласится.

На сегодня это все, о чем я хотела поведать. Пойду дальше программировать :)

P.S.: Производительность труда заметно повышается, когда дома ломается компьютер. На работе приходится брать себя в руки и работать! :D
___

Чтобы быть в курсе обновлений блога, можно подписаться на RSS.

Статьи схожей тематики: