关于TFileStream的问题！

Question

ms:=TFileStream.Create('d:\data.txt',fmopenread);
ObjectPascal与C++语法不一样。

Answer 1

var
FileStream:TFileStream;
 BlobStream:TadoBlobStream;   
begin
   FileStream:=TFileStream.Create(opendialog1.FileName,fmOpenRead);
   temptable.Edit;
   BlobStream:=TadoBlobStream.Create(TMemoField(temptable.FieldByName('img_attach')),bmreadWrite);
   BlobStream.Seek(0,soFromBeginning);
   BlobStream.Truncate;
   BlobStream.CopyFrom(FileStream,FileStream.size);
   filestream.Free;
   BlobStream.free;
   temptable.Post;
   end;