RETORNAR O MENOR VALOR MAIOR QUE ZERO

20/11/2015

4

Boa noite,

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
Responder

Posts

21/11/2015

P2

Post sua função qui
Responder

21/11/2015

Mateus Ribeiro

Boa tarde!

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!
Responder

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
Responder

23/11/2015

Mario Oliveira

Bom dia a todos,

desculpa pela demora do retorno, vou implementar e testar no meu sistema, mas a principio e isso mesmo que eu estava procurando.

obrigado
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira