Source Code



Create DB file at runtime

  • anonymous
  • Dec 20' 13
  • Delphi
  • 246
  • 116
  • United States

dasdas

 

ads

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Table1 do
  begin
    Active:=False;
    DatabaseName:=''DBDEMOS'';
    TableType:=ttParadox;
    TableName:=''NewTable'';
    with FieldDefs do
    begin
      Clear;
      Add(''Field1'',ftInteger,0,True);
      Add(''Field2'',ftString,30,False);
    end;
    with IndexDefs do
    begin
      Clear;
      Add('''',''Field1'',[ixPrimary,ixUnique]);
    end;
    CreateTable;
  end;
end;
  • Tags : delphi, runtime, database
comments powered by Disqus

Related Code

convert minutes in a days / hours / minutes format

How to convert Short to Long filenames

Get Database Path With Alias

SQL data to Excel

Execute a JavaScript Code on a TWebBrowser Document

Save a StringGrid as a CSV file

Empty Recylce Bin

Get MAC Address of Network Card

Kill Active Program

Resizable forms and size grip



Category