[artemavd]

Вот код создания таблицы программно:
Код:

Код:

 with TTable.Create(Self) do
 begin
  DataBaseName:='C:\Documents and Settings\Тёмка\Рабочий стол';
  TableName:='Table1';
  TableType:=ttParadox;
    with FieldDefs do
      begin
       Add('Age',ftInteger,0,True);
       Add('Name',ftString,25,False);
       Add('Weight',ftFloat,0,False);
      end;
      IndexDefs.Add('','Age',[ixPrimary,ixUnique]);
      CreateTable;
 end;

Все хорошо, но я хочу, чтобы я мог сам указывать путь для DatabaseName через диалог. Но не получилось. Пробовал через SaveDialog, безрезультатно . Как сделать возможность выбора размещения алисаса?

[Страдалецъ]

В вашем случае надо использовать SaveDialog наверное так:

Код:

with TTable.Create(Self) do
 begin
 SaveDialog1.Filter := 'Paradox files (*.db)|*.db';
 if not SaveDialog1.Execute then Exit;
 DataBaseName := ExtractFilePath(SaveDialog1.FileName);
 TableName := ExtractFileName(SaveDialog1.FileName);
 TableType:=ttParadox;
    with FieldDefs do
      begin
       Add('Age',ftInteger,0,True);
       Add('Name',ftString,25,False);
       Add('Weight',ftFloat,0,False);
      end;
      IndexDefs.Add('','Age',[ixPrimary,ixUnique]);
      CreateTable;
 end;