Советы по Delphi. Версия 1.0.6

Я привожу некоторый код, касающийся описываемой проблемы: он работал, когда я использовал его в большом приложении. Я не знаю специфического метода создания компонента TTable вне родителей, поэтому я пошел путем создания своего класса от TTable во время инициализации модуля. Удобство такого подхода объясняется наличием под рукой всегда готового к работе экземпляра класса, стоит всего-лишь добавить модуль к вашему приложению. Конечно, новый класс не должен иметь одиноко выглядящую процедуру со странной технологией фильтрации данных :=))), да и не помешала бы публикация нескольких событий, но этот пример призван все-го лишь продемонстрировать иной подход к решаемой задаче.

unit Unit2;

interface

uses db, DBTables, dialogs;

type fake = class(Ttable)

 procedure fakeFilterRecord(DataSet: TDataSet; var Accept: Boolean);

end;

var

 MyTable: fake;

implementation

procedure fake.fakeFilterRecord(DataSet: TDataSet; var Accept: Boolean);

begin

 showmessage('Здравствуй, Вася');

end;

Initialization

 MyTable:= fake.create(nil);

 With Mytable do begin

  DataBaseName:= 'dbdemos';

  TableName:= 'biolife';

  OnFilterRecord:= MyTable.fakeFilterRecord;

  Filtered:= true;

  active:= true;

 end;

 {проверка получением неких данных…}

 showmessage(MyTable.fields[1].asstring);

Finalization

 {Важно!  MyTable не имеет родителя, – уничтожаем объект сами, иначе память не высвобождается…}

 MyTable.free;

end.

TreeView

Ускорение работы TreeView

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

Для сравнения:

TreeView:

128 сек. для загрузки 1000 элементов (без сортировки)*

270 сек. для сохранения 1000 элементов (4.5 минуты!!!)

HETreeView:

1.5 сек. для загрузки 1000 элементов – ускорение около 850%!!! (2.3 секунды без сортировки = stText)*

0.7 сек. для сохранения 1000 элементов – ускорение около 3850%!!!

Примечание:

• Все операции выполнялись на медленной машине 486SX 33 Mгц, 20 Mб RAM.

• Если TreeView пуст, загрузка происходит за 1.5 секунды, плюс 1.5 секунды на стирание 1000 элементов (общее время загрузки составило 3 секунды). В этих условиях стандартный компонент TTreeView показал общее время 129.5 секунд. Очистка компонента осуществлялась вызовом функции SendMessage(hwnd, TVM_DELETEITEM, 0, Longint(TVI_ROOT)).

Проведите несколько приятных минут, развлекаясь с компонентом.

unit HETreeView;

{$R-}

// Описание: Реактивный TreeView

(*

TREEVIEW:

 128 сек. для загрузки 1000 элементов (без сортировки)*

 270 сек. для сохранения 1000 элементов (4.5 минуты!!!)

HETREEVIEW:

 1.5 сек. для загрузки 1000 элементов – ускорение около 850%!!! (2.3 секунды без сортировки = stText)*

 0.7 сек. для сохранения 1000 элементов – ускорение около 3850%!!!

NOTES:

 – Все операции выполнялись на медленной машине 486SX 33 Mгц, 20 Mб RAM.

 – * Если TTreeView пуст, загрузка происходит за 1.5 секунды,

 плюс 1.5 секунды на стирание 1000 элементов (общее время загрузки составило 3 секунды).

 В этих условиях стандартный компонент TreeView показал общее время 129.5 секунд.