Форум Херсона. Форум Херсонской молодежи, флейм, фотографии Херсона, политика в Херсоне, сетевой форум, сети Херсона

with Table1 do 

begin 

DatabaseName:='dbdemos'; 

TableName:='mytest'; 

TableType:=ttParadox; 

{Создать поля} 

with FieldDefs do 

begin 

Add('Surname', ftString, 30, true); 

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

Add('Patronymic', ftString, 25, true); 

Add('Age', ftInteger, 0, false); 

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

end; 

{Сгенерировать индексы} 

with IndexDefs do 

begin 

Add('I_Name', 'Surname;Name;Patronymic', 
[ixPrimary, ixUnique]); 

Add('I_Age', 'Age', [ixCaseInsensitive]); 

end; 

CreateTable; 

end;