Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Сортировка в VirtualStringTree

Автор: hilarios 27.8.2007, 15:47

Возник такой вопрос: как при создании динамической структуры дерева сортировать данные относительно их типа? т.е. данная сортировка будет воспринимать все данные как строковые, а как сделать, зная тип данных каждого столбца, чтобы сортировка проходила относительно типа этих данных? (тип Int сортировался бы по возрастанию/убыванию, текст по алфавиту и т.д.)

Код


procedure TFormdll.VST1CompareNodes(Sender: TBaseVirtualTree; Node1,
  Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
var
  BaseTree: TVirtualStringTree;
begin

  BaseTree := TVirtualStringTree(Sender);
  Result := AnsiStrComp(PChar(string(BaseTree.Text[Node1, Column])),
    PChar(string(BaseTree.Text[Node2, Column])));

end;

Автор: aktuba 27.8.2007, 16:03

А в чем сложность то??? У тебя же есть ноды, получай поля и сравнивай

Автор: hilarios 28.8.2007, 06:55

Цитата(aktuba @ 27.8.2007, 16:03)

А в чем сложность то??? У тебя же есть ноды, получай поля и сравнивай

Делаю так:

Код


 for I := 0 to VST1.Header.Columns.Count - 1 do    // Iterate
 begin

 if ((tipe_c[i]='int') or (tipe_c[i]='double') or (tipe_c[i]='float') or (tipe_c[i]='smallint')) then

  if BaseTree.Text[Node1,column]> BaseTree.Text[Node2,column] then
   Result:=1
   else if BaseTree.Text[Node1,column]< BaseTree.Text[Node2,column] then
   Result:=-1
   else Result:=0

 else

  Result := AnsiStrComp(PChar(string(BaseTree.Text[Node1, Column])),
    PChar(string(BaseTree.Text[Node2, Column])));
 end;

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

Автор: ASGDeveloper 28.8.2007, 08:31

Сделай тогда так:

Код


procedure TMainForm.vstTreeCompareNodes(Sender: TBaseVirtualTree; Node1,
  Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
var
   num1, num2: Integer;
   s1, s2: string;
begin
  s1 := Sender.Text[Node1, Column];
  num1 := StrToIntDef(s1, -1);
  s2 := Sender.Text[Node2, Column];
  num2 := StrToIntDef(s2, -1);

  if (num1 <> -1) and (num2 <> -1) then
  begin
    if num1 > num2 then Result := 1;
    if num1 < num2 then Result := - 1;
    if num1 = num2 then Result := 0;
  end else
  Result := WideCompareStr(vstControlJ.Text[Node1, Column], vstControlJ.Text[Node2, Column]);
end;

Автор: hilarios 28.8.2007, 09:16

Цитата(ASGDeveloper @ 28.8.2007, 08:31)

Сделай тогда так:

Спасибо большое за помощь!!! Что-то то я тут от всей суеты совсем запарился...Разобрался как все сделать! smile

Код


procedure TFormdll.VST1CompareNodes(Sender: TBaseVirtualTree; Node1,
  Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
var
  BaseTree: TVirtualStringTree;
begin

     BaseTree := TVirtualStringTree(Sender);

 if ((tipe_c[Column]='int') or (tipe_c[Column]='bigint') or (tipe_c[Column]='binary') or (tipe_c[Column]='smallint') or (tipe_c[Column]='bit') or (tipe_c[Column]='decimal') or (tipe_c[Column]='numeric') or (tipe_c[Column]='tinyint')) then

   if StrToInt(BaseTree.Text[Node1,column])> StrToInt(BaseTree.Text[Node2,column]) then
   Result:=1
   else if StrToInt(BaseTree.Text[Node1,column])< StrToInt(BaseTree.Text[Node2,column]) then
   Result:=-1
   else Result:=0

 else if ((tipe_c[Column]='float') or (tipe_c[Column]='money') or (tipe_c[Column]='smallmoney')) then
   if StrToFloat(BaseTree.Text[Node1,column])> StrToFloat(BaseTree.Text[Node2,column]) then
   Result:=1
   else if StrToFloat(BaseTree.Text[Node1,column])< StrToFloat(BaseTree.Text[Node2,column]) then
   Result:=-1
   else Result:=0

 else
  Result := AnsiStrComp(PChar(string(BaseTree.Text[Node1, Column])),
    PChar(string(BaseTree.Text[Node2, Column])));
end;

Автор: aktuba 28.8.2007, 17:44

ASGDeveloper, hilarios

Код


procedure TMainForm.vstTreeCompareNodes(Sender: TBaseVirtualTree; Node1,
  Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
var
  lData1, lData2: PDataNode;
begin
  Result := 0;
  lData1 := Sender.GetDataNode(Node1);
  lData2 := Sender.GetDataNode(Node2);
  if not (Assigned(lData1) and Assigned(lData2)) then Exit;
  case Column of
    0: Result := AnsiStrCompare(lData1^.str, lData2^.str); // Для строк
    1: if lData1^.Int > lData2^.Int // Для чисел
          then Result := 1
          else Result := -1;
    // и т.д...
  end;
end;

Если Вы переводите число в текст - нет гарантии правильного результата. Я всегда подобным образом делаю.

Автор: gesper 7.9.2017, 16:17

Другой вопрос по теме сортировки

Сделана банальная сортировка - кликаем по шапке, и компонент сортирует содержимое сравнивая текст из ячеек.
Все бы здорово, но может кто то сталкивался с аналогичным багом: компонент не сортирует при этом полностью список. Чтобы полностью отсортировать дерево надо сделать 3-4 клика по колонке туда-сюда, чтобы слова выставились как надо.

И почему то на Win 8 вылеталет "out of memory" в штатном редакторе текста компонента. Склоняюсь к мысли, что сборка компонента косячная. Но под Лазарус выбор не большой увы сборок.

Автор: Gwire 30.1.2018, 15:57

Зачем столько текста?

Код


   if StrToInt(BaseTree.Text[Node1,column])> StrToInt(BaseTree.Text[Node2,column]) then
   Result:=1
   else if StrToInt(BaseTree.Text[Node1,column])< StrToInt(BaseTree.Text[Node2,column]) then
   Result:=-1
   else Result:=0

Код


    Result := StrToInt(BaseTree.Text[Node1,column]) - StrToInt(BaseTree.Text[Node2,column]);