Új hozzászólás Aktív témák

• #90999040 törölt tag

  #1422

  #1421 ArchElf

  2011-09-17 13:09:47

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  #90999040

  törölt tag

  #1421 ArchElf

  Ez így tökéletesen működik:

  Class RelStore
  'Cache Time 5 min
  
  Private d_Timer
  Private b_Member
  Private b_Init
  Private VALIDITY
  
  Private Sub Class_Initialize
  VALIDITY = 300
  d_Timer = 0
  b_Member = False
  b_Init = False
  End Sub
  
  Public Function Initialize(Membership)
  d_Timer = Timer
  b_Member = Membership
  b_Init = True
  End Function
  
  Public Sub Invalidate()
  Class_Initialize
  End Sub
  
  Public Function IsMember()
  IsMember = b_Member
  End Function
  
  Public Function IsValid()
  IsValid = (b_Init AND ((Timer > d_Timer + VALIDITY) OR (Timer < d_Timer)))
  End Function
  End Class
  
  Set rs = new RelStore
  DebugWrite rs.isvalid

  Szerintem ez: htCache(SearchString) nem RelStore classt ad vissza.

Új hozzászólás Aktív témák