Topic: Что не так со скриптом
Надо, чтобы в таблице окрашивались просроченные дни, но скрипт упорно выдаёт ошибку на строке
if StrToDate(MainFrm.tablegrid3.Cells[2, vrow]) < Now - 1 then
Что не так то?
procedure MainFrm_TableGrid3_OnChange(Sender: string);
var
vrow, vcolumn: integer;
begin
for vrow := 0 to MainFrm.tablegrid3.RowCount - 1 do
begin
if StrToDate(MainFrm.tablegrid3.Cells[2, vrow]) < Now - 1 then
begin
for vcolumn := 0 to MainFrm.tablegrid3.Columns.Count - 1 do
begin
MainFrm.tablegrid3.Cell[vcolumn, vrow].TextColor := clRed;
end;
end;
end;
MainFrm.TableGrid3.Columns[0].Header.Multiline := True; // enables multiline header in the specified column
MainFrm.TableGrid3.Columns[3].Header.Multiline := True;
MainFrm.TableGrid3.HeaderSize := 36; // sets the height of the header
MainFrm.TableGrid3.BestFitColumns(bfBoth); // automatically adjusts the column width based on cell contents and column names
end;
последние 4 строки можно не смотреть.