var
count, i :integer;
buf :pchar;
SFile :TMemoryStream; begin
SFile:=TMemoryStream.Create;
Sfile.LoadFromFile('aa.dat');
sfile.Read( count ,sizeof(count) ); //这行看不懂是什么意思???
getmem(buf,count);//----------------------
下面Classes.pas里面的定义:
function TCustomMemoryStream.Read(var Buffer; Count: Longint): Longint;var Buffer 参数是什么意思?为什么要这样定义呢??
count, i :integer;
buf :pchar;
SFile :TMemoryStream; begin
SFile:=TMemoryStream.Create;
Sfile.LoadFromFile('aa.dat');
sfile.Read( count ,sizeof(count) ); //这行看不懂是什么意思???
getmem(buf,count);//----------------------
下面Classes.pas里面的定义:
function TCustomMemoryStream.Read(var Buffer; Count: Longint): Longint;var Buffer 参数是什么意思?为什么要这样定义呢??
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货