| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
Tuc_sjc
Novato
Registrado: Terça-Feira, 24 de Outubro de 2006
Mensagens: 61
|
 Enviada: Qui Ago 28, 2008 8:13 am Assunto: Verificar item igual em um vetor |
 |
|
Galera alguém sabe se exites uma função ou como faço para verificar se existe algum valor igual em um vetor com valores inteiros?
Por exemplo um vetor de 10 posições ele não poderia ter nenhum valor igual em nenhuma das posições.
Valew Galera!  |
|
| Voltar ao Topo |
|
 |
gilsonnrodrigues
Moderador
Registrado: Quinta-Feira, 14 de Abril de 2005
Mensagens: 9009
Localização: Governador Valadares-MG
|
| Enviada: Qui Ago 28, 2008 9:32 am Assunto: |
|
|
| Código: | function ExisteDuplicidade(Vetor : array of integer) : Boolean;
var
Ini, Fim, I, J : Integer;
begin
Ini := Low(Vetor);
Fim := High(Vetor);
for I := Ini to Fim do
for J := I + 1 to Fim do
if Vetor[I] = Vetor[J] then
begin
Result := True;
Exit;
end;
Result := False;
end; |
|
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
