2 Arrays und prüfen ob sich Elemente vom 2. im 1. befinden

[Binärbaum]

Wie wär's mit array of Byte?
Man lässt dann einfach zwei Schleifen die Indices der Arrays durchlaufen und überprüft auf Übereinstimmung der Werte:

Delphi-Quellcode:

var a, b: array of Byte;//zwei dynamische Arrays
    i, j: Integer;//Laufvariable
begin
  //Arraygröße festlegen
  SetLength(a, 3);
  Setlength(b, 35);
  //hier jetzt irgendwelche Zahlen in die Arrays schreiben
  ...
  for i:= 0 to High(a) do
    for j:= 0 to High(b) do
      if (a[i]=b[j]) then begin
        Showmessage('Wert '+IntToStr(a[i])+ ' ist im Array enthalten!');
        Break;
      end;
end;

MfG
Binärbaum