Nach gewisser länge Zelle färben

[SaFu]

Hallo

Und zwar habe ich folgendes Problem ich lasse eine Zelle im StringGrid färben, je nach dem ob ein spezieller fester String in der Zelle steht.

Jetzt wollte ich aber prüfen ob in der zelle bis zur 3 stelle der String steht wenn ja soll sie gefärbt werden

Also gefärbt wird zurzeit bei aa/ und wenn jetzt aa/xy steht wird die zelle nicht gefärbt also soll geprüft werden ob aa/ in den ertsen 3 stellen steht wenn ja wird die zell gefärbt.

so mach ich es zur zeit

Delphi-Quellcode:

if LowerCase(GetUpperValue(ACol, ARow)) = 'aa/' then 
  begin
   UpperBrushColor := sAAColor; //Zellenfarbe oberer Teil
   UpperFontColor := sAAFontColor; //Schriftfarbe
   Canvas.Font.Style := Canvas.Font.Style + [fsBold]; //Text fett
  end;

 if LowerCase(GetUpperValue(ACol, ARow)) = 'aa' then
  begin
   SetupperValue(Acol,ARow,'aa/');
   UpperBrushColor := sAAColor; //Zellenfarbe oberer Teil
   UpperFontColor := sAAFontColor; //Schriftfarbe
   Canvas.Font.Style := Canvas.Font.Style + [fsBold]; //Text fett
  end;

 if LowerCase(Cells[ACol, ARow]) = 'aa' then
  begin
   Cells[ACol, ARow]:= 'aa/';
   Canvas.Brush.Color := sAAColor; //Zellenfarbe
   Canvas.Font.Color := sFAFontColor; //Schriftfarbe
   Canvas.Font.Style := Canvas.Font.Style + [fsBold]; //Text fett
   StringGrid1.SplitCellHor(Acol, ARow);
  end;

Im bild sieht man es besser

Gruß Sascha