Comaprar dois vetores

Delphi

04/05/2004

Pessoal,

Tenho dois vetores:
vet1 = [A,B,C,D]
vet2 = [B,D,E,F]

Preciso fazer com que nos dois vetores só aparecem as strings que não são comuns para os dois.

Ficaria assim:

vet1 = [A,C]
vet2 = [E,F]

Alguém sabe como eu faço isso?

Obrigada,

Fernanda


Feberaldo

Feberaldo

Curtidas 0

Respostas

Beppe

Beppe

04/05/2004

Isto não é difícil. Basta copiar cada array para outros arrays, já que os items deletados serão depois necessários.

Por ex:
- copia o array vet1 para o array t1;
- percorre cada item de vet1, procurando por ele em vet2;
- se um item for encontrado, deletá-o de vet1

Para deletar o índice i em um vetor v, faça q um loop copie os items após i uma posição para a esquerda: v[i] := v[i+1], v[i+1] := v[i+2]...

A parte disso, se vc puder implementar com TStringList, um tando mais fácil...


GOSTEI 0
POSTAR