Fazzioni

@Edisson Sávio De Góes Maciel poste o código, isso aumenta a precisão e a probabilidade de resolver seu empecilho

@Farney Ferreira acredito que o SQL puro não vai atender suas necessidades de modo simples, pois esse código apenas muda a ordem da lista e, pelo que entendi, você precisa de uma combinação em que cada corrida sejam selecionados n competidores... Não sei o grau de complexidade do teu sistema nem da quantidade de registros, mas uma saída é trabalhar com arrays no próprio Delphi

@SamuraiOcidental por que não utiliza um banco de dados? Ele já foi feito para isso

@Edisson Sávio De Góes Maciel para gerar os arquivos .dll é necessário compilar o projeto, use o menu: Project -> Build All Projects Eu uso o delphi 7, aqui há duas opções, compile e build, ambas criam o arquivo final, entretanto a diferença é que build compila todos os arquivos o que faz com que se verifique todas as referências, enquanto que compile recompila apenas os arquivos modificados portanto, em versões finais, sempre opte por BUILD

uma forma de fazer é copiar a função Split, muito comum no mundo do desenvolvimento web neste exemplo, eu uso um TstringList para receber a linha e troco o caractere "|" por novas linhas, não é o modo mais eficiênte, mas é funcional: usei no exemplo o componente Listview da (paleta win32) var input : TStringList; Split_Temp : TStringList; i:integer; Column_count:Integer; begin try Column_count := 0; input := TStringList.Create; // inicilizar o arquivo input.Add('Uno | 2000 | Fiat'); input.Add('S10 | 2016 | Chevrolet'); ListView1.ViewStyle := vsReport; // tipo de visualização da list Split_Temp:=TStringList.Create; for i := 0 to input.Count -1 do //ler linha por linha begin //a ideia é simples: //trocar o caractere "|" de cada linha por uma nova linha, não é a forma mais eficiênte, mas é funcional! Split_Temp.Text := StringReplace(input[i],'|',#13#10,[rfReplaceAll]); if Split_Temp.Count > 0 then with ListView1.Items.Add do //adiciona um novo item no listview begin Caption := Split_Temp[0]; Split_Temp.Delete(0); // para não aparecer 2x na lista SubItems.AddStrings(Split_Temp); //adicionando todas as outras características no item do listview If Split_Temp.Count > Column_count then Column_count := Split_Temp.Count; end; end; //adicionar as colunas na listview for i:= 0 to Column_count do with ListView1.Columns.Add do Caption := 'Coluna: '+IntToStr(i); finally FreeAndNil(input); FreeAndNil(Split_Temp); end; end;

conheço duas formas: 1. (sem dor de cabeça) troca a placa-mãe 2. (com exaquecas) procure um dispositivo como este: o problema que ele tem que ser compatível com o display lcd, ou seja, um quebra cabeça, além disso há custos nesse processo. Eu acho mais válido você anunciar a venda desse notebook mesmo nesse estado e comprar um monitor já adequado

O software vai usar o único hardware disponível - o do dispositivo físico ( que existe na realidade, de fato). Qualquer configuração será apenas uma tentativa de diminuir a capacidade disponível, como o uso máximo da memória outra opção geralmente encontrada é o espaço disponível do disco virtual que, novamente, será menor do que você tem fisicamente. Resumindo, o software do computador virtual sempre terá uma capacidade menor do que o real.

Como você excluiu a possibilidade de o problema ser a ram? Poderia ser em um endereço específico...

Há o ITA, em José dos Campos, que é impecável...

@Eder Neumann obrigado por essa explicaçao... Colocar o gabinete no mesmo potencial que o seu, após o equilíbrio, não vai ter corrente circulando, portanto, não há como danificar apenas com o toque... Boa observação! Edit: concordo, mesmo que o gabinete esteja sem aterramento... Por favor, quando falei que não há como danificar só com o toque me referi a energia estática, mas sabemos que pode haver componentes energizados, como capacitores....

