Base TXT de Datos

[Wbarrantes]

ya resolvi mi problema... apunto el codigo por sialguien se le presenta una situacion similar

Código Delphi [-]
procedure TFormMain.cargar_archivo();
  var
  TSTR_Archivo:tstringlist;
begin
  TSTR_Archivo:=  tstringlist.Create;
//****************************************
 OpenDialog1.Filter:='Datos (*.txt)|*.txt';
  if OpenDialog1.Execute then
  begin
    if OpenDialog1.FileName <> emptystr then
    begin
      STR_FILE_NAME := OpenDialog1.FileName;
// debe encuentrarse el archivo  schema en la misma carpeta del exe
      TSTR_Archivo.LoadFromFile(GetCurrentDir + '\Schema.ini');
// modifico la primera linea del schema
      TSTR_Archivo[0] := '['+ ExtractFileName( OpenDialog1.FileName) +']' ;
// guardo el archivo
      TSTR_Archivo.SaveToFile(GetCurrentDir + '\Schema.ini');
 
//bajo el ADO para aplicar un cambio
      ADOTable1.Active := False;
//remplazo el tablename
      ADOTable1.TableName:= STR_FILE_NAME  ;
//vuelvo aactivar para que surja efecto
      ADOTable1.Active := True;
// aqui para abajo lo que quiera hacer
      showmessage('mi codigo ahora');

    end;
  end;

espero les sea de beneficio,y pos que sirva como una incorporacion al codigo de Neftali...