Wenn das Fälligkeitsdatum erreicht ist soll Zelle im Stringgrid rot angezeigt werden

[Waldow]

Hallo, wenn ich die Schleife rausnehme erhalte ich wieder die Fehlermeldung:

Code:

Im Projekt RG.exe ist eine Exception der Klasse EConvertError aufgetreten. Meldung: ''Datum' ist kein gültiges Datum'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.

Das mit dem Datum und der Farbe wird immer noch nicht richtig angezeigt.

Delphi-Quellcode:

 jetzt := Now;
  for i := 1 to AdvStringGrid3.rowcount - 2 do begin
    Datumrechnung := StrToDate(AdvStringGrid3.Cells[9, i]);
    Datumrechungfaellig := StrToDate(AdvStringGrid3.Cells[11, i]);
    Label5.Caption := Format('%d', [DaysBetween(StrToDate(AdvStringGrid3.Cells[9, i]), jetzt)]);
    if strtoint(Label5.Caption) > 14 then abrush.color := clred;
  end;
end;

Oder wie wird bei dir das i gefüllt?

[taaktaak]

Moin, Moin.
Nun, wenn du die Schleife entfernst, aber das i verwendest, dürfte i einen nicht gewollten Wert besitzen. Vermutlich muss für i jetzt Row eingesetzt werden - aber du solltest die gesamte Methode OnDrawCell() mal mit dem aktuellen Stand zeigen...

[rapante]

Hy,

Es wurde jetzt schon mehrfach darauf hingewiesen das eine Schleife an dieser Stelle unnötig ist.

Setz doch einfach mal einen Breakpoint in der procedure und sieh dir an wann diese aufgerufen wird
-> unzwar für jede Zelle 1 mal

Das heisst das du jedesmal wenn eine Zelle gezeichnet wird, in deiner Schleife das komplette Grid durch gehst!

Um die Fehlermeldung zu vermeiden, darfst du die erste Zeile(0) nicht mit verarbeiten:

Delphi-Quellcode:

procedure TFRechnung.AdvStringGrid3GetCellColor(Sender: TObject; ARow, ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
var
  Datumrechnung, Datumrechungfaellig: TDate;
begin
  if ARow <> 0 then // Die Kopfzeile nicht prüfen
  begin
    Datumrechnung := StrToDate(AdvStringGrid3.Cells[9, ARow]);
    Datumrechungfaellig := StrToDate(AdvStringGrid3.Cells[11, ARow]);
    if Datumrechungfaellig = Datumrechnung + 14 then 
      ABrush.color := clred;
  end;
end;

[Waldow]

Hallo,
ich wußte es leider nicht besser aber das half:
if ARow <> 0 then Da das AdvStrigGrid auch einen FloatingFooter hat muss ich jetzt nur noch die letzte Zeile herausfinden dann sollte es keine Fehler mehr geben
Danke für die tolle Hilfe und Geduld.

Gruss
Waldow