O brilho dos leds dependem da corrente que neles circulam, se diminuir a corrente diminui a intensidade do brilho também começaria a julgar pela fonte

Esse componente dourado é o dissipador do chipset, remove ele e troque a pasta térmica desse dissipador dourado se persistir provavelmente a placa-mãe está com problemas... Por precaução resete a BIOS.

ele faz o downgrade automaticamente, mas na bios você pode alterar... você encontra essas informações no site do fabricante de acordo com a sua placa-mãe... https://www.asus.com/br/Motherboards/PRIME-H310M-E-BR/specifications/ **Módulos de Memória DDR4 2666MHz ou superiores irão funcionar na velocidade máxima de 2666MHz em processadores Intel® de 8ª Geração com 6-cores ou superiores. o fabricante também libera uma lista de memórias compatíveis de acordo com a placa-mãe: https://dlcdnets.asus.com/pub/ASUS/mb/LGA1151/PRIME_H310M-E/PRIME-H310M-E_Memory-QVL-list.pdf

sua placa-mãe não suporta 3000Mhz, provavelmente tenta forçar a 2666MHz... começaria a retirar tudo o que não for útil para dar vídeo (placa de vídeo off, memoria a mais...) e cogitaria em atualizar a bios você ainda tem as memorias antigas?

você conectou a alimentação do processador? um cabo da fonte com 4 slots, fica ao lado dele...

var i: integer; novoArquivo: TextFile; begin AssignFile(novoArquivo, 'documento novo'); Rewrite(novoArquivo); while not EOF(arquivo) do // enquando o ponteiro não estiver na última linha begin showmessage('Início de uma nova linha'); //nesse momento o ponteiro está no primeiro caractere //Read(arquivo, caractere);você está mandando ler o primeiro caracter da primeira linha? while not EOLN(arquivo) do // enquanto o ponteiro não estiver no final da linha begin Read(arquivo, caractere); showmessage(caractere); end; ReadLn(arquivo, linha); // necessário para prosseguir com o ponteiro na próxima linha end; CloseFile(novoArquivo); end; utilize dois laços while... O segundo while poderia ser alterado para ler direto a linha ao invés do arquivo...

@Bleick o problema é apenas na sintaxe e na forma das variáveis receberem novos valores, observe: você chamou a procedure readln e informou dois parâmetros: 1: vendas 2: comissao <- 0.15*vendas o problema é no segundo parâmetro, o símbolo <- é desconhecido no pascal, além disso, a variável vendas ainda nem recebeu o valor para realizar a operação. acredito que o que você deseja é isso: readln (vendas); // provável que um novo valor foi atribuído a vendas, mas isso é outra história... comissao := 0.15 * vendas; // um novo valor foi atribuído á variável comissão writeln("comissão: ", comissao); para alterar uma variável use a simobologia := talvez, estás se perguntando como uma procedure alterou uma variável, isso é permitido se você declarar var nas procedures: program Project1; procedure procedimento_1(var s:string); begin Writeln('começando o procedimento 1'); s := 'a variável s está "linkada" à variável resultado'; end; procedure procedimento_2(s:string); begin Writeln('começando o procedimento 2'); s := 'a variável é temporária'; end; function procedimento_3(s:string):String; begin Writeln('começando o procedimento 3'); result := s; end; var resultado : string; Begin writeln('primeira linha do código a ser executada'); resultado := ''; procedimento_1(resultado); writeln('valor do procdimento 1:',resultado); resultado := 'NÃO RETORNA VALOR'; procedimento_2(resultado); writeln('valor do procdimento 2:',resultado); resultado := procedimento_3('use := para passar um novo valor a variável'); writeln('valor do procdimento 3:',resultado); Readln; end.

