Delphi. 11


         

TTable - 5


⠠ dBASE Paradox

---------------------------------------

ixPrimary ü

ixUnique ü ü

ixDescending ü ü

ixCaseInsensitive ü

ixExpression ü

. , Paradox ixUnique ixPrimary (. - . 1).

, Add FieldDefs IndexDefs TTable - CreateTable:

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;

. 1: CREATABL

. , AddIndex TTable, Add TIndexDefs:

procedure AddIndex(const Name, Fields: string;
Options: TIndexOptions);

AddIndex , .