Список структуры полей таблицы

Советы » Записи, индексы, поля, закладки » Список структуры полей таблицы

В данном проекте создается список структуры полей соответствующей таблицы, с использованием массивов Fields и IndexDefs, который затем отображается в компоненте ListBox. Демонстрационный проект (dbbrowsr.dpr) решает эту задачу несколько иначе. Вы можете сравнить две версии этого кода.

Примечание: Данный код работает только в 16-битной среде.

procedure

TForm1.Button1Click(Sender: TObject); const

MyFielddefs: array

[ftUnknown..ftGraphic] of

string

[8] = ('Unknown', 'String', 'Smallint', 'Integer', 'Word', 'Boolean', 'Float', 'Currency', 'BCD', 'Date', 'Time', 'DateTime', 'Bytes', 'VarBytes', 'Blob', 'Memo', 'Graphic'); var

i, Indx: integer; Definition: string

; begin

for

i := 0 to

Table1.FieldCount - 1 do

begin

Definition := Table1.Fields[i].DisplayLabel; Definition := Definition + ' ' + MyFieldDefs[Table1.Fields[i].DataType]; Table1.IndexDefs.Update; if

Table1.Fields[i].IsIndexField then

begin

Indx := Table1.IndexDefs.Indexof(Table1.Fields[i].Name); if

Indx > -1 then

if

ixPrimary in

Table1.IndexDefs[Indx].Options then

Definition := Definition + ' (Первичный)'; end

; Listbox1.Items.Add(Definition); end

; end

;

Приведенная выше версия не работает в 32-битной среде, поскольку в ней присутствуют дополнительные типы полей. Вот версия, которая работает в 32-битной среде:

procedure

TForm1.Button1Click(Sender: TObject); const

MyFielddefs: array

[ftUnknown..ftTypedBinary] of

string

[11] = ('Unknown', 'String', 'Smallint', 'Integer', 'Word', 'Boolean', 'Float', 'Currency', 'BCD', 'Date', 'Time', 'DateTime', 'Bytes', 'VarBytes', 'AutoInc', 'Blob', 'Memo', 'Graphic', 'FmtMemo', 'ParadoxOle', 'DBaseOle', 'TypedBinary'); var

i, Indx: integer; Definition: string

; begin

for

i := 0 to

Table1.FieldCount - 1 do

begin

Definition := Table1.Fields[i].DisplayLabel; Definition := Definition + ' ' + MyFieldDefs[Table1.Fields[i].DataType]; Table1.IndexDefs.Update; if

Table1.Fields[i].IsIndexField then

begin

Indx := Table1.IndexDefs.Indexof(Table1.Fields[i].Name); if

Indx > -1 then

if

ixPrimary in

Table1.IndexDefs[Indx].Options then

Definition := Definition + ' (Первичный)'; end

; Listbox1.Items.Add(Definition); end

; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com