MI MB - Read Table Names

[Aditya . ISD . GCMMF]

I am facing problem with the following programme. 
Actually I want to Read the open table and their columns 
but I am facing the problem (compile it then you will get the problem)

Thanks in advance


include "mapbasic.def"
include "icons.def"
include "menu.def"

declare sub main
declare sub FindTableNames
DECLARE SUB XYZ

sub main
 create buttonpad "Delete Records "     as 

 pushbutton
  calling FindTableNames
  icon MI_Icon_misc_13
  show 
 Title " Delete Records " 
  Width 5
  show
  POSITION (1,1)
 exit sub
 end sub 


Sub FindTableNames
 Dim nCntr As Integer
 Dim TableNames() As String
 dim a1 as SmallInt     


   If NumTables() > 0 Then
      For nCntr = 1 To NumTables()
         Redim TableNames(nCntr)
         TableNames(nCntr) = TableInfo(nCntr, TAB_INFO_NAME)
      Next
   End If
 dialog
  Title "Tables are: "
  control listbox
  ID 1001
  width 100
  height 30     
  title FROM VARIABLE TableNames
  into a1
  Control OKButton
  calling xyz
  Control CancelButton


End Sub

SUB XYZ
dim tab as string 
note "Selected table is :               " + readcontrolvalue(1001)

note " The Problem is How can I read the table name as string instead of Number"
EXIT SUB 
END SUB 
Aditya
Executive (Systems) 
Information Systems Department
GCMMF, Anand
[E-mail me at [EMAIL PROTECTED]]
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]