![]() | Products |
| Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Addressed for Version 4.29 » View Incident Report |
| Reported By: Bernd Apel Reported On: 1/21/2010 For: Version 4.29 Build 2 |
procedure CreateTables(CreateDatabaseName: string);
var
TableToCreate: TDBISAMTable;
begin
TableToCreate:=TDBISAMTable.Create(Application);
try
with TableToCreate do
begin
DatabaseName:=CreateDatabaseName;
TableName:='abteil';
Exclusive:=True;
if (not Exists) then
begin
with FieldDefs do
begin
Clear;
Add('AbteilID',ftAutoInc);
Add('Nummer',ftString,2);
Add('Name',ftString,30);
end;
with IndexDefs do
begin
Clear;
Add('','AbteilID;Nummer',[ixPrimary,ixUnique],False);!!!!!!!!!
Add('numix','Nummer',[ixCaseInsensitive],False);!!!!!
end;
CreateTable(0,5,1,False,'','',4096,512,0)
end;
end;
finally
TableToCreate.Free;
end;
end;
end.This web page was last updated on Wednesday, October 22, 2025 at 04:21 PM | Privacy Policy © 2026 Elevate Software, Inc. All Rights Reserved Questions or comments ? |

