프로그래밍 노트

문자열 배열의 정렬 소스 var arSort: array[1..12] of string = ('d','e','f','a','b','c','h','a','i','j','k','l'); procedure TForm1.Button1Click(Sender: TObject); var sLst: string; iIdx: Integer; bSortingEnd: Boolean; bChange: boolean; i : integer; begin Listbox1.Clear; repeat bSortingEnd := False; iIdx := 1; repeat bChange := false; if checkbox1.Checked then begin // 내림차순(c, b, a ...) if CompareStr(arSort[i..

[델파이]StringGrid에서 오른쪽 정렬과 가운데 정렬하기 예제 오른쪽 정렬하고자하는 StringGrid의 DrawCell 이벤트에 밑의 소스를 카피해서 정렬을 하고자 하는 열이나 행을 설정한다. StringGrid는 기본적으로 왼쪽 정렬 procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var hdcTemp : HDC; crdOrgAlign : Cardinal; begin with Sender as TStringGrid do begin hdcTemp := Canvas.Handle; if ARow = 0 then Canvas.Font.Style := C..