home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue38 / Dynatab / DYNATAB2.DPR < prev    next >
Encoding:
Text File  |  1998-06-01  |  476 b   |  25 lines
  1. {$APPTYPE CONSOLE}
  2. program DynaTab2;
  3. uses
  4.   DBTables;
  5. var
  6.   i: Integer;
  7. begin
  8.   with TTable.Create(nil) do
  9.   try
  10.     DatabaseName := 'DBDEMOS';
  11.     TableName := 'BIOLIFE.DB';
  12.     Open;
  13.     writeln;
  14.     for i:=0 to Pred(FieldCount) do
  15.     begin
  16.       write('Field ',i,': (',Fields[i].Name,')');
  17.       write(' displays "',Fields[i].DisplayName,'"');
  18.       write(' - ',Fields[i].DisplayText);
  19.       writeln
  20.     end;
  21.     Close
  22.   finally
  23.     Free
  24.   end
  25. end.