먼가 있겠죠...

j_start값이 이상한 값이 아닌가요?

잘 보셔요..



문제 wrote:

> 아래에서. mon_count1이 작동을 안합니다.

> 왜냐하면..

> 제일 아래쪽에 for문에서 분명이 값이 jj에 3이 들어가고 for_end에 12가 들어 간것을 확인했는데..

> 루프를 돌지를 안고..그냥 빠져나옵니다.

> 루프는 전혀 돌지 않습니다.

> 틀린곳이 없는곳 같은데..

> 왜 이러죠..

>

> procedure Tfm_cen_means.BitBtn4Click(Sender: TObject);

> var

> i, jj, j_start : integer;

> mon_count1 ,for_end : integer;

> begin

> mon_count1 := 0;

> for_end := 12;

> for i := strtoint(se_year.Text) to strtoint(f_year.text) do begin

> if strtoint(f_year.text) = strtoint(se_year.Text) then

> begin

> if copy(f_mon.text,1,1) = '0' then

> for_end := strtoint(copy(f_mon.text,2,1))

> else

> for_end := strtoint(f_mon.text);

> end;

>

> if copy(se_mon.text,1,1) = '0' then

> j_start := strtoint(copy(se_mon.Text,2,1))

> else

> j_start := strtoint(se_mon.Text);

>

> for jj := j_start to for_end do

> mon_count1 := mon_count1 + 1;

> end;

> FDB_load_find(Sender);

> end;