сортировка в TreeView

[Etsareva]

вообще процедура создания дерева выглядит след. образом:

procedure CreateStandNodes(Parent:TTreeNode);
var
  okp_id, Text:string;
  MyRecPtr:array of PDataStand;
  i:integer;
  node:TTreeNode;
begin
  //Ищем изделия, которые входят в этот класс
  okp_id:=IntToStr(PDataStand(Parent.Data)^.ID);
  StdMainForm.ADOQuery.SQL.Clear;
  StdMainForm.ADOQuery.SQL.Add('Select Stand.Stand_ID,Stand.Mark,Stand.Type,Gost.Name, Stand.Prd, Stand.Symbol, Stand.Name as ProductName from Stand, Gost');
  StdMainForm.ADOQuery.SQL.Add('where Stand.OKP_ID='+QuotedStr(okp_id));
  StdMainForm.ADOQuery.SQL.Add('and Gost.Gost_ID=Stand.Gost_ID');
 // StdMainForm.ADOQuery.SQL.Add('ORDER BY Stand.Mark ASC');
  StdMainForm.ADOQuery.SQL.Add('ORDER BY CASE WHEN ISNUMERIC(Stand.Mark)<>0 THEN CAST(Stand.Mark AS INT)');
  StdMainForm.ADOQuery.SQL.Add('ELSE 2147483648 END ASC, CASE WHEN Stand.Mark LIKE ''%[0-9]%'' THEN 1 ELSE 0 END ASC, Stand.Mark ASC');
  try StdMainForm.ADOQuery.Open;
  except
    on E:Exception do begin
      ShowMessage(E.Message);
      Exit;
    end;
  end;
  //Выводим в дереве изделия, относящиеся к указанному классу
  if StdMainForm.DataSource.DataSet.RecordCount=0 then begin
    //Изделий в классе нет
  //  Parent.Delete;
  //  DeleteEmptyParents(Parent);
    Parent.HasChildren:=False;
    Exit;
  end;
  with StdMainForm.DataSource.DataSet do begin
    SetLength(MyRecPtr, RecordCount);
    StdMainForm.TreeStandart.Items.BeginUpdate;
    for i:=0 to RecordCount-1 do begin
      new(MyRecPtr[i]);

      //формирование записи в дереве (последовательность атрибутов в записи)
      if FieldByName('Type').AsInteger=0 then
        MyRecPtr[i]^.ObjectType:=soERE
      else
        MyRecPtr[i]^.ObjectType:=soStand;
        if FieldByName('Prd').AsInteger=0 then begin
          if FieldByName('Symbol').AsInteger=0 then
          Text:=FieldByName('ProductName').AsString+' '+FieldByName('Name').AsString+' '+FieldByName('Mark').AsString else
          if FieldByName('Symbol').AsInteger=1 then
          Text:=FieldByName('ProductName').AsString+' '+FieldByName('Name').AsString+' '+'-'+' '+FieldByName('Mark').AsString else
          if FieldByName('Symbol').AsInteger=2 then
          Text:=FieldByName('ProductName').AsString+' '+FieldByName('Name').AsString+''+'-'+''+FieldByName('Mark').AsString;
         end else
        Text:=FieldByName('ProductName').AsString+' '+FieldByName('Mark').AsString+' '+FieldByName('Name').AsString ;
      MyRecPtr[i]^.ID:=FieldByName('stand_id').AsInteger;
      MyRecPtr[i]^.OKP_ID:=PDataStand(Parent.Data)^.ID;
      node:=StdMainForm.TreeStandart.Items.AddChildObject(Parent, text, MyRecPtr[i]);
      case MyRecPtr[i]^.ObjectType of
        soERE:begin
            node.ImageIndex:=IconStandERE;
            node.SelectedIndex:=IconStandERE;
          end;
        soStand:begin
            node.ImageIndex:=IconStandSTD;
            node.SelectedIndex:=IconStandSTD;
          end;
      end;
      Next;
    end;
    StdMainForm.TreeStandart.Items.EndUpdate;
  end;
end;

попыталась отсортировать SQL-запросом, не сортирует, подумала. может нужно в самом TreeView сортировать

[Serge_Bliznykov]

Сообщение от Etsareva

попыталась отсортировать SQL-запросом, не сортирует

сортирует.
просто сортирует строки по правилам сортировки строк!
О том, как это изменить и идёт речь в этом топике.

Сообщение от Etsareva

но это будет в другом разделе дерева

а что, для каждого раздела дерева будете свою функцию сортировки писать?
или, может быть, просто принимать сортировку в виде строк как то, что есть?

[Etsareva]

Сообщение от Serge_Bliznykov

сортирует

согласна, сортирует, но как мне осуществить немного другую сортировку? не по цифрам, а по числам целиком (то есть М8, М10, а не наоборот?)?

[Serge_Bliznykov]

Сообщение от Etsareva

согласна, сортирует, но как мне осуществить немного другую сортировку? не по цифрам, а по числам целиком (то есть М8, М10, а не наоборот?)?

см. пост #7

[Etsareva]

Сообщение от Serge_Bliznykov

см. пост #7

спасибо! я поняла все.

[Etsareva]

Сообщение от Serge_Bliznykov

сколько записей возвращает запрос вида
Код:
SELECT MARK from ВашаТАблица GROUP BY MARK;

- 10605 строк.

Сообщение от Serge_Bliznykov

и там есть строчки, где в начале НЕ "М" ?

есть, например:
С2-33-0,25-412 Ом ± 1 %-А-Г- В
590КН5
К50-68-25 В-100 мкФ (+50;-10)% И В и тд.

[Serge_Bliznykov]

Сообщение от Etsareva

есть, например:
С2-33-0,25-412 Ом ± 1 %-А-Г- В
590КН5
К50-68-25 В-100 мкФ (+50;-10)% И В и тд.

ну вот и ответ на ваш вопрос -

Сообщение от Etsareva

но как мне осуществить немного другую сортировку? не по цифрам, а по числам целиком (то есть М8, М10, а не наоборот?)?

ответ - "Никак".
потому что Вы не сможете объяснить, по каким "числам целиком" надо сортировать, эти строчки.

поэтому сортируйте как строки.
а для удобства пользователя должна быть фильтрация + поиск.

[Etsareva]

а, может быть, возможно сделать сортировку внутри дерева treeview?

[Аватар]

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

[Etsareva]

Сообщение от Аватар

сортировать по своему алгоритму

поняла, спасибо! а можно где-нибудь пример посмотреть, в чего начать мне?