mysql + stringgrid + farblich markieren

[Jelly]

Dein Grid hat die Eigenschaft Cells[x,y], also ein 2D Array, mit dem Du ja in jede Zelle was reinschreiben kannst.
Und zusätzlich dazu gibts noch das Array Objects[x,y]. Du kannst also jeder Zelle noch ein Objekt zuweisen. Und in dieses Objekt kannst du beliebige Informationen reinschreiben, da es jedes beliebige Objekt sein darf.

Irgendwie durchläufst Du ja deine Query zeilenweise und weist den Inhalt der Zelle zu.. Mach zusätzlich noch eine Objektzuweisung:

Delphi-Quellcode:

type
  TmyObj = class
  public
     StatusID : integer ;
  end ;

...


procedure TForm1.ShowInGrid; 
var i,j: integer; 


begin 
if FMySql.Connected then begin 

  if assigned(FResult) then begin   // <-- Falls eine SQL Abfrage vorliegt 


          Grid.RowCount := FResult.RowsCount+1;  // <-- ZeilenAnzahl 
          Grid.ColCount := FResult.FieldsCount; // <-- SpaltenAnzahl 

          FResult.First; 


           for i:=0 to FResult.RowsCount-1 do begin  // <-- Zeilen durchlaufen 
              for j:=0 to FResult.FieldsCount-1 do  // <-- Spalten durchlaufen 
                    Grid.Cells[j,i+1] := FResult.FieldValue(j); 

              // hier ergänzen
              myObj := TmyObj.create ;
              myObj.StatusID := FResult.FieldByName('StatusID').AsInteger ;
              Grid.Objects[0,i+1] := myObj ; 

              FResult.Next; 
          Statusbar1.Panels[0].Text := IntToStr(Grid.RowCount) + ' Einträge'; 
          end; 
  end 
  else 
    ShowMessage('Keine SQL-Abfrage !'); 

end 
else 
  ShowMessage('Not Connected'); 

end;

Im OnDrawCell Event kannst Du dann auf diese Objekte zugreifen, und entscheiden, in welcher Farbe du zeichnen möchtest.