Vergleich von zwei eindimensionalen Arrays

[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?

[DeddyH]

Nein, auf true zu prüfen ist sogar noch schlimmer.

[Delphi.Narium]

Nachdem ich dashier Über den Umgang mit Boolean gelesen habe, habt Ihr mich überzeugt:

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
  s := csMisserfolg;
  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;
  if v then s := Format(csErfolg,[arr1[i],i,j]);
  ShowMessage(s);
end;