Не правильная сортировка для украинского языка

← →
RDA (2005-11-03 20:37) [0]

Компонент cxGrid от DevExpress не хочет(не умеет) правильно сортировать локальные данные для украинского языка. Подсказали что нужно использовать его событие OnCompare.

procedure TMainForm.tbvMainDataControllerCompare( ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2, AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer); begin // end;

Вот такое событие, что куда ... не знаю. Подскажите кто что может.

← →
sniknik © (2005-11-03 21:01) [1]

посмотри в справке дельфи по TListView.onCompare там даже пример есть, и сделай по аналогии.

← →
RDA (2005-11-03 21:26) [2]

Смотрел, но не понял как решить проблему с украинским языком?

← →
RDA (2005-11-03 21:28) [3]

Дочитал.

← →
RDA (2005-11-03 21:38) [4]

Но не совсем понял. Как сделать чтобы работало для всех колонок?

← →
RDA (2005-11-03 22:50) [5]

Вопрос снят.

← →
RDA (2005-11-04 15:37) [6]

Вопрос открыт.

Что делать с датой?

У меня дата храниться в текстовом формате (т.к. ее может не быть, может состоять только из года и может быть в полном формате).

Если обрабатывается событие OnCompare для некоторых колонок, то остальные (для которых нет обработки) вообще не хотят сортироваться. Как поправить?

← →
RDA (2005-11-04 18:29) [7]

Сделал так. Работает (вроде), может кто-что умнее подскажет, буду благодарен

procedure TMainForm.tbvMainDataControllerCompare( ADataController: TcxCustomDataController; ARecordIndex1, ARecordIndex2, AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer); var AValue1,AValue2: Variant; begin if (V1 <> null) and (V2 <> null) then if AItemIndex <> 3 then Compare := AnsiCompareStr(V1,V2) else begin if Length(V1) = 4 then AValue1 := "01.01." + V1 else AValue1 := V1; if Length(V2) = 4 then AValue2 := "01.01." + V2 else AValue2 := V2; Compare := AnsiCompareStr(ReverseString(AValue1),ReverseString(AValue2)); end else if (V1 = null) and (V2 = null) then Compare := 0 else if V1 = null then Compare := -1 else Compare := 1 end;

это рука москвы

← →
Step[B.M.] (2005-11-06 20:49) [9]

не знаю будет ли в твоем случае это умнее, но сортировку украинского можно делать средствами FireBird
- при создании базы кодировка WIN1251
- в текстовых полях - пример
TEXT_HIST VARCHAR(200) COLLATE WIN1251_UA,

← →
RDA (2005-11-07 19:51) [10]

Дело в том что здесь имеет место пересортировка и хотелось ее сделать средствами этого самого грида (он это делает быстрее) нежели пересортировка средствами FIBPlus - локальная сортировка.

Код приведенный выше, некорректен. Неправильно сортирует по дате.
Может кому понадобиться вернее (мне так кажется) было бы так
Compare := AnsiCompareStr(FarmatDateTime("yyyy.mm.dd",AValue1), FormatDateTime("yyyy.mm.dd",AValue2));

Не правильная сортировка для украинского языка Найти похожие ветки