FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#2
|
|||
|
|||
Espero te sirva
para Crearla : Procedure Crea; FBase := TTable.Create(Self); with FBase do begin Active := False; TableType := ttParadox; TableName := 'Temporal.db' if not FBase.Exists then begin with FieldDefs do begin Clear; with AddFieldDef do begin Name := Codigo'; DataType := ftString; Size := 15; end; with AddFieldDef do begin Name := 'Descripcion'; DataType := ftString; Size := 30; end; with AddFieldDef do begin Name := 'Cantidad'; DataType := ftFloat; end; with AddFieldDef do begin Name := 'Precio'; DataType := ftFloat; end; with AddFieldDef do begin Name := 'Importe'; DataType := ftFloat; end; end; CreateTable; end; end; Y PARA DESTRUIRLA : procedure xxx.FormClose(Sender: TObject; var Action: TCloseAction); Var F : TextFile; begin inherited; if Assigned(Fbase) Then Begin AssignFile(F, FBase.Database.Directory+'\'+FBase.TableName); FBase.Close(); Erase(F); End; Action := caFree; end; |
|
|
|