델파이에서 연속적이지 않은 범위 때문에 트리거하지 않는 FOR-IN 루프

Question

내 머리를 찢어 버린 후 며칠 만에 문제가 간단 해졌습니다 (중요한 비트 만 남겨 두었습니다. 내 많은 편집 내역을 참조하십시오). 그것은 :

showmessage('i='+inttostr(i)); 
for i in [2..5,8,11..13] do 
showmessage('1'); 
showmessage('i='+inttostr(i)); 

이 항목은 내 프로그램에서 delphi로 무작위로 배치됩니다. 비 연속적인 for-in 루프 범위는 다른 곳에서 프로그램에서 작동한다는 점에 유의해야한다고 생각합니다. 합계로, 나는 같은 두 가지 비 연속적인 for-in loops을 가지고 있는데, 다른 하나는 잘 동작한다고 주석을 달았지만 둘 다 동시에 작동하는 상태라면 두 번째 제품 만 작동하고 첫 번째 제품은 작동합니다. 아래에 설명 된 것과 같습니다.

첫 번째 메시지 상자에는 초기화되지 않았기 때문에 "i = 임의 번호 :"이 포함되어 있으므로 필요하지 않습니다. 메시지 상자에 "1"이 표시되지 않습니다. 표시되는 두 번째 메시지 상자에는 "i = 14"가 표시되어 루프가 트리거했지만 아무것도하지 못했음을 의미합니까? 그건 말도 안돼, 만약 누군가가 내게 계몽 수 있다면 두 가지를 원한다 :

1) 왜 이런 일이 일어나는가?

2) 문제를 해결하고 나중에 피하는 방법은 무엇입니까?

Answer 1

안녕하세요, Delphi 2006 및 Xe2에서 코드를 테스트했으며 두 경우 모두 정상적으로 작동합니다. 나에게는 메모리를 파기 ​​할 수있는 이전의 문제가있을 수 있으며 변수 또는 체크 박스 배열과 관련된 것일 수 있습니다.

procedure MyTestFunc(); 
var 
i, j: integer; 
begin 
    memo1.lines.clear; 
    for i:= 1 to 50 do 
    Begin 
    case i of 
     1..10: 
     if NOT (somearr[1] as Tcheckbox).checked then 
     Begin 
      j:=0; 
      for j in [2..5,7,11..13] do 
      begin 
       memo1.Lines.Add('j= '+inttostr(j)); 
       (somearr[j] as Tcheckbox).Checked := false; 
      end 
     end 
     else memo1.Lines.Add('false'); 
     11..20:BEgin 
      End; 
    End; 
    End; 
end; 

나는 결코 그것을 고정 이유를 이해할 수 없었다 : 나는 (Delphi6 사용) 경우가 있었다 일단 내가 좋아하는 일을했다, 내가 루프 전에 J를 initializate을했다이었다. 디버깅을 통해 단계별로 수행하고 각 변수를 검사 할 수 있습니다.

더 많은 도움이 필요하시면 더 많은 코드를 게시하여 문제를 해결하는 데 도움을주십시오.

행운을 빈다! 당신이 그것을 초기화하지 않았기 때문에이 시점에서

Answer 2

showmessage('i='+inttostr(i)); 

i는 메모리의 랜덤 내용이 i에 대한 스토리지에 할당 된 위치에 될 일이 무엇이다.

for i in [2..5,8,11..13] do 
    showmessage('1'); 
showmessage('i='+inttostr(i)); 

코드에 다른 문제가 있습니다. 이것은 델파이 XE2에서 잘 작동합니다

편집 및 지금 무시하는 말을하고 남은 모든 소리에 너무 많은 혼란이있다 : 여기

procedure TForm2.FormCreate(Sender: TObject); 
var 
    j: Integer; 
begin 
    Memo1.Clear; 
    for j in [2..5,8,11..13] do 
    Memo1.Lines.Add(Format('j = %d', [j])); 
end; 

이 Memo1의 출력입니다 문제가 무엇인지 알기가 어렵습니다. 당신은 코드를 빼 먹었고, 여러분이 접근하고있는 선언되지 않은 변수들, 그리고 (포함되어있는 것에서부터) 이상한 논리가 나에게 의미가 있습니다.

아주 간단한 재 작성을하면 문제를 해결하는 데 도움이 될 것입니다. (그리고 IMO는 앞으로 더 읽기 쉽고 유지할 수 있지만 다시 IMO 일 것입니다.)

for i := 2 to 13 do 
    case i of 
    2..5, 8, 11..13: 
     ShowMessage(Format('Got i value of %d', [i])); 
    else: 
     ShowMessage(Format('Got other value of %d', [i])); 
    end; 

만큼 얼마든지 다른 루프 1 (50)로부터 하방 i 카운트 값을보고하고,이 디버거에서 루프 카운터를보고 알려진 문제이고; 디버거의 평가자를 혼동시키는 코드 최적화와 관련이 있습니다. Delphi 1부터 잘 알려진 (그리고 종종 Borland/CodeGear/Embarcadero 뉴스 그룹에서 논의 된) 행동이었으며 디버거의 디스플레이에만 영향을 미쳤습니다. 코드의 실제 실행 결과에 영향을 미치지 않도록 보장됩니다.