Fórum RETORNAR O MENOR VALOR MAIOR QUE ZERO #537768
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
Curtir tópico
+ 0Posts
21/11/2015
Raimundo Pereira
Gostei + 0
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!
Gostei + 0
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
Gostei + 0
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
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)