levantar datos de archivos text en delphi

[[BlueSteel]]

Ahora te dejo la segunda parte.. que seria el proceso que realizo yo para traspasor los datos que estan en el DBGrid a una tabla de Sql Server

en el boton de Traspasar, pongo el sgte codigo

Código Delphi [-]
Var
   i : Integer;
   nArchivo : String;
begin
     DTexto.First;  // me posiciono en el primer registro
     For i:=0 to DTexto.RecordCount-1 Do   //  Ciclo se realiza de 0 al ultimo
     Begin
          Datos.AQ_Edit.Close;
          Datos.AQ_Edit.Sql.Clear;
          Datos.AQ_Edit.SQL.Add('Insert Into Envio (Env_Ficha, Env_Rol, Env_Proceso, Env_Mes, Env_Ano, Env_Monto)');
          Datos.AQ_Edit.SQL.Add('Values (:v01, :v02, :v03, :v04, :v05, :v06)');
          Datos.AQ_Edit.Parameters[0].Value := DTexto.fieldbyname('FICHA').AsString;
          Datos.AQ_Edit.Parameters[1].Value := DTexto.fieldbyname('ROL').AsString;
          If vPro.ItemIndex = 0 Then
             Datos.AQ_Edit.Parameters[2].Value := 'L'
          Else
             Datos.AQ_Edit.Parameters[2].Value := 'G';
          Datos.AQ_Edit.Parameters[3].Value := vMes.Text;
          Datos.AQ_Edit.Parameters[4].Value := vAno.Text;
          Datos.AQ_Edit.Parameters[5].Value := DTexto.fieldbyname('MONTO').AsString;
          Datos.AQ_Edit.ExecSQL;   // Ejecuto la sentencia SQL para insertar
          DTexto.Next;  // Avanzo al siguiente registro
     End;
     DTexto.Active   := False; //desactivo el componente que muestra el archivo de texto
     RenameFile(Concat(Label1.Caption,'\',Archivo.Text),ChangeFileExt(Concat(Label1.Caption,'\',Archivo.T  ext),'.ok'));  // cambio el nombre al archivo de texto
     Directorio.Refresh;  // refresco los componentes donde me mostraba el archivo seleccionado
     Archivo.Refresh;

end;

prueba con esto orientado a tu base de mysql y me cuentas como te fue

espero que te sirva

Salu2