Einzelnen Beitrag anzeigen

Passi

Registriert seit: 3. Apr 2004
6 Beiträge
 
#7

Re: Zellen eines StringGrids automatisch markieren

  Alt 4. Apr 2004, 10:57
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
  Mit Zitat antworten Zitat