in Tabellenreihe Zahlen auf Anzahl prüfen

[Al Ex]

Hallo,

ich hab eine Tabellenreihe erstellt (1*7) und möchte nun, wenn die zahl schon in der reihe vorkommt, dass ne Messagebox erscheint.
Ich bekomme das leider nur mit "ungleich" hin und verstehe die Sudoku Quelltexte, die ja auch so etwas enthalten müssen, hier im Forum nicht so ganz.
Gibt es eine bessere Möglichkeit?

Viele Grüße

Alex

[HannosG]

Womit hast du die Tabellenreihe erstellt?

Delphi-Quellcode:

Anzahl:=0;
For I:=1 to 7 do If Tabellenreihenarray[I]=DieZahl then
  begin
  Inc(Anzahl); //Anzahl um 1 erhöhen
  ShowMessage('Treffer');
  end;

Vielleicht etwa so?

[Al Ex]

Habs mit TStringgrid erstellt. Deine Methode ist genial. Danke!