Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Addressed for Version 2.09 » View Incident Report |
Serious |
Reported By: Guenter Angerer Reported On: 3/15/2001 For: Version 2.08 Build 1 |
Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DBISAMTb; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} uses db; procedure TForm1.Button1Click(Sender: TObject); var lTable: TDBIsamTable; begin lTable := TDBIsamTable.Create(nil); with lTable do try TableName := 'testtable'; try DeleteTable; except on e: exception do ; end; FieldDefs.Add('f1', ftString, 1); CreateTable; DeleteFile('testtable.dat'); DeleteFile('testtable.idx'); if exists then DeleteTable; finally free; end; end; end.
This web page was last updated on Wednesday, March 20, 2024 at 07:22 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |