Report schlechte Noten farblich markieren

[calloj]

Noch eine weitere Frage:

Wie lautet der Befehl, wenn nur eine 4- mit einem Formenelement markiert wird?
begin
Shape1.visible:= pos('#' + SchuelerLeistungen['NotenKrz'] + '#', '#4-#') > 0;
end;

Der Befehl (siehe oben) hat bei mir nicht geklappt. Alle Noten werden leider markiert....

[Raffenberg]

z.B. so

Code: Alles auswählen

begin
   if ((DBText1.Text= '5') OR (DBText1.Text= '6')) then
    DBText1.Font.Color := clRed
   else
    DBText1.Font.Color := RGB(0,0,0);
end;

[Raffenberg]

und z.B. so

Code: Alles auswählen

if DBText1.Text= '4-' then 
  Shape1.visible := true 
else 
  Shape1.visible := false;