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;
TSTR_Archivo.LoadFromFile(GetCurrentDir + '\Schema.ini');
TSTR_Archivo[0] := '['+ ExtractFileName( OpenDialog1.FileName) +']' ;
TSTR_Archivo.SaveToFile(GetCurrentDir + '\Schema.ini');
ADOTable1.Active := False;
ADOTable1.TableName:= STR_FILE_NAME ;
ADOTable1.Active := True;
showmessage('mi codigo ahora');
end;
end;
espero les sea de beneficio,y pos que sirva como una incorporacion al codigo de Neftali...