How do I display a two-dimensional array in the table style on the screen?

[Eugene Lutsenko]

How do I display a two-dimensional array in the table style on the screen?

[rdonnay]

Code: Select all

#INCLUDE "dcdialog.ch"

FUNCTION Main()

LOCAL GetList[0], oBrowse, aDir := Directory()

@ 0,0 DCBROWSE oBrowse DATA aDir SIZE 65,20 ;
      FONT '10.Lucida Console'

DCBROWSECOL ELEMENT 1 HEADER 'File Name' WIDTH 20 PARENT oBrowse

DCBROWSECOL ELEMENT 2 HEADER 'File Size' WIDTH 10 PARENT oBrowse

DCBROWSECOL ELEMENT 3 HEADER 'File Date' WIDTH 10 PARENT oBrowse

DCBROWSECOL ELEMENT 4 HEADER 'File Time' WIDTH 10 PARENT oBrowse

DCREAD GUI FIT TITLE 'Browsing a 2-Dimensional Array'

RETURN nil

* -----------

PROC appsys ; RETURN

[Eugene Lutsenko]

Thank you very much!