Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Показать удаленные записи в DBase
   Категория: Базы данных
  Перекодировка текста DOS-Windows-Koi8
   Категория: Текст и строки
  Дата изменения файла
   Категория: Файловая система
  Удалить файл в Корзину
   Категория: Приложение
  Получить типы полей таблицы
   Категория: Базы данных
  Преобразовать любой тип в строку
   Категория: Текст и строки
  Как показать balloon tooltips в программе
   Категория: Приложение
  Возвести в степень
   Категория: Математика
  Определение размера каталога
   Категория: Файловая система

Delphi - База Знаний: Получить типы полей таблицы

  << Вернуться к Содержанию  

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;
  << Вернуться к Содержанию