В таблице есть строковое поле TStringField, примерный список его значений следующий:
001
002
10
2
25A
112А
112Б
112B
30

Нужно отсортировать набор данных по этому полю, как числовому.
Т.е.чтобы было
001
002
2
10
25А
30
112А
112Б
112B
Как это можно сделать?
P.S. Все это нужно сделать только средствами Delphi.

Дополнить слева нулями до максимальной длины.

в бде и локалsql каст таких строк к намберу не генерил исключений и возращал числа.

Использовать свою сортировку, которая в определенной функции будет возращать для двух значений, какое из них больше.

> [2] Поросенок Винни-Пух ©   (02.07.08 11:31)

Тогда, ИМХО, скорее всего поплывет сортировка по буквам

> 112А
> 112Б
> 112B

> Использовать свою сортировку

АДО не имеет метода TCustomSort, предлагаешь писать модуль на ФоксПро? А что делать с dBase даже представить не могу.

> Anatoly Podgoretsky ©   (02.07.08 11:41) [5]

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

В конце концов сортировать можно на клиенте ключевое поле, а потом переносить в какой-нибудь ClientDataSet результирующий набор в отсортированном виде.

> Desdechado  (02.07.2008 11:52:06)  [6]

Поддерживают, я на них и намекал, только вот FoxPro это СОМ сервер, а dBase нет.

> В конце концов сортировать можно на клиенте ключевое поле,
>  а потом переносить в какой-нибудь ClientDataSet результирующий
> набор в отсортированном виде.

Это как? Можно подробнее?

ClientDataset может быть оторванным от БД, самостоятельным набором данных
Отсортировать набор строк сам, надеюсь, сможешь?
А в нужном порядке скопировать записи в CDS вообще проблем не составляет.

Проблема то как раз в том, как отсортировать. Есть мысли?

> Проблема то как раз в том, как отсортировать


А тебе что. не известен ни один алгоритм сортировки ?

StrToInt не подойдет, т.к. 001, 112А в целое не переведет. Извращатся тоже как-то не хочется.

Сергей М.  ты знаешь хот один алгоритм сортировки строк как числовых значений? Если, да, то поделись.

> Нужно отсортировать набор данных по этому полю, как числовому.
> Т.е.чтобы было
это не совсем "по числовому"
если бы это было так то 002 и 2 это одно и то же и в сортировке позиция их была бы неопределена (сначала могла бы быть 2 после 002), так же как 3х значений 112, ты тем не менее поставил их на вполне определенные "красивые" позиции...

> Как это можно сделать?
если бы еще провайдер данных не был бы тайной...

ну допустим это jet тогда запрос


упорядочит результат именно так ка тебе нужно (в [0], и с данными оттуда же),если же насчет "числового" это была не оговорка, то убери второе условие сортировки (..., Field1).

Так убрать из строк нецифровые символы перед сортировкой.
Или, в свете [13], перед StrToInt.

TStringList.CustomSort
Туда подсовываешь свою функцию, которая для 2х значений скажет, какое больше. Собственно, я уже повторяюсь [3]

А эта функция может сравнивать, как угодно, хоть со StrToIntDef, хоть с учетом букв в конце или середине, хоть с пропуском. Короче, как напишешь.

> > Нужно отсортировать набор данных по этому полю, как числовому.
>
> > Т.е.чтобы было
> это не совсем "по числовому"
> если бы это было так то 002 и 2 это одно и то же и в сортировке
> позиция их была бы неопределена (сначала могла бы быть 2
> после 002), так же как 3х значений 112, ты тем не менее
> поставил их на вполне определенные "красивые" позиции...
>

002 и 2 -это должно быть одно и тоже, а 2 после 002 потому, что она и в начальном наборе идет тоже после.

Провайдер - OLE DB for ODBC

> Так убрать из строк нецифровые символы перед сортировкой.

Я же написал, что извращаться не хочется. Да и к тому же как быть символами А, Б, В? Хотя при беглом взгляде на набор, как правило, 112А, 112Б и т.д. идут в правильном порядке.

> Или, в свете [13], перед StrToInt.

Это как?

> 002 и 2 -это должно быть одно и тоже, а 2 после 002 потому,
>  что она и в начальном наборе идет тоже после

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

Насчет хреновости согласен
http://sql.ru/forum/actualthread.aspx?tid=571982


> Я же написал, что извращаться не хочется.

Ну я уже догадался, что писать программу ты не хочешь :))

> Erick   (02.07.08 15:51) [14]


