Vergleich von zwei eindimensionalen Arrays

[Delphinus1]

Vielen lieben Dank erstmal für die beiden interessanten Hinweise. Leider weiß ich nicht, ob ich damit aber auch wirklich eine praktikable Lösung für mein Problem finden werd.

Es ist wirklich sinnlos, dass ich die Ausgabe nach Beendigung der geschachtelten Schleife machen wollte

Als Konsequenz aus Euren Aussagen würde mir nur Folgendes einfallen (Mittlerweile würde es mir zur Not auch reichen, einfach ausgeben zu lassen, ob eine Gemeinsamkeit vorliegt oder nicht):

Code:

procedure TForm1.b_vergleichClick(Sender: TObject);
var v:boolean;
begin

for i := 1 to 5 do begin
       for j := 1 to 5 do begin
           if  arr1[i] = arr2[j]
                then
                    begin
                         v:=true;
                         ShowMessage('Gemeinsamkeit gefunden.');
break;
                    end
                else
                    begin
                         v:=false;
                    end;
       end;
end;

if v = false then ShowMessage('Keine Gemeinsamkeiten.');

Würde das klappen?

Liebe Grüße