如何将文件转换成Variant数组

Question

现在写一个Function
参数为FileName:string
返回值的类型为Variant类型
如何实现
function FileToVariantArray(const FileName:string):variant
begin
//实现代码end

Answer 1

用個 TMemoryStream 讀完, 再用 wirtebuf寫到Variant类型就可!

Answer 2

哪有这么简单的？想当然吧？
应该是
function FileToVariantArray(const FileName:string):variant;
var
  fs: TFileStream;
  p: Pointer;
begin
  fs := TFileStream.Create(FileName, fmOpenRead);
  try
    Result := VarArrayCreate([0,fs.Size-1], varByte);
    p := VarArrayLock(Result);
    try
      fs.ReadBuffer(p^, fs.Size);
    finally
      VarArrayUnLock(Result);
    end;
  finally
    fs.Free;
  end;
end;end