Ir ao conteúdo
  • Cadastre-se

jeffersoncg

Membro Júnior
  • Total de itens

    9
  • Registro em

  • Última visita

  • Qualificações

    0%
  1. Muito obrigado Fazzioni, deu certinho, passei boa parte dos itens para FindComponent, já que as telas de busca/filtro são as mesmas e eu ficava copiando e colando o codigo em todos os Form's, agora tenho apenas no form "Modulo", e nas outras apenas seguem com o mesmo nome e o codigo identifica qual objeto chamar. Obrigado de verdade amigo.
  2. Boa tarde, estou tendo uma dificuldade de criar um Obejeto no delphi, preciso achar um jeito fácil de chamar esse objeto, preferencialmente através do "FindComponent", mas não sei ao certo como fazer a criação de objetos, tentei de varias formas e em todas me resultou erro. O record que tenho é o seguinte: type TFiltroComboBox = record Itens: TStringList; Ids: TStringList; procedure Create; procedure Free; procedure Clear; procedure Adicionar(Texto: string; Id: Integer); procedure Remover(Index: Integer); function Count: Integer; fu
  3. Amigo era isso mesmo, eu não queria ter que rodar por todo o form e ele ler component por component, já que a lista era pré definida, ai no caso iria mais rápido. O meu código lá de cima não pegava por causa do " as TControl". Coloquei como você fez ai, e deu certo. with (IComp as TControl) do begin ShowHint := xHint <> EmptyStr; Hint := UTF8ToUnicodeString(xHint); end; Muito obrigado mesmo Fazzioni.
  4. Olá, estou tendo um pequeno problema no Delphi, estou tentando carregar um arquivo Ini, e jogar as configurações setadas nesse ini, nos objetos do form, nesse caso em especifico, os Hints. Mas não importa como eu altere essa função, ele não altera os hints do do form, apesar que (na minha cabeça) não parece ter erro nesse código. procedure TModulo.CarregarHints(Form: String); var ArqIni: TIniFile; IForm: TForm; IComp: TComponent; x, CompMax: Integer; CompList: TStringList; xHint: String; begin Form := PegarNomeForm(Form); ArqIni := TIniFile.Create(Config.Descon
  5. Eu ia tentar lhe enviar por MP pra não fazer post desnecessário, mas como sou novo, não tenho permissão pra enviar MP. Aqui o código como consegui corrigir, não sei se essa é a maneira mais correta, mas é o máximo que consegui. SELECT vca.Codigo, MAX(vca.EstabCodigo) AS EstabCodigo, MAX(vca.EstabNome) AS EstabNome, MAX(vca.VendaCodigo) AS VendaCodigo, MAX(vca.CartaoCodigo) AS CartaoCodigo, MAX(vca.ConvCodigo) AS ConvCodigo, MAX(vca.ClienteCodigo) AS ClienteCodigo, MAX(vca.ClienteNome) AS ClienteNome, MAX(vca.ValorBruto) AS ValorBruto, MAX(vca.ValorLiquido) AS ValorLiquido, MAX(
  6. Muito obrigado Joseph, era exatamente isso que eu precisava, e obrigado também pela explicação. Consegui entender bem melhor agora como trabalhar com SQL. Estou utilizando a versão 5.7 do MYSQL, testei seu código aqui e funcionou perfeitamente. Vou tentar adaptar o outro também. Mais uma vez, muito obrigado, e um forte abraço.
  7. Eu estou tentando seguir sua dica, e otimizar ele usando inner Join, mas me surgiu uma dúvida. Como eu converteria a função seguinte, sem que ela fizesse minha função inteira chamar apenas 1 Record? ifnull((select max(VeiculoKM) from vendascartao where vendascartao.VeiculoCodigo = Cartoes.VeiculoId), KmInicial) as UltimoKM Eu chamo assim, pois quando tento chama apenas o max(veiculoKm), ele faz toda a função retornar apenas um record, além eu não poder fazer verificações nele. Estou tentando chamar ele assim: Como aquele código acima esta muito
  8. Eu estava pensando se não tem um jeito de alterar esses SubSelects repetidos, pra uma variavel, deixar apenas um Select, que passa o valor pra variavel e a variavel nos outros, pois varios dos selects são o mesmo, mas é que como são informações diferentes que são puxadas, eu preciso confirmar toda vez. Estava pensando em algo tipo: declare @DtLanc = CnvDt(DATAVENDA,HORAVENDA); declare @KmInicial = (select veiculos.KMInicial from veiculos where veiculos.codigo = vendascartao.veiculocodigo); declare @KmAnt = ifnull((SELECT max(VeiculoKM) from vendascartao as vendascartaoa where vend
  9. Bom dia, sou novo aqui no Clube do Hardware, mas sempre acompanhei as dicas que o pessoal passa, dessa vez resolvi me inscrever pra pedir ajuda também. Tenho esse código, mas ele tá muito mal otimizado, eu jogo ele em uma query no Delphi, mas como as vezes tem muitos resultados, fica muito lento. Eu não entendo de SQL, alguém poderia me ajudar a converter ele para uma função/procedimento ou otimiza-lo? Eu realmente agradeço, preciso muito desse código. As condições de busca, eu jogarei depois, ainda estou desenvolvendo essa parte. A função CnvDt apenas junta doi

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

minicurso-montagem-popup.jpg

MINICURSO GRÁTIS!

Como ganhar dinheiro montando computadores!

CLIQUE AQUI E INSCREVA-SE AGORA MESMO!