[Кодер]

Уважаемые,
Две проблемы:

1)Как выполнить сортировку в TvalueListEditor, когда в значении Кеу только дата
2)Как удалить строку в TvalueListEditor которую выделил пользователь

[AlexSku]

Удаление так:

Код:

ValueListEditor1.DeleteRow(ValueListEditor1.Selection.Top);

[Кодер]

спасибо

мне еще и сортировочку)бы

[AlexSku]

Код:

function dcomp(List: TStringList; Index1, Index2: Integer): Integer;
begin
  Result:= CompareDate(
    StrToDate(Copy(List[Index1], 1, Pos('=', List[Index1])-1)),
    StrToDate(Copy(List[Index2], 1, Pos('=', List[Index2])-1)));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  SLSort: TStringList;
begin
  SLSort:= TStringList.Create;
  SLSort.Assign(ValueListEditor1.Strings);
  SLSort.CustomSort(@dcomp);
  ValueListEditor1.Strings.Assign(SLSort);
  SLSort.Free;
end;