VMProtect Software » Forum

Code: Select all

Procedure LoadPosts;
Begin
 // очищаем таблицу

 c := GetTickCount; // измеряем производительность

 PostsList.BeginUpdate;
 PostsList.Clear;

 // считывает элементы из БД
 Results := Manager.CreateCriteria<TLiteOrgTree>.AddOrder(TOrder.Asc('ElementOrder')).List;
 
  if Results.Count > 0 then
   for i := 0 to Results.Count - 1 do
    Begin
     Node := PostsList.AddChild(nil); // Добавляем строчку в таблицу
     // В зависимости от доступа и типа каждому элементу присваивается одна из иконок в TImageList. 
     // В ImageList всего загружено 9 иконок размером 16х16.
     Node.ImageIndex := Results.Items[i].ElementType;
     Node.Texts[0] := Results.Items[i].ElementName; // название должности
    End;

  Results.Free;

 PostsList.EndUpdate;

 ShowMessage(FloatToStr(GetTickCount - c) + ' мсек'); // выводим результат, сколько заняло построение таблицы
End.

Code: Select all

  
 if PostsList.Count > 0 then
    Begin
      for i := PostsList.Count - 1 downto 0 do
        for z := PostsList.Count - 1 downto 0 do
          if (PostsList.Items[i].StateIndex = PostsList.Items[z].StateIndex) and
            (i <> z) then
            PostsList.Items[i].StateIndex := -1;

      for i := PostsList.Count - 1 downto 0 do
        if PostsList.Items[i].StateIndex = -1 then
          PostsList.Items[i].Delete;
    End;

Code: Select all

 for i := 0 to cxTreeList1.Count - 1 do
  for z := 0 to cxTreeList1.Count - 1 do
   if cxTreeList1.Items[i].StateIndex = cxTreeList1.Items[z].StateIndex
    then
     Begin
      cxTreeList1.Items[i].StateIndex := -1;
     End;

Code: Select all

  cxError((AIndex < 0) or (AIndex >= FCount),  cxGetResourceString(@scxIndexOutOfBounds), [AIndex]); // <!-- здесь происходит загрузка ресурсов, которая тормозит

  if Parent <> nil then
    Parent.AdjustIndexes;
  if (FLast.Index shr 1) <= AIndex  then
  begin
    Result := FLast;
    while Result.FIndex <> AIndex do
      Result := Result.FPrev;
  end
  else
  begin
    Result := FFirst;
    while Result.FIndex <> AIndex do
      Result := Result.FNext;
  end;

Code: Select all

var Nodes: TObjectList;
...
  Nodes := TObjectList.Create();
  for i := 0 to 300 do
   Begin
    Node := cxTreeList1.AddChild(nil);
    Node.StateIndex := i;
    Node.Texts[0] := 'Элемент ' + IntToStr(i);

    Nodes.Add(Node);
   End;

 for i := 0 to Nodes.Count - 1 do
  for z := 0 to Nodes.Count - 1 do
   if Nodes[i].StateIndex = Nodes[z].StateIndex
    then
     Begin
      Nodes[i].StateIndex := -1;
     End;

  Nodes.Free;