hola, he recorrido el foro y no encontre algo que me ayudara para resolver mi problema, el tema es que hice este procedimiento el cual crea tablas en tiempo de ejecucion con los nombres 1.db, 2.db, 3.db y asi sucesivamente.
Lo que no he podido lograr es que a esas tablas me la cree dentro del directorio C:\Temp\
Asi como esta las crea en el path que le indica TablaTemp.DatabaseName := 'Bancos'.
Como puedo hacer para crearlas en el directorio Temp y no en el directorio que me indica el alias ?
Desde ya muchas gracias.
Código Delphi
[-]
procedure TTablas.CrearTablasTemporales;
var intOrdinal: integer; strOrdinal, strNombreTemp: string;
begin
intOrdinal := 0;
Inc(intOrdinal);
strOrdinal := intToStr(intOrdinal);
strNombreTemp := strOrdinal + '.db';
while FileExists('C:\Temp\' + strNombreTemp) do
begin
Inc(intOrdinal);
strOrdinal := intToStr(intOrdinal);
strNombreTemp := strOrdinal + '.db';
end;
TablaTemp := TTable.Create(nil);
TablaTemp.Active := false;
TablaTemp.DatabaseName := 'Bancos';
TablaTemp.SessionName := 'Sesion';
TablaTemp.TableType := ttDefault;
TablaTemp.TableName := strNombreTemp;
with TablaTemp.FieldDefs do
begin
Clear;
with AddFieldDef do
begin
Name := 'Nro_movimiento';
DataType := ftInteger;
Required := False;
end;
with AddFieldDef do
begin
Name := 'Saldo';
DataType := ftCurrency;
Required := False;
end;
with TablaTemp.IndexDefs do
begin
Clear;
with AddIndexDef do
begin
Name := '';
Fields := 'Nro_movimiento';
Options := [ixPrimary,ixUnique];
end;
end;
TablaTemp.CreateTable;
TablaTemp.Open;
end;
end;