Алгоритмы сортировки абстрактны, им по барабану что сортировать - хоть строки, хоть черта лысого. За работу с конкретными типами сортируемых этими алгоритмами данных отвечают другие алгоритмы - алгоритмы сравнения. Вот там как раз и важно содержимое твоих строк. Но о сравнении пока речь не идет - ты еще не определился с алгоритмом сортировки.

> TStringList.CustomSort
> Туда подсовываешь свою функцию, которая для 2х значений
> скажет, какое больше. Собственно, я уже повторяюсь [3]

Если к примеру я отсортирую в нужном порядке данное поле, то как сделать, то как сделать чтобы весь набор отсортировался? Т.е. если я значения этого поля пишу в TStringList или еще куда-то, потом сортирую, как мне как сохранить соответвствие между сзначениями этого и других полей?

> Алгоритмы сортировки абстрактны, им по барабану что сортировать
> - хоть строки, хоть черта лысого. За работу с конкретными
> типами сортируемых этими алгоритмами данных отвечают другие
> алгоритмы - алгоритмы сравнения. Вот там как раз и важно
> содержимое твоих строк. Но о сравнении пока речь не идет
> - ты еще не определился с алгоритмом сортировки.

Да хоть "пузырьком", как разница какой алгоритм использовать. Мне нужно отсортировать по возрастанию номера помещений, которые храняться в текстовом поле.

> как мне как сохранить соответвствие между сзначениями этого
> и других полей?

Номера помещений у тебя уникальны? Если да, то соответствие уже есть. А если нет, то не имеет значения, какое из них первое, какое - второе. Главное, чтобы строки в результирующем CDS не повторялись.
Это, я думаю, ты сообразишь.

> Да хоть "пузырьком"


TStringList, если ты за него взялся, реализует QuickSort.

Тебе остается реализовать алгоритм сравнения.

> Erick  (02.07.2008 16:27:23)  [23]

А что ИД нет?

Привести нативные значения полей к единому шаблону (формату) - строке
Например шаблон NNNNNNLLLL, где
 N - цифра и L - буква

Тогда получим такую картину

Нативные значения    Шаблон
 0001                        000001____
 1                              000001____
 234                          000234____
 25ПРСТ                   000025ПРСТ
 78А                          000078А___
 Б45                          999999Б45_

По шаблону и сортировать

Как получить шаблон - дело "техники". Можно в запросе (если сиквель позволяет), можно через доп.поле датасета (TClientDataSet)

> Привести нативные значения полей к единому шаблону (формату)
> - строке

Это если оно получится. А то появится какое-нибудь "ПомеЩение 1Б2" - и тогда шаблон резко менять надо. А судя по постановке, данные не формализованы, юзеры долбят, что хотят.

В FB у меня нечто схожее реализовано с помощью UDF. Тригер срабатывает на добавление - изменение записи и в дополнительное поле вносит преобразованое шаблонированое значение, которое преобразуется в UDF

> Как получить шаблон - дело "техники". Можно в запросе (если
> сиквель позволяет), можно через доп.поле датасета (TClientDataSet)

О каком сиквеле идет речь?

приведи строковое к числовому и по нему отсортируй
типа select  id, cast(id as integer) FROM table order by 2

> Виталий Панасенко(дом)   (02.07.08 21:23) [32]
> приведи строковое к числовому и по нему отсортируйтипа select
>  id, cast(id as integer) FROM table order by 2


опять недосмотрел... (c) Виталий Панасенко(дом)

>О каком сиквеле идет речь?

О диалекте SQL. Не все они позволяют разобрать строку или проверить содержит ли она только цифры

>Desdechado ©   (02.07.08 17:18) [29]
>А то появится какое-нибудь "ПомеЩение 1Б2" - и тогда шаблон резко менять надо.

Ничего не надо менять. Если буквенная часть натива слишком широка, то будут использованы только первые символы. Ну и, конечно, сам шаблон изначально должен быть достаточно "широким" чтобы вместить все значения. Например его длина должна составлять две длины нативного поля - тогда все "влезет"

> Ничего не надо менять.

Ой, не кажи "гоп".
А если туда вколотят с дефисами/слэшами/пробелами и прочими знаками препинания, это ж какая маска нужна....

> Desdechado  (03.07.2008 10:47:36)  [36]

Это попытка удаления гланд через заднее отверстие.

>Desdechado ©   (03.07.08 10:47) [36]

Какую ты "маску" придумал ? Сравниваются строки и только

> Какую ты "маску" придумал ?

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