Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Addressed for Version 4.29 » View Incident Report |
Minor |
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 30, 2024 at 11:41 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |