procedure OpenContainer(f : boolean);

[SaNeK]

Уверен многим известна эта процедура, которая определяет был ли дисконнект и сравнивает время и дату коннекта и последнего открытия пака.

Code: Select all

//***************************************************************
//ПРОВЕРЯЕТ ОТКРЫТ ЛИ КОНТЕЙНЕР?
//***************************************************************
   procedure OpenContainer(f : boolean); 
   var
   LastContOpen : TDateTime; 
   begin 
      waitconnection; 
      if (f = true) or (LastContOpen < ConnectedTime) then 
      begin 
         UseObject(MainBox); 
         wait(1000); 
         LastContOpen := Now; 
         addtosystemjournal('Контейнеры открыт в ' + DateTimeToStr(Now)); 
      end; 
   end; 

так вот, логически все правильно, дело в том, что переход на нее (OpenContainer(false); ) всегда вызывает открытия пака, хоть и небыло дисконнекта.
Подскажите кто что знает по этому поводу. Пользуюсь 3им релизом

[CFA]

LastContOpen : TDateTime - локальная переменная. получается, что при вызове функции она всегда 0 и конечно при этом всегда меньше ConnectedTime.