>안녕하세요.
>
>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