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

Q, 

엑셀Sheet와 같은 Form을 구성하려고 TStringGrid를 불러다가 Column x Row 100 x 100으로 만들려고 하는데 안만들어 집니다.

 

 

A, 

TStringGrid를 폼에 올리고 아래와 같이 구현하시면 됩니다.

RowCount, ColCount를 Object Inspector에서 직접 설정해 주셔도 됩니다.

 

procedure TForm1.FormCreate(Sender: TObject);

var

  I, J: Integer;

begin

  StringGrid1.RowCount := 100;

  StringGrid1.ColCount := 100;

 

  for I := 0 to StringGrid1.RowCount - 1 do

    for J := 0 to StringGrid1.ColCount - 1 do

      StringGrid1.Cells[J, I] := I.ToString + ' / ' + J.ToString;

end;