redis缓存数据表

直观上看，数据库中的数据都是按表存储的；更微观地看，这些表都是按行存储的。每执行一
次select查询，数据库都会返回一个结果集，这个结果集由若干行组成。所以，一个自然而然
的想法就是在Redis中找到一种对应于数据库l行的数据结构。Redis中提供了五种基本数据结构
，即字符串（string）、列表（list）、哈希（hash）、集合（set）和有序集合（sorted
set）。经过调研，发现适合存储行的数据结构有两种，即string和hash。
要把数据库的行数据存入string，首先需要对行数据进行格式化。事实上，结果集的
每一行都可以看做若干由字段名和其对应值组成的键值对集合。这种键值对结构很容易让我们
想起Json格式。因此，这里选用Json格式作为结果集每一行的格式化模板。根据这一想法，我
们可以实现将结果集格式化为若干Json对象，并将Json对象转化为字符串存入Redis。

要把数据库的行数据存入hash，过程要比把数据存入string直观很多。这是由hash的结构性质 

决定的——hash本身就是一个键值对集合：一个“父键”下面包含了很多“子键”，每个“子 

键”都对应一个值。根据前面的分析可知，结果集中的每一行实际上也是键值对集合。用
Redis键值对集合表示数据库键值对集合应该再合适不过了：对于结果集中的某一行，字段对应
于hash的“子键”，字段对应的值就是hash“子键”对应的值，即结果集的一行刚好对应一个
hash

Redis hash是一个string类型的field和value的映射表.一个key可对应多个field，一个field对应一个value。将一个对象存储为hash类型，较于每个字段都存储成string类型更能节省内存。

procedure TForm2.Button1Click(Sender: TObject);
var
  lData: TRedisString;
  lCacheKey: string;
  lStream: TStringStream;
begin
  lCacheKey := 'goods';
  lStream := TStringStream.Create;
  try
    lData := FRedis.GET(lCacheKey);
    if lData.HasValue then
    begin
      lStream.WriteString(lData);
      lStream.Position := 0;
      FDQuery1.LoadFromStream(lStream, sfJSON);
    end
    else
    begin
      FDQuery1.Open('SELECT * FROM tgoods');
      FDQuery1.SaveToStream(lStream, sfJSON);
      lStream.Position := 0;
      FRedis.&SET(lCacheKey, lStream.DataString, 30);
    end;
  finally
    lStream.Free;
  end;
end;