c2design 6월 10일, 2022에 포스트됨 공유하기 6월 10일, 2022에 포스트됨 TMS 의 TAdvStringGrid 에서 LoadFromCSV 메소드를 사용하면 csv 파일을 불러 올 수 있습니다. Grid 의 Column 과 Row 는 csv 데이터 항목 수에 맞게 자동으로 세팅 됩니다. 컬럼 헤드 클릭시 Sorting 명령을 수행 하기 위해서 아래와 같이 설정 힙니다. AdvStringGrid1.SortSettings.Show := TRUE; Sorting 관련해서 다양한 옵션들이 제공 됩니다. 상세 기능은 세부 메뉴얼을 참고 하시기 바랍니다. Grid Column 의 헤드 타이틀 항목을 클릭하여 soting 하기 위해서는 다음의 3가지 이벤트 메소드가 활용 됩니다. dosort 항목을 TRUE 로 지정하면 Sorting이 가능해지며 아래 코드는 0 번 Column 은 클릭 Disable 됨을 의미 합니다. dosort := acol > 0; procedure TMvForm.Button1Click(Sender: TObject); begin AdvStringGrid1.LoadFromCSV( 'c:\temp\cdata.csv' ); AdvStringGrid1.SortSettings.Show := TRUE; AdvStringGrid1.ColWidths[ 2 ] := 100; end; procedure TMvForm.AdvStringGrid1CanSort(Sender: TObject; ACol: Integer; var DoSort: Boolean); begin dosort := acol > 0; Cursor := crHourGlass; end; procedure TMvForm.AdvStringGrid1ClickSort(Sender: TObject; ACol: Integer); begin Cursor := crDefault; end; procedure TMvForm.AdvStringGrid1GetFormat(Sender: TObject; ACol: Integer; var AStyle: TSortStyle; var aPrefix, aSuffix: string); begin case acol of 1: AStyle := ssAlphabetic; // ssAlphanocase; 2: AStyle := ssNumeric; 3: AStyle := ssNumeric; 4: AStyle := ssDate; end; end; 프로젝트 샘플 소스 다운로드 TMS_GridSort.ZIP TMS Software 에서 제공되는 Sorting 관련 추가적인 데모는 아래 링크를 참조 하시기 바랍니다. https://www.tmssoftware.com/site/asg6.asp 인용하기 이 댓글 링크 다른 사이트에 공유하기 더 많은 공유 선택 사항
Recommended Posts
이 토의에 참여하세요
지금 바로 의견을 남길 수 있습니다. 그리고 나서 가입해도 됩니다. 이미 회원이라면, 지금 로그인하고 본인 계정으로 의견을 남기세요.