박용근 wrote:

> 안녕하세요.

> 스트링그리드에서 정렬을 할려고 하는데 잘 되지 않아요.

> 정렬하는 메소드가 있나요 아니면 직접 코딩을 해야 하나ㅏ요?

> 도와주세요.

>



만약 Sort가 아니구 Alignment라면요...

TStringGrid의 OnDrawCell Event를 이용해서 해결하면 됩니다.



procedure TForm1.StringGrid1DrawCell(.........생략......);

var

iLength : integer;

sTemp : string

begin

with StringGrid1.Canvas do begin

sTemp := StrignGrid1.Cells[Acol, ARow];



if Acol = 0 then // 가운데 정열

iLength := (Rect.Right - Rect.Left - TextWidth(sTemp) div

2 + Rect.Left



else if Acol = 1 // 왼쪽정열 (기본값이 왼쪽)

iLength := Rect.Left + 2



else // 오른쪽 정열

iLength := Rect.Right - TextWidth(sTemp) - 4;

FillRect(Rect);

TextRect(Rect, iLength, Rect.Top+4, sTemp);

end;//with

end;

정확히 어떤 내용인지 모르겠지만, 혹시 도움이 될까 해서 적습니다.

db에 있는 데이터라면 SQL의 Order By를 이용하면 되겠지만, 그런건 아닌것 같구요.스트링그리드에 뿌려줄 데이터가 배열형태로 되어 있으면 sorting algorithm을 이용하면 되지않을까 생각합니다.

삽입정렬, Quick Sort, Binary Sort, Bubble Sort등 여러가지가 있는데,

제가 만든 프로그램에서 사용한 삽입정렬 소스를 올려드리겠습니다.



procedure TfrmAdjust.Isort(var DayOfinv : array of DayOfInvRec ; n : integer);

var

i, j : integer;

Temp : real;

TempName : String;

begin

for j := 1 to (n-1) do begin

Temp := DayOfInv[j].value;

TempName := DayOfInv[j].Name;

i := j - 1;

while (i >= 1) and (DayOfInv[i].value > temp) do begin

DayOfInv[i+1].value := DayOfInv[i].value;

DayOfInv[i+1].Name := DayOfInv[i].Name;

i := i - 1;

end; // while

DayOfInv[i+1].value := Temp;

DayOfInv[i+1].Name := TempName;

end; // for

end; //procedure...



여기서 DayofInv는 레코드배열 형태로 선언된 변수이고, DayOfInv.value에 의해서

정렬하도록 되어있습니다.

이런식으로 정렬을 한다음에 StringGrid에 뿌려주면 될것같은데.....

도움이 되셨으면 좋겠네요....