Парсинг строки

[Etsareva]

еще назрел вопрос: можно ли function MyCompare применить к TClientDataSet, данные которого отображаются в dbgrideh?

[Serge_Bliznykov]

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

можно ли function MyCompare применить к TClientDataSet, данные которого отображаются в dbgrideh?

на мой взгляд - нет, нельзя.
TCDS - это всё же, какой-никакой, но DBWare компонент, он реализует механизм доступа к данным. Сортировка у него есть, по индексам. Но использовать в качестве индекса Delphi функцию не получится.
возможно, что я ошибаюсь. может быть, кто-то предложит способ, как можно это обойти.

[Etsareva]

Serge_Bliznykovfunction SortClientDataSet(ClientDataSet: TClientDataSet;
const FieldName: String): Boolean; тогда эту функцию использовать следует, думаю...

[Etsareva]

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

Сортировка у него есть, по индексам

или, может, подскажете, как это возможно выполнить?

[Serge_Bliznykov]

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

тогда эту функцию использовать следует, думаю...

Вас не смущает второй параметр этой функции -

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

const FieldName: String

?

Это сортировка по указанному полю.

[Etsareva]

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

сортировка по указанному полю

мне именно такая сортировка и нужна.

[Etsareva]

function SortClientDataSet(ClientDataSet: TClientDataSet;
  const FieldName: String): Boolean;
var
  i: Integer;
  NewIndexName: String;
  IndexOptions: TIndexOptions;
  Field: TField;
begin
Result := False;
Field := ClientDataSet.Fields.FindField(FieldName);
if Field = nil then Exit;
if (Field is TObjectField) or (Field is TBlobField) or
  (Field is TAggregateField) or (Field is TVariantField)
   or (Field is TBinaryField) then Exit;
ClientDataSet.IndexDefs.Update;
if ClientDataSet.IndexName = FieldName + '__IdxA'
then
  begin
    NewIndexName := FieldName + '__IdxD';
    IndexOptions := [ixDescending];
  end
else
  begin
    NewIndexName := FieldName + '__IdxA';
    IndexOptions := [];
  end;
for i := 0 to Pred(ClientDataSet.IndexDefs.Count) do
begin
  if ClientDataSet.IndexDefs[i].Name = NewIndexName then
    begin
      Result := True;
      Break
    end; //if
end; // for
if not Result then
    begin
      ClientDataSet.AddIndex(NewIndexName,
        FieldName, IndexOptions);
      Result := True;
    end; // if not
ClientDataSet.IndexName := NewIndexName;
end;

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

[Serge_Bliznykov]

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

только эта функция просто сортирует текст по возрастанию или убыванию

ну так я Вам про это и говорил выше:

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

Это сортировка по указанному полю.

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

а хотелось бы по определенным параметрам строки.

понимаю. но эта функция так не умеет делать.

[Аватар]

Эта функция индекс находит для заданного поля или создает, если его нет. И не имеет ни какого отношения к выше перечисленным хотелкам ))

[Etsareva]

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

не имеет ни какого отношения к выше перечисленным хотелкам

понятно. как же мне сравнить строки?