Zelle wird nicht gefärbt

[SaFu]

Guten abend

Hab mal folgendes Problem

Ich färbe meine Zelle mit der eingabe von Strings und zwar so

Delphi-Quellcode:

  if LowerCase(GetLowerValue(ACol, ARow)) = 'np' then
   begin
    StC.Brush.Color  := sNPColor; //Zellenfarbe unterer Teil
    StC.Font.Color := sNPFontColor; //Schriftfarbe
    StC.Font.Style := StC.Font.Style + [fsBold]; //Text fett
   end;

ist das Kürzel np eingegeben Färbt sich die Zelle in der eingestellten Farbe.
Schreibe ich den String in eine Variable funzt das ganze nicht mehr warum??

Delphi-Quellcode:

 if LowerCase(Cells[ACol, ARow]) = sKuerzelLeer1 then // hier die Variable
  begin
   StC.Brush.Color := sColorLeer1; //Zellenfarbe
   StC.Font.Color := sLeer1FontColor; //Schriftfarbe
   StC.Font.Style := StC.Font.Style + [fsBold]; //Text fett
  end;

[mkinzler]

Versuch es mal mit LowerCase( Trim( sKuerzelLeer1))

[SaFu]

nee daran liegt es auch nicht

[mkinzler]

Was macht GetLowerValue()?

[SaFu]

Upss

Meine Zellen sind geteilt und damit wirds geprüft aber eigentlci heist es auch so

Delphi-Quellcode:

 if LowerCase(Cells[ACol, ARow]) = 'np' then
  begin
   StC.Brush.Color := sNPColor; //Zellenfarbe
   StC.Font.Color := sNPFontColor; //Schriftfarbe
   StC.Font.Style := StC.Font.Style + [fsBold]; //Text fett
  end;

[mkinzler]

Dann lass dir mal im Debugger beides anzeigen

[SaFu]

Wird alles korekt aus gegeben

Und die Variable hat auch den richtigen wert befor die abfrage kommt??

Ich bin echt ratlos

mit einem Direkten string funzt es 'Test';

[SaFu]

Also ich glaube das leigt an diesem Delphi hab wirklich nichts um geproggt und jetzt geht es auf einmal

Hoffe das passiert nicht nochmal