-- StrToInt 대신에 아래 함수를 만들어 써보지여

-- StrToInt에서 나는 에러는 발생하진 않을겁니다.

__ StrToInt 부분을 ValInt 로 바꾸어 써보지여...

-- 그럼...

Functon ValInt(aValue: String): Integer;

var

lr_code: Integer;

Begin

val(aValue, result, lr_code);

if lr_code <> 0 Then Result := 0;

End;



급궁금 wrote:

> 제가 구현한 것은...

> DBgrid의 특정 레코드를 클릭하여 StringGrid로 값을 넘겨준후

> StringGrid의 특정셀(숫자값셀)의 값을 바꾸면 그 Column의 세로로 입력되어 있는

> 값들의 합을 for문으로 더하여 Panel.Caption 에 표시해주는 것입니다.

>

> StringGrid의 특정셀에서 OnKey 이벤트에서 key=#13 일때 합을 구하는 것 말고

> 값을 입력후에 마우스로 다른 셀을 클릭해도 한Column의 세로 합계값이 바뀌게 하려면

> OnDrawCell에서 처리하면 되더군요

>

>

> OnDrawCell안에 입력해 넣은 구문은

>

> 대략...---------------------------------------

> Col_hab := 0;

>

> If ACol=4 then

> begin

> for R := 1 to SGrid1.RowCount - 1 do

> Col_hab := Col_hab + StrToInt(StringGrid1(5,R)); <--- 이부분에서 에러

> end;

> Panel_hab.Caption := IntToStr(Col_hab);

> end;

>

> 인데... ----------------------------------------

>

> OnDrawCell안에 처리된 문이라서

> 맨처음 얘기한듯이

> DBgrid의 특정레코드를 클릭하여 StringGrid의 레코드를 늘리면서

> 값이 입력될때도 이 구문을 실행하죠...

> 그래서 Column의 합도 자동적으로 같이 변하여 잘 되는데...

>

> *그런데 문제는*

> StringGrid의 Row수가 StringGrid의 크기보다 많으면 수직 스크롤바가 생기면서

> 한레코드 추가때마다 처음레코드가 위로 스크롤 되죠.. 말하자면

>

> 처음 스크롤바가 생기는 순간 이상하게도

> 위의 문장에서 StringGrid(5,R) 값은 읽어오는데

> <위소스중 ('<--이 부분에러')부분>

>

> StrToInt 함수에서 에러가 나더군요

>

> OnDrawCell 이벤트는 넘 어렵군요...

>

> 긴 내용 읽어주신 분들께 감사드리며 아시는 분 좀 갈켜주세요...

김하늘 님 감사합니다.

아래대로 해보니 잘 해결되더군요

StringGrid가 StringGrid창보다 Row값이 커졌을때, 즉 동적인 좌표? 를 갖을때의

StrToInt함수처리가 먼가 맞지않아 그런것 같은데

좀더 부연설명을 해주시면 더 고맙겠네요...

그럼...





김하늘 wrote:

> -- StrToInt 대신에 아래 함수를 만들어 써보지여

> -- StrToInt에서 나는 에러는 발생하진 않을겁니다.

> __ StrToInt 부분을 ValInt 로 바꾸어 써보지여...

> -- 그럼...

> Functon ValInt(aValue: String): Integer;

> var

> lr_code: Integer;

> Begin

> val(aValue, result, lr_code);

> if lr_code <> 0 Then Result := 0;

> End;

StrToInt(StringGrid1(5,R)) 은 StrToInt(StringGrid1.cells[5,R]) 로 해야 할것 같고요..



에서 에러가 나는것은 StrToint(StringGrid1.cells[5.r])가 공백일때 발생한것 같습니다.

try..except..end 문을 사용하여 에러발생을 막으십시오.

for R := 1 to SGrid1.RowCount - 1 do begin

try

Col_hab := Col_hab + StrToInt(StringGrid1.cells[5,R]); <--- 이부분에서 에러

except

//여기에 에러발생부분에 대한 설명을 기록해 줘도 됩니다.

// Col_hab := Col_hab+0;

end;

end;





그리고

for R := 1 to SGrid1.RowCount - 1 do

Col_hab := Col_hab + StrToInt(StringGrid1(5,R)); <--- 이부분에서 에러



부분에서 SGrid1 이 맞나요?, 아니면 StringGrid1 이 맞나요?



프로그램을 다시 확인해 보세요,,..





급궁금 wrote:

> 제가 구현한 것은...

> DBgrid의 특정 레코드를 클릭하여 StringGrid로 값을 넘겨준후

> StringGrid의 특정셀(숫자값셀)의 값을 바꾸면 그 Column의 세로로 입력되어 있는

> 값들의 합을 for문으로 더하여 Panel.Caption 에 표시해주는 것입니다.

>

> StringGrid의 특정셀에서 OnKey 이벤트에서 key=#13 일때 합을 구하는 것 말고

> 값을 입력후에 마우스로 다른 셀을 클릭해도 한Column의 세로 합계값이 바뀌게 하려면

> OnDrawCell에서 처리하면 되더군요

>

>

> OnDrawCell안에 입력해 넣은 구문은

>

> 대략...---------------------------------------

> Col_hab := 0;

>

> If ACol=4 then

> begin

> for R := 1 to SGrid1.RowCount - 1 do

> Col_hab := Col_hab + StrToInt(StringGrid1(5,R)); <--- 이부분에서 에러

> end;

> Panel_hab.Caption := IntToStr(Col_hab);

> end;

>

> 인데... ----------------------------------------

>

> OnDrawCell안에 처리된 문이라서

> 맨처음 얘기한듯이

> DBgrid의 특정레코드를 클릭하여 StringGrid의 레코드를 늘리면서

> 값이 입력될때도 이 구문을 실행하죠...

> 그래서 Column의 합도 자동적으로 같이 변하여 잘 되는데...

>

> *그런데 문제는*

> StringGrid의 Row수가 StringGrid의 크기보다 많으면 수직 스크롤바가 생기면서

> 한레코드 추가때마다 처음레코드가 위로 스크롤 되죠.. 말하자면

>

> 처음 스크롤바가 생기는 순간 이상하게도

> 위의 문장에서 StringGrid(5,R) 값은 읽어오는데

> <위소스중 ('<--이 부분에러')부분>

>

> StrToInt 함수에서 에러가 나더군요

>

> OnDrawCell 이벤트는 넘 어렵군요...

>

> 긴 내용 읽어주신 분들께 감사드리며 아시는 분 좀 갈켜주세요...

김상호 님 요번에도 답변을 주셔서 감사하군요...

그런데 제가 질문에서 올린 소스는 질문내용 타이핑하면서

잘못쓴것이구요...(Cells 빠뜨리고,StringGrid1를 SG1으로 표기한것)



그리고 김상호님이 제안하신 에러처리방법은

제가 질문한 의도하고는 상관이 없네요..



왜냐하면 dbgrid의 한레코드를 클릭하여 StringGrid로 값을 한레코드씩 전달할때

StringGrid의 크기보다 Row의 크기가 작을때는 잘되거든요...

값전달은 항상 잘되고요...

그리고 except문으로 다른 처리문을 코딩하여 에러를 처리하는 방식이 필요한 것이 아니고 StringGrid의 Row의 크기가 StringGrid의 창크기보다 높아져 스크롤이 될때

전달해준 값들을 StrToInt함수를 써서 숫자로 변환하여 계산하려 할때의 문제이기 때문이죠



추측컨데 StringGrid Cell의 동적인 좌표?를 갖을때 StrToInt함수처리와의 문제같거든요...



위 김하늘 님의 답변으로 해결이