Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Reported for Version 1.13 » View Incident Report |
Serious |
Reported By: Per Reported On: 3/18/1999 For: Version 1.13 Build 1 |
procedure TForm1.Button1Click(Sender: TObject); begin with Table1 do begin DatabaseName:=''; TableName:='test.dat'; InMemory:=true; with FieldDefs do begin Clear; Add('RecordID',ftAutoInc,0,False); Add('Doknr',ftString,25,false); Add('Rev',ftString,3,false); Add('Timestamp',ftDateTime,0,false); Add('User',ftString,3,false); end; IndexDefs.Clear; IndexDefs.Add('','RecordID',[ixPrimary]); IndexDefs.Add('DoknumIx','Doknr;Rev',[]); CreateTable; end; Table1.IndexName:='DOKNUMIX'; Table1.Open; end; procedure TForm1.Button2Click(Sender: TObject); begin Table1.Close; with Table1 do begin with RestructureFieldDefs do begin Clear; Add('RecordID',ftAutoInc,0,False,'','','','',1); Add('Doknr',ftString,25,false,'','','','',2); Add('Rev',ftString,3,false,'','','','',3); Add('Timestamp',ftDateTime,0,false,'','','','',4); Add('User',ftString,3,false,'','','','',5); end; IndexDefs.Clear; IndexDefs.Add('','RecordID',[ixPrimary]); IndexDefs.Add('DoknumIx','Doknr;Rev',[]); IndexDefs.Add('NEWIX','Rev;DokNr',[]); RestructureTable(1053,0,1,0,False,'','',512); end; Table1.IndexName:='NEWIX'; Table1.Open; end;
This web page was last updated on Tuesday, April 23, 2024 at 08:39 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |