TClientDataSet - Сортировка

[Pahan90]

доброго времени суток!не знаю с чего мне начать: нужно отсортировать некоторый набор данных в TClientDataSet типа:
название 5а25
название 8а10
название 10а17
название 15т18
чтобы например 2>10. можно сказать, как в проводнике.

[Аватар]

Только тогда, если будет так:
название 05а25
название 08а10
название 10а17
название 15т18
Иначе индексом клиентдатасета нельзя

[Pahan90]

тогда как мне добавить эти индексы?

[Аватар]

Ни как. Или в таблице базы должно быть соответствующее поле, или запросом сформировано вычисляемое. Или разбросано по нескольким полям в нужном формате. А клиентдатасет не имеет возможностей пользовательской сортировки при создании индекса, только по значению полей

[Pahan90]

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

[Аватар]

Получится, там есть пользовательская сортировка, но при чем тогда клиентдатасет? Но и там не так все просто, особенно если названия разнотипные, включающие наряду с 5а25 и 123-ррр-15 и тому подобное. Недавно была похожая тема, если найду кину ссылку

http://www.programmersforum.ru/showthread.php?t=317029
http://www.programmersforum.ru/showthread.php?t=317766

[Pahan90]

спасибо, смотрел как раз последнюю тему, но, мне кажется, что так не пойдет для клиентдатасет...

[Pahan90]

попробовал вот так, но сортирует не в той немного последовательности: сортировка происходит строковая (2<10).

/////сортировка по индексам
procedure TMainForm.MySort;
type
     TSortItem = record
      Key: String;
      Values: Array of Variant;
     end;
     TSortItems = Array of TSortItem;
 var
     I,J: Integer;
     DataSet: TClientDataSet;
     TmpStr, IndexFields: String;
     FCount, FMaxParamCount: Integer;
     SortItems: TSortItems;
     IsFloat: Boolean;
     F: Double;
begin
      try
      //Временная сортировка
      StandDS.IndexFieldNames:= 'Document';
      //Создать объекты
      DataSet:= TClientDataSet.Create(Application);
       // По каким параметрам будет отбор для сортировки
       TmpStr:= STandDS.FieldByName('Document').AsString;
       // Очистить хранилище: индексы,данные,наборы полей
       DataSet.IndexFieldNames:= '';
       If DataSet.Active then begin
        DataSet.EmptyDataSet;
        DataSet.FieldDefs.Clear;
        DataSet.Fields.Clear;
        DataSet.Close;
       end;
       // Сортируем однотипные объекты
       DataSet.FieldDefs.Add('Key', ftString, 100);
       IndexFields:= '';
       IsFloat:= False;
      For I:= 0 to FMaxParamCount-1 do begin
        //проверяем, является ли текущий столбец числовым
        For J:= 0 to FCount-1 do
         If SortItems[J].Values<>nil then
          If Length(SortItems[J].Values)>=I then begin
           try
            IsFloat:= TryStrToFloat(SortItems[J].Values[I], F);
           except
            IsFloat:= False;
           end;
           If not IsFloat
            then Break;
          end;
       end;
       // Датасет с нужной структурой создан, заносим данные
       DataSet.CreateDataSet;
       DataSet.IndexFieldNames:= '';
       DataSet.Active:= True;
       For I:= 0 to FCount-1 do begin
        DataSet.Append;
        For J:= 0 to FMaxParamCount-1 do
         If J<=Length(SortItems[I].Values)-1
          then DataSet.FieldByName('Field'+IntToStr(J)).Value:= SortItems[I].Values[J]
          else DataSet.FieldByName('Field'+IntToStr(J)).Value:= MaxDouble;
       end;
     finally
     DataSet.Free;
     end;
end;

может, подскажете, что не так?