RETORNAR O MENOR VALOR MAIOR QUE ZERO
20/11/2015
0
eu não domino muito a função com array, estou precisando retornar o menor valor maior que zero dentro de um array com 10 posições.
agradeço quem puder me ajudar, pesquisei bastante na internet mas nao encontrei exatamente o que eu estou precisando.
desde já obrigado.
Mário
Mario Oliveira
Posts
21/11/2015
Mateus Ribeiro
Montei aqui uma função rapidinho que retorna o menor valor dentro de uma array... qualquer coisa vc adapta pra sua necessidade!
function SmallIntArray(IntArray: Array Of Integer): Integer; var i, x: Integer; begin for i:= 0 to Length(Bloco) - 1 do begin x:= Bloco[i]; if x < Result then Result:= x; end; end;
Boa sorte!
23/11/2015
Wazowski
function TfrTelaCadastroDefault.MenorNumMaiorQueZero( Vetor: array of Integer): Integer; var I: Integer; begin Result:= 0; for I:= 0 to Length(Vetor) - 1 do begin if Result = 0 then Result:= Vetor[I]; if Vetor[I] > 0 then if Vetor[I] < Result then Result:= Vetor[I]; end; end;
Acho que isso resolve
23/11/2015
Mario Oliveira
desculpa pela demora do retorno, vou implementar e testar no meu sistema, mas a principio e isso mesmo que eu estava procurando.
obrigado
Clique aqui para fazer login e interagir na Comunidade :)