Создание таблицы Paradox

Советы » Paradox » Создание таблицы Paradox

Вот маленький кусочек кода для создания таблицы Paradox:

with

TTable.create(self) do

begin

DatabaseName := 'C: emp'; TableName := 'FOO'; TableType := ttParadox; with

FieldDefs do

begin

Add('Age', ftInteger, 0, True

); Add('Name', ftString, 25, False

); Add('Weight', ftFloat, 0, False

); end

; IndexDefs.Add('MainIndex', 'IntField', [ixPrimary, ixUnique]); CreateTable; end

;

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

Категории

Статьи

Советы

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