zahlen in zwei stringgids vergleichen (lotto)

[Molzer]

Hallo!

habe zwei stringgrids wo je 6 zahlen(eingetippt und zufall) stehen, diese würde ich jetzt gerne vergleichen.
dazu habe ich mir überlegt ich suche von den getippten in den zufalls zahlen,und gebe sie im einem tedit aus.

bin gerade beim suchen lernen und tue mir schwer..

Delphi-Quellcode:

begin
    x:=0;
    for i := 1 to 6 do
      begin if StringGrid1.Cells[1,0]=StringGrid2.Cells[i,0] then
      x:=x+1
      end;
      begin if StringGrid1.Cells[2,0]=StringGrid2.Cells[i,0] then
      x:=x+1

für die erste zelle würde das ja gehen aber bei der zweiten steh ich schon an..
wird sicher noch etwas einfacheres geben..

vielleicht kann mir jemand einen ansatz geben...

fg

[Molzer]

so siehts aus

[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);

[Molzer]

das ist für mich als anfänger noch etwas zu hoch.. leider..
bin gerade etwas mit true and false zu konstruieren :lol:
fg

[DeddyH]

Das war sowieso nicht ganz richtig, müsste wohl eher so heißen:

Delphi-Quellcode:

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