Как сделать возможность выбора размещения алисаса?

[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, безрезультатно . Как сделать возможность выбора размещения алисаса?

[Stilet]

Пробовал через SaveDialog

Код в студию.

P.S. Я бы через SelectDirectory делал.

[artemavd]

Код? Да какой там код. Я просто тупо пытался подставить вместо пути к файлу SaveDialog.

P.S. Я бы через SelectDirectory делал.

Можете привести пример кода, применительно к моему, как бы вы сделали через SelectDirectory?

[Dark_Spirit]

вот кусочек кода

uses FileCtrl;

const
  SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: string;
begin
  Dir := 'C:\MYDIR';
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    Label1.Caption := Dir;
end;

он взят из стандартного хелпа к дельфи.
Думаю стоит немного обращать внимание и на хелп.

[grenles]

Путь выбирай в окошке. как хочешь.

Все базы, запросы и прочую фигню настрой на алиас, например MyBase

а так переподключить базу к пути

procedure Reconnect(aDatabase: TDatabase; aPath: string);
var
DataSetList: TList;
I: Integer;

begin
DataSetList := TList.Create;
try
DataSetList.Capacity := aDatabase.DataSetCount;
for I := 0 to aDatabase.DataSetCount - 1 do
if aDatabase.DataSets[I].Active then
DataSetList.Add(aDatabase.DataSets[I]);
aDatabase.Close;
aDatabase.Params.Values['PATH'] := aPath;
aDatabase.Open;
for I := 0 to DataSetList.Count - 1 do
TDataSet(DataSetList.Items[I]).Open;
finally
DataSetList.Free;
end;
end;