for문을 돌리던 중.. 아주 이상한 경우를 만났씀다....
제가 머에 홀린 건지..... 아님... 먼가 큰 실수를 하고... 허우대고 있는 건지....
좀 봐주시길....

-------- 이상하게 도는 포문의 예 ---------------
for j := 0 to 30 do
begin
      MaxArray[j] := pfData[j];
      MinArray[j] := PfData[j];
end;

for i:= 0 to rowCount - 1 do
begin
      try
      begin                                                // Begin of Try
            for j := 0 to 30 do                           // <- 이상항 부분.
            begin                                          // begin of For  
                 If pfdata[i] > MaxArray[j] then
                     MaxArray[j] := pfData[i];
                 If pfData[i] < MinArray[j] then
                     MinArray[j] := pfData[i];
            end;                                           // end of For
           AvgVal := AvgVal + pfData[i];
       end                                                 // end of Try
       except
           result := False;
       end;                                                // end of Try Except;
end;            

요걸 돌려 보믄... J 인자를 사용하는 포문이 두개가 있는데여....
위에 것은 잘 돌아 갑니다....  근데 아래 안쪽 포문의 J 값을 Watch 해 보면.... -.-;; 31에서 시작합니다. 그러면서 downto 포문 돌아 가드시....
하나씩 줄더라구여..... 게다가 더 황당한건.... MaxArray나 minArray는 0에서 30번까지 할당된 어레인데.... MaxArray[31] (J가 31 부터 시작하는 이상한 짓을 하므로....)을 억세스 할텐데도.... 바이올레이션 에러가 않난다는 것이죠....
게다가.... 이게 거꾸로 도나 해서.... for문의 to를 downto로 바꿔보았더니....
^^ 그냥 않돌더라구여..... (않돌아야 정상이져.... 0에서 30으로는 내려갈 수 없으니까여.... -.-;;) 글구 아래 것도 좀 참조해 주세여.....

------------------- 잘 돌아가는 포문의 예 -------------------
요 아래 포문은.... 위에서 J 값 Watch가 먼가 이상해서..... 중간에서 j 값을 파일로 쓰게끔 해 본겁니다..... (중간에....Writeln(j)에서 써주는 거져...)
근데.... -.-;; 파일을 읽어 보니까.... 0-30까지 잘 돌았더라구여....T.T
먼가 이상해서.... 다시 J를 Watch 걸구 해보니까.....
중간에 WriteLn 있는 경우에는.... j가 0에서 30까지 잘 돌아 갑니다....
근데... 없는 경우에는 잘 않돌아 갑니다....
왜 그렇져?

AssignFile(F,'Texttt.txt');
Rewrite(f);

for i:= 0 to rowCount - 1 do
begin
      try
      begin
          for j := 0 to 30 do
          begin
                writeln(f, intTostr(j));
                If pfdata[i] > MaxArray[j] then
                     MaxArray[j] := pfData[i];
                If pfData[i] < MinArray[j] then
                     MinArray[j] := pfData[i];
          end;
         AvgVal := AvgVal + pfData[i];
      end
      except
           result := False;
      end;
end;
CloseFile(f);