|
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;
|