-
Dy1 (26.03.10 22:35) [0]type t=record
nam: string[30];
c: double;
k: integer;
end;
var
sp: PList;
rec: ^t;
запись t хранится в списке sp и выводится в виртуальном listview.
Вопрос - как отсортировать данные в списке по любому полю (колонке LV). Если SortData, то тот же вопрос - как?
Извиняюсь, если вопрос глупый. -
Примеры на SortData есть в KOL.pas, используйте поиск текста SortData.
-
Dy1 (27.03.10 07:29) [2]TCompareEvent = function (const Data: Pointer; const e1,e2: Dword): Integer;
как можно сравнить строки?
function qwe(l{plist}, ??{const e1,e2: Dword}): Integer; -
Чем не устраивает пример из KOL.pas?function CompareStrListItems_Case( const Sender : Pointer; const e1, e2 : DWORD ) : Integer;
var S1, S2 : PAnsiChar;
begin
S1 := PStrList( Sender ).fList.Items[ e1 ];
S2 := PStrList( Sender ).fList.Items[ e2 ];
Result := StrComp( S1, S2 );
end;