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

[maximi]

Hallo,
ich habe zwei Arrays, das eine hat 3 und das andere 35 Elemente. Wie kann ich prüfen ob sich alle 3 Elemente irgendwo im anderen Array befinden?

Max

[Ultimator]

Hi, darf ich dir das hier empfehlen?

[maximi]

Also ich weiß noch nicht so recht, wie ich da mit meinen Arrays herangehen soll!?
Da stand irgendwo auf deiner tollen Seite
A: set of Byte = [1, 3, 5, 7]; und "of Byte" durch "Array" ersetzen geht schon einmal nicht und das
anlagen.gleiche_art in spieler.anlagen auch nicht.
Also irgendwo fehlt mir der Ansatz!

Max

[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

[maximi]

Thx, es funktioniert!

Max