Page Comparison

...

1. Adicione no script:

   Code Block
   language pas
   Uses uStringCache;

2. Para adicionar um valor no cache:

   Code Block
   language pas
   // RAIZ, CHAVE são os campos utilizados para identificar // e posteriormente recuperar o valor guardado // o valor guardado sempre será uma string; TStringCache.SetCacheString('RAIZ', 'CHAVE', 'valor a ser guardado');

3. Para recuperar um valor do cache:

   Code Block
   language pas
   var Valor : String; begin TStringCache.GetCacheString('RAIZ', 'CHAVE', Valor); ShowMessage(Valor); end;

4. Para limpar o cache:

   Code Block
   language pas
   TStringCache.Clear;

5. Para retornar o cache em um TvsClientDataset:

   Code Block
   language pas
   var cds : TvsClientDataset; cRoot : String; cChave : String; cValor : String; begin cds := TvsClientDataset.Create(nil); cds.Data := TStringCache.GetCacheData; cRoot := cds.FieldByName('Root').AsString; cChave := cds.FieldByName('Chave').AsString; cValor := cds.FieldByName('Valor').AsString; end;

6. Para remover um valor do cache:

   Code Block
   language pas
   TStringCache.RemoveCacheString('RAIZ', 'CHAVE');

7. Para verificar se o cache esta vazio:

   Code Block
   language pas
   if TStringCache.IsEmpty then ShowMessage('Cache esta vazio!!');

...