Base TXT de Datos

[Wbarrantes]

ok ya logre solventar mi problema
1. Trabajo un archivo definido por columnas separada por tabuladores..
2. Estoy trabajando con Delphi 2010...
3. Ingreso los datos depues de realizar varias operaciones, a una base de datos


pero tengo un pequeno gran problema, necesito abrir el archivo de Datos de un fichero que el usuario me indique, y no de un fichero fijo...

osea en lugar de que sea DATOS.txt utilizar un open dialog

//****************************************
OpenDialog1.Filter:='Datos (*.txt)|*.txt';
if OpenDialog1.Execute then
begin
if OpenDialog1.FileName <> emptystr then
begin
ADOTable1.Active := False;
ADOTable1.TableName:= OpenDialog1.FileName;
ADOTable1.Active := True;

end;
end;
//*****************************************

pero solo lo carga correctamente cuando utilizo un archivo que este dentro de la misma carpeta y con el nombre DATOS.txt…


cuando lo cargo de esta manera no me respeta las columnas, el separador ni nada de lo que contiene el archivo schema.txt

podria venir por el lado del encabezado delfichero schema [datos.txt]...
es correcto? como podria variarlo? no daria problemas por que lo cargo en el form create?

[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...