unit FACTUALIZAR;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables,STRUTILS;

type
  TACTUALIZAR = class(TForm)
    Table1: TTable;
    Table1GRUPO: TStringField;
    Table1DESCRIPCIO: TStringField;
    Table1CODIGO: TStringField;
    Table1NOMBRE: TStringField;
    Table1PRECIO: TFloatField;
    Table1OBSERVA: TStringField;
    Table1FECHA: TStringField;
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ACTUALIZAR: TACTUALIZAR;

implementation

{$R *.dfm}

procedure TACTUALIZAR.Button1Click(Sender: TObject);
VAR DIR:STRING;
begin
  IF OPENDIALOG1.Execute THEN
  BEGIN
    DIR := RIGHTSTR(OPENDIALOG1.FileName,(LENGTH(OPENDIALOG1.FileName)-POS('\',OPENDIALOG1.FileName)-0));
    WHILE POS('\',DIR) <> 0 DO
         DIR := RIGHTSTR(DIR,(LENGTH(DIR)-POS('\',DIR)-0));
//    TABLE1.Database := COPY(OPENDIALOG1.FileName,1,POS(DIR,OPENDIALOG1.FileName)-1);
    TABLE1.TableName := DIR;
  END;
end;

procedure TACTUALIZAR.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   ACTION := CAFREE;
end;

end.