자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi [공유] 스트링그리드(TStringGrid)를 정렬하고 싶어요.
2015.10.27 13:56
Q,
스트링그리드를 정렬하고 싶습니다.
A.
다음 소스코드를 참고하시기 바랍니다.
스트링그리드 컬럼을 선택하면 해당 컬럼으로 정렬됩니다.
{ ************** 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;
=============
댓글 0
Delphi [공유] 스트링그리드(TStringGrid)를 정렬하고 싶어요.
2015.10.27 13:56
Q,
스트링그리드를 정렬하고 싶습니다.
A.
다음 소스코드를 참고하시기 바랍니다.
스트링그리드 컬럼을 선택하면 해당 컬럼으로 정렬됩니다.
{ ************** 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;
=============
