Fórum Leitura de arquivo ini com condiçao #475430

 Glob.qy_Clifor.First;
    begin
      while not Glob.qy_Clifor.Eof do
      begin
        if (Glob.qy_Vendas.FieldByName('IV_CODATI').AsString = Ini.ReadString('ATIVIDADE', '001', aTexto)) then
        begin
        {  aTexto AQUI ONDE FICARIA A LEITURA DE CADA LINHA DO ARQUIVO INI COMPARANDO SE O COD 001 É IGUAL O 022 E ELE ME SELECIONA AS NOTAS }

          CN_NOMECON := Glob.qy_Contatos.FieldByName('CN_NOMECON').AsString;
          CF_CODCF := Glob.qy_Clifor.FieldByName('CF_CODCF').AsString;
          CF_CNPJ_CPF := Sonumeros(Glob.qy_Clifor.FieldByName('CF_CNPJ_CPF').AsString);
          CF_INS_RG := Sonumeros(Glob.qy_Clifor.FieldByName('CF_INS_RG').AsString);
          CF_TIPOPES := Glob.qy_Clifor.FieldByName('CF_TIPOPES').AsString;
          CF_RAZAO := Glob.qy_Clifor.FieldByName('CF_RAZAO').AsString;
          CF_ENDER := Glob.qy_Clifor.FieldByName('CF_ENDER').AsString;
          CF_NUMERO := Glob.qy_Clifor.FieldByName('CF_NUMERO').AsString;
          CF_COMPLEMENTO := Glob.qy_Clifor.FieldByName('CF_COMPLEMENTO').AsString;
          CF_BAIRRO := Glob.qy_Clifor.FieldByName('CF_BAIRRO').AsString;
          CF_ESTADO := Glob.qy_Clifor.FieldByName('CF_ESTADO').AsString;
          CF_CEP := Glob.qy_Clifor.FieldByName('CF_CEP').AsString;
          CF_DDD := Glob.qy_Clifor.FieldByName('CF_DDD').AsString;
          CF_FONE := Glob.qy_Clifor.FieldByName('CF_FONE').AsString;
          CF_CODATI := Glob.qy_Clifor.FieldByName('CF_CODATI').AsString;
          CI_CODMUNIC := Glob.qy_Cidades.FieldByName('CI_CODMUNIC').AsString;
          writeln(txt, CF_CNPJ_CPF, '|', CF_INS_RG, '||', CF_TIPOPES, '|', CF_RAZAO, '|', CF_ENDER, '|', CF_NUMERO, '|', CF_COMPLEMENTO, '|',
            CF_BAIRRO, '|', CF_ESTADO, '|', CF_CEP, '|', CF_DDD, '|', CF_FONE, '|', CF_CODATI, '|', CI_CODMUNIC, '|');
          writeln(txt, '');
        end;
        Glob.qy_Clifor.Next;
      end;
    end;
  finally
    ShowMessage('Gravado Com Sucesso! ' + caminho + caminhoarquivo);
    Closefile(txt);
  end;
  close;
end;