by I am trying to create a table using TTable.CreateTable but when I run this
I get the following error EDBEngineErro "Number is out of range". This
only happens when building the secondary indexs. Any help would be great
Sample of my code:
ShowInfo('Creating ACTION.DB');
With FieldDefs do
begin
Clear;
Add('AK', ftInteger,0,True);
Add('USERID', ftInteger,0,True);
Add('AP', ftInteger,0,False);
Add('ASA', ftInteger,0,False);
Add('AU', ftInteger,0,False);
Add('ADU', ftDate,0,False);
Add('ADT', ftDate,0,False);
Add('AAT',ftInteger,0,False);
Add('AN',ftString,100,False);
Add('AD',ftMemo,240,False);
Add('AA',ftMemo,240,False);
Add('STATUS',ftString,1,False);
Add('SENDER',ftString,10,False);
Add('SENDERNAME',ftString,25,False);
Add('SENDERADDRESS',ftString,255,False);
Add('RECORDINDEX',ftInteger,0,False);
end; { End with Field Defs }
{ Create index AAT }
With IndexDefs do
begin
Clear;
Add('AK', 'AK', [ixPrimary, ixUnique]);
Add('AAT', 'AAT', [ixPrimary]);
Add('ADT', 'ADT', [ixPrimary]);
Add('AP', 'AP', [ixPrimary]);
Add('ASA', 'ASA', [ixPrimary]);
Add('AU', 'AU', [ixPrimary]);
Add('Action Send to', 'STATUS;USERID', [ixPrimary]);
Add('USERID', 'USERID', [ixPrimary]);
Add('Names', 'SENDERNAME', [ixPrimary]);
Add('SenderIndex', 'SENDER', [ixPrimary]);
end; { End with Index Defs }
CreateTable;