lazarus强制将待写入数据保存到磁盘

       网友三星发现在树莓派用lazarus编写的软件保存日志后马上断电，需保存的数据会丢失，但如果保存后过10秒后再断电（人为断电），数据不会丢失。
       数据丢失原因：操作系统实现某些文件I/O时（如磁盘文件），为了保证I/O的效率，在内核通常会用到一片专门的区域（内存或独立的I/O地址空间）作为I/O数据缓冲区。应用程序可以将这片内核区域看成是I/O数据的一个快速中转站。当调用write()函数写出数据时，数据一旦写到该缓冲区，函数便立即返回。此时写出的数据可以用read()读回，也可以被其他进程读到，但是并不意味着它们已经被写到了外部永久存储介质上，即使调用close()关闭文件后也可能如此。
        他最后在lazarus论坛找到解决方法，使用sysutils单元的FileFlush（在linux调用fpfsync，win调用FlushFileBuffers）强制将在保存的数据马上写入磁盘等介质。

function FileFlush(Handle: THandle): Boolean; 
{$IFDEF MSWINDOWS}
begin
  Result:= FlushFileBuffers(Handle);
end;
{$ELSE} 
begin
  Result:= (fpfsync(Handle) = 0);
end; 
{$ENDIF}

var
  fs: TFileStream;
............
// 写
............
  FileFlush(fs.Handle);