Fórum Thread para execução..Pq ? #289967

  {ve se tem informações pra carregar na stringlist}
  CarregaStringList;
  {le todos a valores de todos os campos}
  while not (eof) do
    begin
      if bimpArq then
        begin
          {verifica se a informação já existe}
          with cds do
            begin
              cds.Close;
              with Params do
                begin
                  {passa os parametros--> geralmentE os campos chave}
                  for i := low(Parametros) to high(Parametros) do
                    ParamByName(Parametros[i]).Value := FieldValue(Parametros[i]);
                end; { <- with }
              Open;
              if RecordCount = 0 then
                Append
              else
                Edit;
              {Passa valor para os campos}
              try
                for i := 0 to FCountCampo do
                  if not (FindField(campos[i].Campo) = nil) then
                    FieldByName(campos[i].Campo).AsVariant := FieldValue(i);
                Post;
                if ApplyUpdates(0) > 0 then
                  raise Exception.Create(´Erro ao gravar registro!´);

                {passa informações importadas}
                FsqlArqImport.Add(Flinhas);
              except
                on e: Exception do
                  begin
                    FsqlArqErro.Add(Flinhas);
                    FsqlArqErro.Text := FsqlArqErro.Text + e.Message;
                    FsqlArqErro.Add(´-----------------------------------------------------------------------------------´);
                    Cancel;
                  end;
              end;
              SaveLog;
            end; { <-- with }
        end;
      Self.ReadLine;
    end; { <-- While}
  self.Close;

  FSQLQry.SQLConnection := SEUSQLConnection.CloneConnection;