|
#1
|
|||
|
|||
TvalueListEditor
Уважаемые,
Две проблемы: 1)Как выполнить сортировку в TvalueListEditor, когда в значении Кеу только дата 2)Как удалить строку в TvalueListEditor которую выделил пользователь |
#2
|
|||
|
|||
Удаление так:
Код:
ValueListEditor1.DeleteRow(ValueListEditor1.Selection.Top); |
#3
|
|||
|
|||
спасибо
мне еще и сортировочку)бы |
#4
|
|||
|
|||
Код:
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; Последний раз редактировалось AlexSku, 19.03.2008 в 12:39. |