1 Topic by agatlogic101 (edited by agatlogic101 2019-06-20 15:18:55)

  • Registered: 2018-11-13
  • Posts: 299

Topic: скрипт

был скрипт


procedure data_TableGrid3_OnChange (Sender: TObject);
var
i, Ii, cR, cC,k, l: integer;
sID: string;
begin
cR := data.TableGrid3.RowCount - 1;
cC := data.TableGrid3.Columns.Count -1;
data.TableGrid3.BeginUpdate;
for i := 0 to cR do
   begin
      if (StrToDate(data.TableGrid3.Cells[1,i])- Date <=0) and (StrToDate(data.TableGrid3.Cells[1,i])- Date >=0)   then
        begin
          for Ii:=0 to Cc do data.TableGrid3.Cell[Ii,i].Color := clAqua;
        end;
        if (Date - StrToDate(data.TableGrid3.Cells[1,i]) >0) then
        begin
          for Ii:=0 to Cc do data.TableGrid3.Cell[Ii,i].Color := $006F6FFF;
        end

   end;
   data.TableGrid3.EndUpdate;
end;

1)Поменял в таблицу параметр Дата на Дата/время
скрипт перестал работать, что нужно исправить теперь или дописать?
...
2)И возникнет ли ошибка скрипта, если в параметре Дата/время время будет 00.00.00 что не будет считаться программой как Датавремя, а будет просто датой. То есть скрипт должен отображать как просто столбик с датой, если время не выбранно, так и Дата/время. Возможно этой проблемы и не будет, просто предположение. Так что если последний абзац не понятен, думаю не стоит вдумываться в него

  • Registered: 2014-02-14
  • Posts: 10,294

Re: скрипт

Попробуйте так

procedure data_TableGrid3_OnChange (Sender: TObject);
var
    i, Ii, cR, cC,k, l: integer;
    sID: string;
begin
    cR := data.TableGrid3.RowCount - 1;
    cC := data.TableGrid3.Columns.Count -1;
    data.TableGrid3.BeginUpdate;

    for i := 0 to cR do
    begin
        if (data.TableGrid3.Cell[1,i].AsDateTime - Date <= 0) and (data.TableGrid3.Cell[1,i].AsDateTime - Date >= 0) then
        begin
          for Ii:=0 to Cc do data.TableGrid3.Cell[Ii,i].Color := clAqua;
        end;
        if (Date - data.TableGrid3.Cell[1,i].AsDateTime >0) then
        begin
          for Ii:=0 to Cc do data.TableGrid3.Cell[Ii,i].Color := $006F6FFF;
        end
   end;

   data.TableGrid3.EndUpdate;
end;
Dmitry.
  • Registered: 2014-02-14
  • Posts: 10,294

Re: скрипт

agatlogic101 wrote:

2)И возникнет ли ошибка скрипта, если в параметре Дата/время время будет 00.00.00 что не будет считаться программой как Датавремя, а будет просто датой. То есть скрипт должен отображать как просто столбик с датой, если время не выбранно, так и Дата/время. Возможно этой проблемы и не будет, просто предположение. Так что если последний абзац не понятен, думаю не стоит вдумываться в него

К сожалению не понял, о каком точно параметре идет речь.

Dmitry.