delphi 自定义结构体写入本地文件作为缓存_fdmemtable 保存到文件

客户端有时候要存一些自定义的结构体缓存数据，

一般可以用fdmemtable或clientdataset

也可以直接把结构体记录写入文件

下面就是直接写文件的例子

写入文件

 
type
 TPMemRsCode = ^TMemRsCode ; 
 
type 
   TMemRsCode = record
    sname: string[32];
    age: integer;
 
 
end
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
function AppendDataToFile(prItem: TPMemRSCode): Boolean;
var
  iCount: Integer;
  FWrite: file of TMemRsCode ;
  strTargetName: String;
  stemp: string;
begin
  Result := False;
  if prStockItem = nil then Exit;
  if not DirectoryExists(GetAppPath+'\LocalData\Code\') then
  begin
    ForceDirectories(GetAppPath+'\LocalData\Code\');
  end;
  stemp := FormatDateTime('yyyymmdd',Date) + '.tmp';
  strTargetName := GetAppPath+ '\LocalData\Code\' + stemp;
  try
    try
      AssignFile(FWrite,strTargetName);
      if FileExists(strTargetName) then
      begin
        Reset(FWrite);
        iCount := FileS