EasyTable: Single-File Embedded BDE Replacement
Database for Delphi and C++Builder
{Export to Paradox table}
{Paradox table Table1 and its datasource component Datasource1 are placed on Form1}
{global procedure creating Paradox table}
procedure CreateTable;
begin
with Form1.Table1 do
begin
DatabaseName := 'c:\temp';
TableName := 'TestTable';
CreateTable;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var log: String;
begin
if not EasyTable1.ExportTable(DataSource1, Table1.IndexDefs, CreateTable, log) then
ShowMessage(log); { show error message }
end;
|