Q&A

  • [re] [질문] 배열 이름을 반복문에서 줄이고 싶은데...

>안녕하세요.
>
>workArray~로 시작하는 배열들의 이름이 비슷한데 이걸 반복문 돌릴때 줄일수 없을까 궁금합니다.
>
>코딩하려는데 이런게 꽤 많아서 고민에 빠졌습니다.
>
>고수님들의 답변 부탁드립니다.
>
>i:=1;
>ADOQuery1.First;
>while not ADOQuery1.Eof do begin
>      workArray01[i] := ADOQuery1.FieldValues['WORK_RATE01'];
>      workArray02[i] := ADOQuery1.FieldValues['WORK_RATE02'];
>      workArray03[i] := ADOQuery1.FieldValues['WORK_RATE03'];
>      workArray04[i] := ADOQuery1.FieldValues['WORK_RATE04'];
>      workArray05[i] := ADOQuery1.FieldValues['WORK_RATE05'];
>      workArray06[i] := ADOQuery1.FieldValues['WORK_RATE06'];
>      ADOQuery1.Next;
>      i:=i+1;
>end;

이중배열을 함 생각해 보심도 괜찮을 듯...^^

i:=1;
with ADOQuery1 do begin
     First;
     while not Eof do begin
           for j := 1 to 6 do begin
              workArray[j][i] := FieldValues['WORK_RATE0' + IntToStr(j)];
           end;
           Next;
           i:=i+1;
     end;
end;//end with
1  COMMENTS
  • Profile
    부유호 2010.12.02 22:41
    아.. 이런 방법도 있었군요. 답변 감사드립니다.