大概做法是:
var
pchSql:pchar;
with TFileStream.Create(FileName, fmOpenRead) do
try
SetLength(pchSql, Size);
Read(Pointer(pchSql)^, Size)
finally
Free;
end;
可是怎么seek我写不好
var
pchSql:pchar;
with TFileStream.Create(FileName, fmOpenRead) do
try
SetLength(pchSql, Size);
Read(Pointer(pchSql)^, Size)
finally
Free;
end;
可是怎么seek我写不好
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货