TStringCache

Para facilitar a troca de informações entre telas, foi implementada dentro do VsScripter a classe TStringCache.

\uD83D\uDCD8 Instruções

Para utilizar a classe TStringCache em seu script:

1. Adicione no script:

   Uses
     uStringCache;

2. Para adicionar um valor no cache:

   // 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:

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

4. Para limpar o cache:

   TStringCache.Clear;

5. Para retornar o cache em um TvsClientDataset:

   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:

   TStringCache.RemoveCacheString('RAIZ', 'CHAVE');

7. Para verificar se o cache esta vazio:

   if TStringCache.IsEmpty then
     ShowMessage('Cache esta vazio!!');