tmemorysize的小问题，一上午搞不出，在线等。。。
var
ms: tmemorysize;
size: integer;
begin
ms := tmemorysize.create;
ms.loadfromfile( 'xxx.xxx ');
size := ms.size;
end;
跟了一下，size总为0
后来用seek（0，end）
size=ms.position
也是零：-（




[解决办法]
楼主你从哪搞了一个tmemorysize

这样可以的
procedure TForm1.Button1Click(Sender: TObject);
var
ms: TMemoryStream;
size: integer;
begin
ms := TMemoryStream.create;
ms.loadfromfile( 'c:\OfficeControl.ocx ');
size := ms.size;
ShowMessage(IntToStr(size));
end;
[解决办法]
var
AMS : TMemoryStream;
iSize: Int64;
begin
AMS := TMemoryStream.Create;
AMS.LoadFromFile( 'xxx.xxx ');
iSize := AMS.Size;
ShowMessage (IntToStr(iSize));
end;

请确认xxx.xxx这个文件确实存在。