AW: Vergleich von zwei eindimensionalen Arrays
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; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:41 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz