아래 record 부분을 string형으로 Button 클릭시에 열거해서 표현하려는데 어떤식으로 나타내야될지..
아직 초보라 잘 몰라 글을 띄우게되었습니다. 아시는 델파이 선배님들은 조언 부탁드려요..^^;;


procedure TForm1.ButtonClick(Sender: TObject);
var
    QA_QADuty: PaQA_QADuty;
    nRet, nCnt, nRow: Integer;
    sData, StartDate, EndDate, GrpCD, UserID: String;

begin
//--------------------------------------------[[ record 구조 ]]---------------
           {TQA_QADuty =  record
              StartDate        : string;    
              EndDate          : string;
              sItemCD          : array of string[4];        
              nScore             : array of smallint;          
              bYesNO            : array of boolean;                  
              nDuty_arr        : array [0..7] of integer;}

//------------------------------------------------------------------------------
     StartDate := '20051114';
     EndDate := '20051118';
     GrpCD := '000001';
     UserID := '9999999';
     Memo1.Lines.Clear;
     New(QA_QADuty);              //동적변수 메모리할당
     SetLength(QA_QADuty^, 0);
//------------------------------------------------------------------------------
      {function QA_Show_QADuty(const AConn: TADOConnection;
                        StartDate: string;            //검색기간(시작)
                        EndDate: string;              //검색기간(끝)
                        GrpCD: string;                 //그룹코드
                        UserID: string;                //사원번호
                        var QADuty: PaQA_QADuty)}
//------------------------------------------------------------------------------
     nRet := QA_Show_QADuty(AConn, StartDate, EndDate, GrpCD, UserID, QA_QADuty);
     if nRet = 0 then
     begin
        nRow := Length(QA_QADuty^);
        for nCnt := 0 to nRow - 1 do
        begin
           sData :=  '  [StartDate]: '+ QA_QADuty^[nCnt].StartDate        
                         +'  [EndDate]: '+ QA_QADuty^[nCnt].EndDate;
                    
//---------<< 배열 표현할 부분 시작 >>------------------------------------------------------


//---------<< 배열 표현할 부분 끝 >>--------------------------------------------------------

            Memo1.Lines.Add(sData);
        end;
     end;
     Dispose(QA_QADuty);           //할당된 메모리해제end;end;
  end;
end.