Q&A
- Value assign to icn(intCount)never used 라는 에러
if Ord (PDU[i]) = $02 then begin
if intCount < 4 then begin
lenPDU := Ord (PDU[i + 1]);
for j := (i + 2) to (i + 2 + lenPDU - 1) do begin
tmpCommand := tmpCommand + PDU[j];
end;
// Version
if intCount = 0 then begin
if Ord (tmpCommand[1]) = $00 then
list2.Items.Add ('Version: Ver1')
else
list2.Items.Add ('Version: Ver2');
intCount := intCount + 1;
end
// Generic trap
else if intCount = 1 then begin
list2.Items.Add ('Generic Trap: ' + IntToStr (Ord (tmpCommand[1])));
intCount := intCount + 1;
end
// Specific Trap
else if intCount = 2 then begin
list2.Items.Add ('Specific Trap: ' + IntToStr (Ord (tmpCommand[1])));
intCount := intCount + 1;
end;
end;
end
소스는 위와 같습니다. 그런데 제목에서와 같은 에러 메시지가 inc(intCount)에서 일어나길래 inc(intCount)를 intCount := intCount + 1 로 했습니다.
그래도 똑같은 메시지가 나기 때문에 제 생각에는 컴파일러가 intCount := intCount + 1이라는 문장을 읽지 않고 지나간다고 생각합니다.
왜 그럴까요?
혹시나 아시는 분의 답을 기다립니다.
if intCount < 4 then begin
lenPDU := Ord (PDU[i + 1]);
for j := (i + 2) to (i + 2 + lenPDU - 1) do begin
tmpCommand := tmpCommand + PDU[j];
end;
// Version
if intCount = 0 then begin
if Ord (tmpCommand[1]) = $00 then
list2.Items.Add ('Version: Ver1')
else
list2.Items.Add ('Version: Ver2');
intCount := intCount + 1;
end
// Generic trap
else if intCount = 1 then begin
list2.Items.Add ('Generic Trap: ' + IntToStr (Ord (tmpCommand[1])));
intCount := intCount + 1;
end
// Specific Trap
else if intCount = 2 then begin
list2.Items.Add ('Specific Trap: ' + IntToStr (Ord (tmpCommand[1])));
intCount := intCount + 1;
end;
end;
end
소스는 위와 같습니다. 그런데 제목에서와 같은 에러 메시지가 inc(intCount)에서 일어나길래 inc(intCount)를 intCount := intCount + 1 로 했습니다.
그래도 똑같은 메시지가 나기 때문에 제 생각에는 컴파일러가 intCount := intCount + 1이라는 문장을 읽지 않고 지나간다고 생각합니다.
왜 그럴까요?
혹시나 아시는 분의 답을 기다립니다.
3
COMMENTS
-
-
최 소 영 wrote:
> if Ord (PDU[i]) = $02 then begin
> if intCount < 4 then begin
> lenPDU := Ord (PDU[i + 1]);
>
> for j := (i + 2) to (i + 2 + lenPDU - 1) do begin
> tmpCommand := tmpCommand + PDU[j];
> end;
>
> // Version
> if intCount = 0 then begin
> if Ord (tmpCommand[1]) = $00 then
> list2.Items.Add ('Version: Ver1')
> else
> list2.Items.Add ('Version: Ver2');
> intCount := intCount + 1;
> end
>
> // Generic trap
> else if intCount = 1 then begin
> list2.Items.Add ('Generic Trap: ' + IntToStr (Ord (tmpCommand[1])));
> intCount := intCount + 1;
> end
> // Specific Trap
> else if intCount = 2 then begin
> list2.Items.Add ('Specific Trap: ' + IntToStr (Ord (tmpCommand[1])));
> intCount := intCount + 1;
> end;
> end;
> end
>
> 소스는 위와 같습니다. 그런데 제목에서와 같은 에러 메시지가 inc(intCount)에서 일어나길래 inc(intCount)를 intCount := intCount + 1 로 했습니다.
> 그래도 똑같은 메시지가 나기 때문에 제 생각에는 컴파일러가 intCount := intCount + 1이라는 문장을 읽지 않고 지나간다고 생각합니다.
> 왜 그럴까요?
> 혹시나 아시는 분의 답을 기다립니다.
>
>
변수에 값을 넣어 놓고 한번도 사용하지 않은 경우 발생합니다. 이런 경우 그 라인을
지우더라도 아주 똑같은 결과를 얻을 수 있습니다. 사용자가 지우지 않으면 델파이가
컴파일하는 과정에서 자동으로 제거(optimization이 참으로 설정 -
이재식 Wrote :
안녕하세요?
제 생각에는 소스의 문법 자체에는 이상이 없습니다만,
왠지 의심쩍인 코딩들이 좀 보입니다.
제 생각에는 컴파일러가 좋아서 그런것 같습니다.
C언어에서도보면 코딩상에는 문제가 없지만,
종종 도달할 수 없는 코딩라인이라고해서 에러메시지가 나옵니다.
제가 생각할때는 intcount에서 if intcount < 4...
에서 또 if intcout = 1... if intcoutn = 2.... 이렇게
되어 있는데요,
case문으로 바꾸어 보시면 어떨까요?
분명히 intcount는 integer타입이겠죠?
그리고, int(intCount)나 intCount := intCount + 1 ;이런거
만나기전에 반드시 초기화가 되어있어야 하고요.
흠~~, 위의 소스는 한대목이라 제가 돌려볼수 없군요.
위의 소스의 전체 대목을 제가 본다면 디버깅해서 어디가 문제인지
찾아볼 수 있을텐데... 물론 vcl들은 제가 폼위에 올려놓으면 되니까요..
도움이 안되었어도 용서를...
(NOTICE) You must be logged in to comment on this post.
-
- 김진호
- •
- 2000.02.11 01:09
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2000.02.11 01:50김진호 wrote: > 간략하게 코드를 적었습니다. > > procedure test(sender:TWinControl); > begin > ...
-
- 최 소 영
- •
- 2000.02.11 01:03
- 3 COMMENTS
- /
- 0 LIKES
if Ord (PDU[i]) = $02 then begin if intCount < 4 then begin lenPDU := Ord (PDU[i + 1]); for j := (i + 2) to (i + 2 + lenPDU - 1) do begin tmpCommand := tmpCommand + PDU[j]; end; // Version if intCount = 0 then begin if Or...-
최용일•2000.02.21 12:40최 소 영 wrote: > if Ord (PDU[i]) = $02 then begin > if intCount < 4 then begin > ...
-
최용일•2000.02.21 12:36최 소 영 wrote: > if Ord (PDU[i]) = $02 then begin > if intCount < 4 then begin > ...
-
이재식•2000.02.11 05:08이재식 Wrote : 안녕하세요? 제 생각에는 소스의 문법 자체에는 이상이 없습니다만, 왠지 의심쩍인 코...
-
- BisBuck
- •
- 2000.02.11 01:00
- 1 COMMENTS
- /
- 0 LIKES
-
최원실•2000.02.11 02:08BisBuck wrote: > DBGrid에 Query된 Record들을 보여줬습니다. > 그리구 DBGrid에서 선택된 Record를 Key...
-
- shc
- •
- 2000.02.11 00:19
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2000.02.11 01:42shc wrote: > 먼저 감사합니다. > e-mail 주소로 사연을 보낸는데 return 되어 오네요 > 이쪽 메일 주소...
-
- 김완희
- •
- 2000.02.11 00:15
- 7 COMMENTS
- /
- 0 LIKES
-
박병영•2000.02.11 00:42
-
김완희•2000.02.11 01:19
-
이명학•2000.02.11 02:03
-
김완희•2000.02.11 03:00
-
최지수•2000.02.11 03:51
-
이명학•2000.02.11 04:27
-
김완희•2000.02.12 00:56
-
- RyanYun
- •
- 2000.02.10 23:37
- 2 COMMENTS
- /
- 0 LIKES
-
RyanYun•2000.02.10 23:44전역 함수와 어느 Class의 멤버함수가 이름이 같을 경우... Class내에서 호출 할 경우 전역 함수를 ...
-
여영식•2000.02.11 04:01유닛명.전역함수명() 으로 사용하면 됩니다. 예를들어 전역함수 TestFunc 가 Test.Pas 에 정의되어 있을 ...
-
- 초보자
- •
- 2000.02.10 23:37
- 3 COMMENTS
- /
- 0 LIKES
-
김진호•2000.02.11 00:03초보자 wrote: > 델파이를 사랑하는 초보자 입니다. > > 질문] > A Table aaa필드 ...
-
초보자•2000.02.11 00:43아래처럼 하니까 B.ccc의 내용이 모두 나타나는데요... in이라는 것은 '1'이 들어 있는 것을 나타내라는 ...
-
김진호•2000.02.11 00:02> 질문] > A Table aaa필드 B Table bbb필드 ccc필드 > abc...
-
- 한승수
- 2000.02.10 23:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 한승수
- 2000.02.10 22:42
- 0 COMMENTS
- /
- 0 LIKES
-
- yjulee
- •
- 2000.02.10 22:39
- 2 COMMENTS
- /
- 0 LIKES
-
김성은•2001.01.17 02:48yjulee wrote: > ISAPI로 작성한 게시판이 아파치 서버에서도 작동하는지 알고 싶습니다. > 현재는 PWS로...
-
김남일•2000.02.11 03:07yjulee wrote: > ISAPI로 작성한 게시판이 아파치 서버에서도 작동하는지 알고 싶습니다. > 현재는 PWS로...
-
- 통신초보
- •
- 2000.02.10 22:38
- 1 COMMENTS
- /
- 0 LIKES
-
갱수•2000.02.11 00:37통신초보 wrote: > Server 및 Client가 모두 양쪽이 Server도 되고 Client가 되도록 구현하고 > 싶습니다...
-
- 박윤정
- •
- 2000.02.10 21:15
- 1 COMMENTS
- /
- 0 LIKES
-
최원실•2000.02.11 02:55박윤정 wrote: > 안녕하세요. 수고하십니다. > 델파이 4에서 퀵리포트를 작성한 후 미리보기를 하면 > ...
-
- 왕초보
- •
- 2000.02.10 21:04
- 1 COMMENTS
- /
- 0 LIKES
-
갱수•2000.02.11 00:35왕초보 wrote: > 게시판 만들때.... > > 파일 업로드는 어떻게 해야 하나요? > > 좋은 서적이나... ...
-
- 홍진혁
- 2000.02.10 20:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 하얀까마귀
- 2000.02.10 20:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 하얀까마귀
- 2000.02.10 20:35
- 0 COMMENTS
- /
- 0 LIKES
-
- nambada
- 2000.02.10 20:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 이숙현
- 2000.02.10 19:35
- 0 COMMENTS
- /
- 0 LIKES
-
- ikhju
- 2000.02.10 19:01
- 0 COMMENTS
- /
- 0 LIKES
-
- ikhju
- 2000.02.10 18:57
- 0 COMMENTS
- /
- 0 LIKES
> if Ord (PDU[i]) = $02 then begin
> if intCount < 4 then begin
> lenPDU := Ord (PDU[i + 1]);
>
> for j := (i + 2) to (i + 2 + lenPDU - 1) do begin
> tmpCommand := tmpCommand + PDU[j];
> end;
>
> // Version
> if intCount = 0 then begin
> if Ord (tmpCommand[1]) = $00 then
> list2.Items.Add ('Version: Ver1')
> else
> list2.Items.Add ('Version: Ver2');
> intCount := intCount + 1;
> end
>
> // Generic trap
> else if intCount = 1 then begin
> list2.Items.Add ('Generic Trap: ' + IntToStr (Ord (tmpCommand[1])));
> intCount := intCount + 1;
> end
> // Specific Trap
> else if intCount = 2 then begin
> list2.Items.Add ('Specific Trap: ' + IntToStr (Ord (tmpCommand[1])));
> intCount := intCount + 1;
> end;
> end;
> end
>
> 소스는 위와 같습니다. 그런데 제목에서와 같은 에러 메시지가 inc(intCount)에서 일어나길래 inc(intCount)를 intCount := intCount + 1 로 했습니다.
> 그래도 똑같은 메시지가 나기 때문에 제 생각에는 컴파일러가 intCount := intCount + 1이라는 문장을 읽지 않고 지나간다고 생각합니다.
> 왜 그럴까요?
> 혹시나 아시는 분의 답을 기다립니다.
>
>
변수에 값을 넣어 놓고 한번도 사용하지 않은 경우 발생합니다. 이런 경우 그 라인을
지우더라도 아주 똑같은 결과를 얻을 수 있습니다. 사용자가 지우지 않으면 델파이가
컴파일하는 과정에서 자동으로 제거(optimization이 참으로 설정