김희영 wrote:

> 안녕하세요!

> 델피언을 꿈꾸는 학생입니다...

>

> 질문의 내용은 다름이 아니오라 리스트뷰와 트리뷰의 입력된 내용을 어떻게

> 정렬하는지...(합합합 넘 쉽나...? ^^;)

> 에 그러니깐 탐색기에서 처럼 트리뷰의 임으로 입력된 내용을 가나다.. 순으로 정렬하는 방법과 리스트뷰에서 임으로 입력된 내용을 가나다순으로 하는방법과 컬럼 버튼을 누르면 그 컬럼의 내용의 순대로 정렬하는방법은 없나요..

>

> 추신.'SortType'프로퍼티를 쓰면 될껏 같은데 사용법을 잘모르겠서엽...



안녕하세요 김영대입니다

TTreeView의 AlphaSort 메소스를 이용해보세요

김희영 wrote:

> 안녕하세요!

> 델피언을 꿈꾸는 학생입니다...

>

> 질문의 내용은 다름이 아니오라 리스트뷰와 트리뷰의 입력된 내용을 어떻게

> 정렬하는지...(합합합 넘 쉽나...? ^^;)

> 에 그러니깐 탐색기에서 처럼 트리뷰의 임으로 입력된 내용을 가나다.. 순으로 정렬하는 방법과 리스트뷰에서 임으로 입력된 내용을 가나다순으로 하는방법과 컬럼 버튼을 누르면 그 컬럼의 내용의 순대로 정렬하는방법은 없나요..

>

> 추신.'SortType'프로퍼티를 쓰면 될껏 같은데 사용법을 잘모르겠서엽...



안녕하세요 김영대입니다

아래 예제는 ListView 의 컬럼별로 Sort (내림차순 포함) 하는 소스입니다

예제에서는 칼럼이 3개로 설정되어 있습니다



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls;



type

TForm1 = class(TForm)

ListView1: TListView;

procedure ListView1ColumnClick(Sender: TObject; Column: TListColumn);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;

// ListView의 Reverse sort를 결정하는 boolean 배열

ReverseOrder: array[0..2] of boolean; // 컬럼이 3개일경우(0..2)



implementation

{$R *.DFM}



// ListView 를 컬럼별로 sort하는 standalone 함수입니다

function ListViewSortProc(Item1, Item2: TListItem; ColumnNo: Integer): Integer; stdcall;

var

S1, S2: string;

i: integer;

begin

if ColumnNo = 0 then

begin

S1 := Item1.Caption;

S2 := Item2.Caption;

end

else

begin

S1 := Item1.SubItems[ColumnNo - 1];

S2 := Item2.SubItems[ColumnNo - 1];

end;



i := CompareText(S1, S2); // C의 strcmp() 함수와 동일한 기능



if Unit1.ReverseOrder[ColumnNo] then // Reverse이면 역순으로 sort

i := - i;

Result := i;

end;



procedure TForm1.FormCreate(Sender: TObject);

var

i: Integer;

begin

{ListView 의 Reverse sort 여부 지정}

for i := Low(ReverseOrder) to High(ReverseOrder) do

ReverseOrder[i] := False; // False: 오름차순, True: 내림차순

end;



procedure TForm1.ListView1ColumnClick(Sender: TObject;

Column: TListColumn);

begin

ListView1.CustomSort(@ListViewSortProc, Column.index);

// Reverse sort는 컴럼을 한번 클릭했을때는 오름차순이지만

// 또 한번 누르면 내림차순으로 sort 됩니다

// 오름, 내림차순은 아래의 ReverseOrder 에서 결정됩니다

ReverseOrder[Column.Index] := not ReverseOrder[Column.Index];

end;



end.

김희영 wrote:

> 안녕하세요!

> 델피언을 꿈꾸는 학생입니다...

>

> 질문의 내용은 다름이 아니오라 리스트뷰와 트리뷰의 입력된 내용을 어떻게

> 정렬하는지...(합합합 넘 쉽나...? ^^;)

> 에 그러니깐 탐색기에서 처럼 트리뷰의 임으로 입력된 내용을 가나다.. 순으로 정렬하는 방법과 리스트뷰에서 임으로 입력된 내용을 가나다순으로 하는방법과 컬럼 버튼을 누르면 그 컬럼의 내용의 순대로 정렬하는방법은 없나요..

>

> 추신.'SortType'프로퍼티를 쓰면 될껏 같은데 사용법을 잘모르겠서엽...



안녕하세요.



아래문서를 참고하시죠.



OnCompare occurs to when two items need to be compared during a sort of the list.



type TLVCompareEvent = procedure(Sender: TObject; Item1, Item2: TListItem

; Data: Integer; var Compare: Integer) of object;

property OnCompare: TLVCompareEvent;



Description



Write an OnCompare event handler to implement a sort order for the list. An OnCompare event handler is called when the SortType property is stData or stBoth, when the AlphaSort method is called, or when the CustomSort method is called without a SortProc parameter.

The OnCompare event handler compares the list items passed as the Item1 and Item2 parameters. If Item1 is the same as Item2 in the sort order, set the Compare parameter to 0. If Item1 is less than Item2, set the Compare parameter to a value less than 0. If Item1 is greater than Item2, set the Compare parameter to a value greater than 0. The Data parameter is 0 when the event handler is called to maintain the sort order of a list view with a SortType of stData or stBoth. Similarly, when OnCompare occurs in response to the AlphaSort method, the Data parameter is 0. When OnCompare occurs in response to the CustomSort method, the Data parameter is the value of the LParam parameter of CustomSort.



//========================================================================



The following code orders a list view in reverse alphabetical order on the click of a button. The callback function CustomSortProc calls the Windows API function lstrcmp and negates its return value.



function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;

begin

Result := -lstrcmp(PChar(TListItem(Item1).Caption),

PChar(TListItem(Item2).Caption));

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ListView1.CustomSort(@CustomSortProc, 0);

end;