Kreuzworträtsel

[DeddyH]

Könnte die Bedingung

Zitat:

if SGridKreuzwort.Cells[i,j] = FrageNr then

evtl. mehrfach zutreffen? Suchst Du in dem Fall nur nach dem ersten Treffer? Das könnte zumindest ein Anhaltspunkt sein, da Deine For-Schleifen ja trotzdem weiter abgearbeitet werden.

[Noobmaster]

Delphi-Quellcode:

   for i := 0 to SGridKreuzwort.ColCount - 1 do
      for j := 0 to SGridKreuzwort.RowCount - 1 do
         if SGridKreuzwort.Cells[i,j] = FrageNr then
         begin
            SGridKreuzwort.Col := (i + Horizontal);
            SGridKreuzwort.Row := (j + Vertikal);
            {SGridKreuzwort.Update;
            SGridKreuzwort.Repaint;}
            break; //Schleife abbrechen, da Kästchen gefunden
         end;

Auch mit "break;" tritt der Fehler immer noch auf. Ich habe jetzt mal im OnDrawCell-Ereignis
if SGridKreuzwort.IsSelected[aCol,aRow] ersetzt mit
if (ACol = SGridKreuzwort.Col) and (aRow = SGridKreuzwort.Row) Scheint zu funktionieren.

Was mich allerdings stutzig macht, ist die Tatsache dass ich in den OnClick-Ereignissen der beiden Listboxen die Prozedure GeheZuMarkierterFrage() 2x aufrufen muss...