also meine schleife sieht jetzt so aus nur in der zeile wo der wert über 200 ist färbt er die zeile nicht rot was er eigentlich machen sollte ...
Delphi-Quellcode:
procedure TKndT.StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var i : Integer;
begin
for I := 1 to stringgrid2.rowcount - 1 do
begin
if StrToFloat(Stringgrid2.Cells[4,i]) >= 200 then begin
StringGrid1.Canvas.Brush.Color := clred;
StringGrid1.Canvas.FillRect(Rect);
end;
end;
end;
wo liegt mein fehler ? ich finde ihn nicht
schonmal vielen dank