자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 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 15888
공지
유용한 관련 사이트
관리자2 2014.03.20 54686
공지
본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다.
관리자 2012.01.10 98141
3
[개발생산성향상 세미나] 리눅스 지원은 언제쯤 하나요?
험프리 2017.02.22 83
2
[개발생산성향상 세미나] 빌더 2010이후 툴의 향상된 기능에 대한 알고 싶습니다.
험프리 2017.02.22 145
1
[개발생산성향상 세미나] Quick Edit에서 복사하기 붙여넣기 단축키가 먹지 않습니다.
험프리 2017.02.22 581
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 | 15888 |
공지 | 유용한 관련 사이트 | 관리자2 | 2014.03.20 | 54686 |
공지 | 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. | 관리자 | 2012.01.10 | 98141 |
3 | [개발생산성향상 세미나] 리눅스 지원은 언제쯤 하나요? | 험프리 | 2017.02.22 | 83 |
2 | [개발생산성향상 세미나] 빌더 2010이후 툴의 향상된 기능에 대한 알고 싶습니다. | 험프리 | 2017.02.22 | 145 |
1 | [개발생산성향상 세미나] Quick Edit에서 복사하기 붙여넣기 단축키가 먹지 않습니다. | 험프리 | 2017.02.22 | 581 |
감사합니다만, ColCount에 에러가 뜨네요..
'TStringGrid' does not contain a member named 'ColCount'.
시스템 : Windows Server 2012 R2
버젼 : RADStudio 10.1 Berlin