faça uma estimativa de quantos watts teu computador consome, ou tire a prova, utilize algum software que estresse tanto a CPU quanto a GPU, como um jogo "pesado", a fim de usar a potência de ambos, e: conecte / desconecte os 6 coolers, se nesse momento o brilho não for estável, certamente, há variação de corrente exigindo uma fonte com maior capacidade para suportar todos os periféricos...

@JGN-BRA o brilho desses leds dependem da corrente elétrica.... provavelmente sua fonte não está bancando tudo... Quantos discos rígidos utiliza, driver de cd, etc, estás utilizando? seus cooler's são 12v, né? geralmente,as fontes fornecem uma corrente máxima na tensão de 5v muito menor do que na de 12v.

@jeffersoncg ai você precisa instanciar como Tcomponent exemplo: type Tcomp = class (TComponent) private propri: String; end; procedure TForm1.test; var com : Tcomp; begin com := Tcomp.Create(self); com.propri := 'my variable'; com.Name := 'com'; ShowMessage( Tcomp(FindComponent('com')).propri); end;

@Angelo Vinicius geralmente, o slot mais perto do processador deve ser colocado a memoria... é estranho o esquerdo não funcionar, se fosse o direito até seria aceitável em single channel... contudo, suas memórias não estão na lista das qualificadas pela fabricante da placa-mãe, https://download.gigabyte.com/FileList/Memory/mb_memory_ga-h110m-s2v.pdf também vi que suas memórias estão rodando numa frequência menor que 2400MHz , devido a placa-mãe forçar para 2133MHz Olha, não sei se resolveria atualizar a Bios... mas, eu cogitaria em vender esses 2 módulos e testar com algum mais compatível. Você alterou alguma propriedade na bios? tensão da memória, frequência, etc?

tem sim, você precisa adicionar o local do executável no registro do windows, Veja se este tutorial te ajuda: CLIQUE AQUI para fazer isso há algumas formas: Utilizar o RegEdit.exe do windows ( como o exemplo do tutorial a cima) criar um arquivo .bat com o script pronto manipular de forma dinâmica a classe TRegistry da unit registry, ela é nativa.. Não tenho certeza,. mas acredito que o você encontra o caminho pela função ParamStr()

@jeffersoncg aparentemente é um código válido, tente utilizar o breakpoint do delphi para verificar se a função está percorrendo a lista... outra forma de fazer a mesma coisa: procedure setHints(form:string); var cfg : TIniFile; i : integer; comp : TComponent; s : string; begin try comp := Application.FindComponent(form); if not Assigned(comp) then exit; cfg := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Hints.ini'); if not cfg.SectionExists(form) then exit; for i := 0 to comp.ComponentCount -1 do begin s := cfg.ReadString(comp.Name,comp.Components[i].Name,''); if (s <> '') and (comp.Components[i] is TControl) then with (comp.Components[i] as TControl) do begin Hint := s; ShowHint := true; end; end; finally FreeAndNil(cfg); end; end;

@Eduardo de Quadros Não é recomendável utilizar alguns caractéres especiais no ID, tais como: - _ . Provável que alguns navegadores enfrentariam problema nessa linha #redes_sociais <div id="redes_sociais"> ... aproveitando seu código javascript, uma sugestão: function Selection( sel ){ var ids = ["propostas","projetos","redesSociais"]; for (var i =0;i < ids.length; i++) document.getElementById(ids[i]).style.display = ((sel == ids[i]) ? 'block' : 'none'); } Ao invés de usar 3 funções para fazer a mesma coisa, use um parâmetro: Selection("propostas"); Selection("projetos"); Selection("redesSociais"); Não compreendi qual seu problema, mas restando dúvidas sugiro ser mais claro.

@if. obrigado. Não percebi que no borne de 10A ele muda a escala.... legal. Fui testar no burraco V/mA/Ohm (com um resistor de 100k) mas o fusível está danificado.... entendi, não é à toa que o fusível era de 250mA, o que é compatível com a aferição máxima marcada na escla do múltimetro, quando utiliza o borne direito de 200m. mais uma vez, obrigado!