Vergleich von zwei eindimensionalen Arrays

[mkinzler]

Zitat:

// Übrigens immer true, wenn i gleich j !

Selbiges gilt für
if v = true -> if v then Deine Ausgabe ist ja ausserhalb der geschachtelten Schleife, sowohl i, wie auch j haben also immer die maximalen Werte und nicht die Werte bei denen die Inhalte der Arrays übereinstimmen.

[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

[mkinzler]

Niemals auf false abprüfen!
if not v then ShowMessage('Keine Gemeinsamkeiten.');

[Klaus01]

v ist ausserhalb der Methode nicht bekannt.

Wenn eine Gemeinsamkeit gefunden wurde, kannst Du die Routine mit exit/break verlassen.

Grüße
Klaus

[Delphi.Narium]

Eventuell sowas? (nur hingedaddelt und ungetestet)

Delphi-Quellcode:

procedure TForm1.b_vergleichClick(Sender: TObject);
const
  csErfolg = 'Es gibt eine Übereinstimmung in beiden Arrays! ' + #13
           + 'Es handelt sich um den Wert %d, ' + #13
           + 'der sich in Array 1 an Position %d ' +#13
           + 'und in Array 2 an Position %d befindet.';
  csMisserfolg = 'Es gibt keine Übereinstimmung in beiden Arrays. ' + #13
               + 'Generiere doch einfach zwei neue Arrays!';
var 
  v : boolean;
  s : String;
begin
  for i := 1 to 5 do begin
    for j := 1 to 5 do begin
      v := arr1[i] = arr2[j];
      if v then break;
    end;
    if v then break;
  end;
  case v of
    true : s := Format(csErfolg,[arr1[i],i,j]);
    false: s := csMisserfolg;
  end;
  ShowMessage(s);
end;

[mkinzler]

Warum ein case? Einen Boolean nie auf false abprüfen!!!!

Delphi-Quellcode:

  if v 
    then 
      s := Format(csErfolg,[arr1[i],i,j])
    else 
      s := csMisserfolg;

[Delphi.Narium]

Zitat von mkinzler:

Warum ein case? Einen Boolean nie auf false abprüfen!!!!

Delphi-Quellcode:

  if v 
    then 
      s := Format(csErfolg,[arr1[i],i,j])
    else 
      s := csMisserfolg;

weils kürzer aussieht

Delphi-Quellcode:

case v of
  true : s := Format(csErfolg,[arr1[i],i,j]);
else   
  s := csMisserfolg;
end;

Besser?