局域网读取文件

Question

按这样的格式，读取带"$"的路径是失败的。比如：“\\Home\file$\temp\a.txt”
var f:file;s:String;
begin
  try
    AssignFile(f, AFileName);
    Reset(f, 1);
    ReadLn(f,s);
  finally
    CloseFile(f);
  end;
end;有没有什么高招？

Answer 1

写错了。
var f:file;
begin 
  try 
    AssignFile(f, AFileName); 
    Reset(f, 1); 
    BlockRead(f,xxxxxx//这里用的其实是BlockRead
  finally 
    CloseFile(f); 
  end; 
end; 

Answer 2

  var n:Integer;Stream:TFileStream;
  begin
    Stream:=TFileStream.Create(AFileName,fmOpenRead);
    try
      n:=stream.Size div SizeOf(TWnStockHistoryQuoteItem);
      SetLength(ADiskHisData,n);
      stream.ReadBuffer(pointer(@ADiskHisData[0])^, n * SizeOf(TWnStockHistoryQuoteItem));
    finally
      Stream.free;
    end;
  end;结贴。