조덕진 wrote:

> 안녕하세요. 조덕진입니다.

>

> StringGrid를 사용하여, Data를 입력받으려 합니다. StringGrid의 RowCount를

> 동적으로 늘려주는 방법을 알고 싶습니다.

>

> 델파이 고수님들의 조언 기다리겠습니다.

>

> 미끄러운 길 조심하시기 바랍니다.

>

> 그럼..

^^; 질문의 요지는 스트링그리드에 한줄 한줄 차례대로 추가한다는 애기 인가요..?

만약 그렇다면.. 제가 허접으로 짠것이 있는데..

참고가 되었으면 합니다.

var

exls : string;

begin

if dm1.openxls.execute then

exls := dm1.openxls.filename;

case stringgrid1.col of

0: if stringgrid1.cells[0, stringgrid1.row]=''then

begin

stringgrid1.cells[0, stringgrid1.Row] := exls;

end else

begin

stringgrid1.Row := stringgrid1.row+1;

stringgrid1.cells[0, stringgrid1.Row] := exls;

end;

end;

end;

대충 이렇게 짰는데.. 답변이 될지 모르겠군여..

제가 좀 허접이라.. --;

구럼 즐푸

모름이 wrote:

> ^^; 질문의 요지는 스트링그리드에 한줄 한줄 차례대로 추가한다는 애기 인가요..?

> 만약 그렇다면.. 제가 허접으로 짠것이 있는데..

> 참고가 되었으면 합니다.

> var

> exls : string;

> begin

> if dm1.openxls.execute then

> exls := dm1.openxls.filename;

> case stringgrid1.col of

> 0: if stringgrid1.cells[0, stringgrid1.row]=''then

> begin

> stringgrid1.cells[0, stringgrid1.Row] := exls;

> end else

> begin

> stringgrid1.Row := stringgrid1.row+1;

> stringgrid1.cells[0, stringgrid1.Row] := exls;

> end;

> end;

> end;

> 대충 이렇게 짰는데.. 답변이 될지 모르겠군여..

> 제가 좀 허접이라.. --;

> 구럼 즐푸



님의 답변에 감사드립니다. 다른 분들이 보긴엔 쉬울지 몰라도 저같은 쌩초보에겐

쉬운것도 쉬운게 아니더군요.



감사합니다. 그럼...