var CC,RR : Integer;



For RR := 0 to StringGRid1.RowCount - 1 do

For CC := 0 to StringGRid1.ColCount - 2 do

Params[CC].AsFloat := StrToFloat(StringGrid.Cells[CC+1,1]);





도움되시길 ^^







궁금이 wrote:

> 안녕하세요??

>

> 아무리 생각해도 잘 모르겠어서 질문을 합니다.

>

> StringGrid의 Column과 Row의 값을 테이블에 insert해야 하는데,

>

> ===============================

> For i:=0 to TStringGrid.ColCount -2 do begin // 컬럼 갯수 만큼

> Params[i].AsFloat := StrToFloat(TStringGrid.Cells[i+1,1]);

>

> --> 이것은 소스 내용처럼 첫번째줄 한 레코드만 써집니다.

> 또한 필드명이 모두 달라, FieldByName이나 ParamByName을 사용하지 않았습니다.

> ===============================

> TStringGrid의 컬럼 뿐만 아니라, 행값도 테이블에 넣어야 하는데, For문을 어떻게 사용해야 할지모르겠습니다.

>

> 혹 다른 방법이 있으면 아시는분 도움을 부탁합니다.

전 파라독스 테이블에 TQuery를 사용했습니다.



Lee님이 쓰신 것처럼 코딩한다면 'RR'이란 변수는 루프안에서 전혀 인식되지 못합니다.



Params[CC].AsFloat := StrToFloat(StringGrid.Cells[CC+1,RR]);

--> 이렇게 바꾸면 루프를 돌아서 StringGrid의 가장 마지막 행의 값들만 나오게 됩니다.



더 도움을 주실분 안계시나요..??



Lee wrote:

> var CC,RR : Integer;

>

> For RR := 0 to StringGRid1.RowCount - 1 do

> For CC := 0 to StringGRid1.ColCount - 2 do

> Params[CC].AsFloat := StrToFloat(StringGrid.Cells[CC+1,1]);

>

>

> 도움되시길 ^^

>

>

>