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

[Die Muhkuh]

Wie wäre es mit Pos?

[SaFu]

damit habe ich es ja schon versucht aber tut nicht

[Die Muhkuh]

Wie hast Du es denn versucht?

[mkinzler]

Dann zeig mal den Code, der nicht funktioniert,
Wo prüfst du ?

[SaFu]

moment noch versuche das wieder hinzubekommen

[Die Muhkuh]

Lass Dir Zeit. Vielleicht siehst Du den Fehler ja, den Du gemacht hast :)

[DeddyH]

Delphi-Quellcode:

if Pos('aa/', LowerCase(Cells[ACol, ARow])) = 1 then...

Müsste doch gehen, oder?

[SaFu]

Ja funktioniert es so halb wie ich es haben will

Hab es vorher ungefähr so versucht bekomm es aber nicht mehr hin was totaler schwachsin war wenn ich das jetzt so mitbekomme :oops:

Delphi-Quellcode:

if Pos(LowerCase(cells[acol,ARow]='aa')

[Die Muhkuh]

Naja, F1 auf Pos hätte Dir gesagt, was zurück gegeben wird. :zwinker:

http://static.manuel-rauber.de/pics/dp/f1help.gif