Proleme bei Locate

[himitsu]

Delphi-Quellcode:

procedure TFRM_Main.DBG_BuecherTitleClick(Column: TColumn);
begin
  Column.Sort;
end;

Delphi-Quellcode:

type
  TFieldSortMode = (fsmAuto, fsmAsc, fsmDesc);
  TFieldHelper = class helper for TField
    ...
    procedure Sort(aSortMode: TFieldSortMode = fsmAuto);
    ...
  end;

procedure TFieldHelper.Sort(SortMode: TFieldSortMode);
begin
  with DataSet do
    if (aSortMode = fsmDesc) or ((aSortMode = fsmAuto) and (Sort = Self.FieldName)) then
      Sort := Self.FieldName + ' DESC'
    else
      Sort := Self.FieldName; 
end;