zahlen in zwei stringgids vergleichen (lotto)

[DeddyH]

Du willst ermitteln, wieviele Richtige das sind? Müsste so funktionieren (aus dem Kopf getippt):

Delphi-Quellcode:

x := 0;
for i := StringGrid1.FixedCols to Pred(StringGrid1.ColCount) do
  if StringGrid2.Rows[0].IndexOf(StringGrid1.Cells[i,0]) > 0 then
    inc(x);