Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)
-   -   Crear tabla en tiempo de ejecucion en un directorio X (https://www.clubdelphi.com/foros/showthread.php?t=67014)

Tauro78 24-03-2010 00:10:12

Crear tabla en tiempo de ejecucion en un directorio X
 
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;
    //TablaTemp:TTable;
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;

jorge82 24-03-2010 00:21:11

Intenta así:
Código Delphi [-]
 TablaTemp.TableName := 'C:\Temp\' + strNombreTemp;

Tauro78 24-03-2010 00:37:34

He probado como dijistes y funciona bien, muchas gracias. :D


La franja horaria es GMT +2. Ahora son las 15:47:57.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi