Zellen eines StringGrids automatisch markieren [erledigt]

[Passi]

Guten Morgen,

danke für deine Hilfe, aber ich saß gestern noch bis spät in der Nacht dran und habe es dann doch noch gelöst bekommen. und zwar hab ich das mit einer while-schleife gemacht:

Delphi-Quellcode:

i := 1;
Form1.Query2.Active:=false;
Form1.Query2.Sql.Clear;
Form1.Query2.Sql.Add('SELECT DISTINCT(Bereich) FROM adressen.db ORDER BY Bereich ');
Form1.Query2.Active:=true;
anz := Form1.query2.RecordCount;
while NOT (Form1.query2.fieldbyname('Bereich').asstring = combobox1.text) do
   begin
      i := i+1;
      Form1.Query2.Next;
   end;

Die Schleife wird also so oft ausgeführt bis der Eintrag der Datenbank mit dem Inhalt des Feldes ComboBox1 übereinstimmt. Die Markierung setze ich dann mithilfe der Variablen i folgender Maßen:
StringGrid1.Selection := TGridRect(Rect(1,1,1,i))); markiere ich dann die entsprechende Zeile.

Gruß Pascal