자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
TStringGrid를 불러다가 Column x Row를 100 x 100으로 만들려고 하는데 안만들어 집니다.
2019.05.24 15:18
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;
댓글 3
-
거북선생
2019.05.24 15:50
-
험프리
2019.05.27 10:25
ColCount가 오류나는 것으로 보아, Multi-Device Application 즉, 파이어몽키 프로젝트인 것으로 보입니다.
파이어몽키의 TStringGrid는 VCL의 TStringGrid와 사용법이 다소 다릅니다. 다음 코드를 참고해 작성해보시기 바랍니다.
(기타 다른 기능 구현은 속성 및 메소드를 살펴보시고 구현해보시기 바랍니다.)
procedure TForm1.FormCreate(Sender: TObject);
var
I, J: Integer;
Column: TColumn;
begin
StringGrid1.RowCount := 100;
for I := 0 to 100-1 do
begin
Column := TStringColumn.Create(Self);
Column.Parent := StringGrid1;
end;
// StringGrid1.ColumnCount := 100;
for I := 0 to StringGrid1.RowCount - 1 do
for J := 0 to StringGrid1.ColumnCount - 1 do
StringGrid1.Cells[J, I] := I.ToString + ' / ' + J.ToString;
end;
-
거북선생
2019.05.27 12:04
감사합니다...
번호 제목 글쓴이 날짜 조회 수
공지
[프로그래밍 강의] 2021.6~2021.12
관리자 2015.01.22 15634
공지
유용한 관련 사이트
관리자2 2014.03.20 54464
공지
본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다.
관리자 2012.01.10 97828
1
링크드리스트 구현 질문입니다.
델리아끼 2015.11.04 344
TStringGrid를 불러다가 Column x Row를 100 x 100으로 만들려고 하는데 안만들어 집니다.
2019.05.24 15:18
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;
댓글 3
-
거북선생
2019.05.24 15:50
-
험프리
2019.05.27 10:25
ColCount가 오류나는 것으로 보아, Multi-Device Application 즉, 파이어몽키 프로젝트인 것으로 보입니다.
파이어몽키의 TStringGrid는 VCL의 TStringGrid와 사용법이 다소 다릅니다. 다음 코드를 참고해 작성해보시기 바랍니다.
(기타 다른 기능 구현은 속성 및 메소드를 살펴보시고 구현해보시기 바랍니다.)
procedure TForm1.FormCreate(Sender: TObject);
var
I, J: Integer;
Column: TColumn;
begin
StringGrid1.RowCount := 100;
for I := 0 to 100-1 do
begin
Column := TStringColumn.Create(Self);
Column.Parent := StringGrid1;
end;
// StringGrid1.ColumnCount := 100;
for I := 0 to StringGrid1.RowCount - 1 do
for J := 0 to StringGrid1.ColumnCount - 1 do
StringGrid1.Cells[J, I] := I.ToString + ' / ' + J.ToString;
end;
-
거북선생
2019.05.27 12:04
감사합니다...
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
공지 | [프로그래밍 강의] 2021.6~2021.12 | 관리자 | 2015.01.22 | 15634 |
공지 | 유용한 관련 사이트 | 관리자2 | 2014.03.20 | 54464 |
공지 | 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. | 관리자 | 2012.01.10 | 97828 |
1 | 링크드리스트 구현 질문입니다. | 델리아끼 | 2015.11.04 | 344 |
감사합니다만, ColCount에 에러가 뜨네요..
'TStringGrid' does not contain a member named 'ColCount'.
시스템 : Windows Server 2012 R2
버젼 : RADStudio 10.1 Berlin