procedure TForm1.Button1Click(Sender: TObject);
var
В В i: Integer;
В В F: TFieldDef;
В В D: string;
begin
В В Table1.Active := True;
В В ListBox1.Items.Clear;
В В with Table1 do
В В begin
В В В В for i := 0 to FieldDefs.Count - 1 do
В В В В begin
В В В В В В F := FieldDefs.Items[i];
В В В В В В case F.DataType of
В В В В В В В В ftUnknown: D := 'Unknown';
В В В В В В В В ftString: D := 'String';
В В В В В В В В ftSmallint: D := 'SmallInt';
В В В В В В В В ftInteger: D := 'Integer';
В В В В В В В В ftWord: D := 'Word';
В В В В В В В В ftBoolean: D := 'Boolean';
В В В В В В В В ftFloat: D := 'Float';
В В В В В В В В ftCurrency: D := 'Currency';
В В В В В В В В ftBCD: D := 'BCD';
В В В В В В В В ftDate: D := 'Date';
В В В В В В В В ftTime: D := 'Time';
В В В В В В В В ftDateTime: D := 'DateTime';
В В В В В В В В ftBytes: D := 'Bytes';
В В В В В В В В ftVarBytes: D := '';
В В В В В В В В ftBlob: D := 'BLOB';
В В В В В В В В ftMemo: D := 'Memo';
В В В В В В В В ftGraphic: D := 'Graphic';
В В В В В В В В ftAutoinc: D:='AutoInc';
В В В В В В else
В В В В В В В В D := '';
В В В В В В end;
В В В В В В ListBox1.Items.Add(F.Name + ', ' + D);
В В В В end;
В В end;
В В Table1.Active := False;
end;