자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 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 15766
공지
유용한 관련 사이트
관리자2 2014.03.20 54580
공지
본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다.
관리자 2012.01.10 97985
2
XE10 Rest컴포넌트를 이용한 멀티디바이스 앱에서 TFDMemTable관련 에러
[2] 김태윤 2016.03.21 417
1
[도서][한 번에 개발하는 안드로이드/iOS with 델파이 1편] 7장.1.카메라로 사진찍기 - Invalid class typecast. 오류 발생 시 조치방법
험프리 2015.11.26 1165
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 | 15766 |
공지 | 유용한 관련 사이트 | 관리자2 | 2014.03.20 | 54580 |
공지 | 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. | 관리자 | 2012.01.10 | 97985 |
2 | XE10 Rest컴포넌트를 이용한 멀티디바이스 앱에서 TFDMemTable관련 에러 [2] | 김태윤 | 2016.03.21 | 417 |
1 | [도서][한 번에 개발하는 안드로이드/iOS with 델파이 1편] 7장.1.카메라로 사진찍기 - Invalid class typecast. 오류 발생 시 조치방법 | 험프리 | 2015.11.26 | 1165 |
감사합니다만, ColCount에 에러가 뜨네요..
'TStringGrid' does not contain a member named 'ColCount'.
시스템 : Windows Server 2012 R2
버젼 : RADStudio 10.1 Berlin