자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

Q, 

스트링그리드를 정렬하고 싶습니다.


A.

다음 소스코드를 참고하시기 바랍니다.

GridSortSource.zip 

스트링그리드 컬럼을 선택하면 해당 컬럼으로 정렬됩니다.


{ ************** SortGrid ************* }

procedure TForm1.SortGrid(Grid: TStringGrid; SortCol: Integer);

{ A simple exchange sort of grid rows }

var

  I, J: Integer;

  temp: TStringList;

begin

  temp := TStringList.create;

  with Grid do

    for I := FixedRows to RowCount - 2 do { because last row has no next row }

      for J := I + 1 to RowCount - 1 do { from next row to end }

        if AnsiCompareText(Cells[SortCol, I], Cells[SortCol, J]) > 0 then

        begin

          temp.assign(Rows[J]);

          Rows[J].assign(Rows[I]);

          Rows[I].assign(temp);

        end;

  temp.free;

end;


procedure TForm1.FormCreate(Sender: TObject);

var

  I, J: Integer;

  totwidth: Integer;

begin

  with StringGrid1 do

  begin

    { assign some random numbers }

    for J := 1 to RowCount - 1 do

      for I := 1 to colcount - 1 do

        Cells[I, J] := Format('%3d', [Random(1000)]);


    { Add row labels }

    for I := 1 to RowCount - 1 do

      Cells[0, I] := 'Row ' + Format('%2d', [I]);


    { Add column labels and change column widths }

    totwidth := 0;

    for I := 0 to colcount - 1 do

    begin

      Cells[I, 0] := 'Column ' + IntToStr(I + 1);

      { vary column widths for testing }

      Colwidths[I] := DefaultColWidth + Random(48);

      Inc(totwidth, Colwidths[I]);

    end;

    { adjust grid width so that all column are visible }

    Width := totwidth + (colcount + 3) * GridLineWidth;

  end;

end;


{ ************ StringgridMouseUp ************** }

procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

var

  c, J: Integer;

  rect: TRect;

begin

  with StringGrid1 do

    if Y < RowHeights[0] then { make sure row 0 was clicked }

    begin

      for J := 0 to colcount - 1 do { determine which column was clicked }

      begin

        rect := CellRect(J, 0);

        if (rect.Left < X) and (rect.Right > X) then

        begin

          c := J;

          break;

        end;

      end;

      SortGrid(StringGrid1, c);

    end;

end;

=============

string grid sort.txt 

string grid sort2.txt

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15767
공지 유용한 관련 사이트 관리자2 2014.03.20 54580
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97985
1039 30392, iOS9 example WebBrowser 오류문의 [2] file 사랑남 2015.10.29 148
1038 아래에 시애틀 설치 후 문제로 올렸던거 그 이후 상황 입니다. 나도몰라 2015.10.29 231
1037 [XE8] 안드로이드 default키보드 IME 모드 [2] 가을이다 2015.10.29 673
1036 데이터스냅 서버 함수의 파라미터 타입 제약이 있나요? [2] devdevil0625 2015.10.28 252
1035 ios9 버전에서 webview 를 통한 앱개발을 진행할 때 앱 Crash 가 발생합니다 [1] david 2015.10.29 188
1034 TFDMemTable ios 에서 한글문제 있나요? [3] kerry 2015.10.28 143
1033 평가판 사용중 문제발생으로 문의 드렸던 내용입니다. [3] file 나도몰라 2015.10.28 232
1032 ClientDataSet open ios에서 midas Libary 추가했는데도 같은 메세시지 가 뜸니다. [1] kerry 2015.10.28 182
1031 try catch가 작동하지 않는 현상 [1] 고고고 2015.10.27 435
1030 ClientDataSet open 안드로이드는 문제없이 돌아가는데 ios에서 아래 메세지가 뜹니다. [1] kerry 2015.10.27 125
1029 ClientDataSet open 맥 simumlator error 이미지입니다. [1] file kerry 2015.10.27 195
» [공유] 스트링그리드(TStringGrid)를 정렬하고 싶어요. file 험프리 2015.10.27 2060
1027 param까지 맵핑된 SQL문을 출력할수 있나요? [1] 고고고 2015.10.27 439
1026 [공유] LG G 패드 8.3(안드로이드 4.2.2)에서 델파이로 만든 앱을 테스트할 수 있는 방법이 있을까요? 험프리 2015.10.26 905
1025 ios 개발시 please specify exact device preset uuid [1] kerry 2015.10.25 384
1024 콤보박스를 바인딩에서 연결하는 방법을 알려주세요. [2] file 거북이 2015.10.23 489
1023 컴포넌트 사용 관련 [1] 똘귀아빠 2015.10.23 99
1022 [마이그레이션][델파이6>델파이XE8] 프로젝트를 오픈하면 메세지가 뜨는 원인 [1] file 똘귀아빠 2015.10.23 276
1021 [마이그레이션][델파이6>델파이XE8] 델파이 6으로 개발 된 프로그램을 XE8로 컨버젼 한 후 실행 오류 [1] file 똘귀아빠 2015.10.23 321
1020 날짜 포멧을 설정하고 들어가니 에러가 발생합니다. [3] 거북이 2015.10.21 404