자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 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
-
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
감사합니다...
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
-
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
감사합니다...
감사합니다만, ColCount에 에러가 뜨네요..
'TStringGrid' does not contain a member named 'ColCount'.
시스템 : Windows Server 2012 R2
버젼 : RADStudio 10.1 Berlin