5,392
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
hanzq 2003-04-13
- 打赏
- 举报
var
F: file;
Size: Integer;
Buffer: PChar;
begin
AssignFile(F, 'test.txt');
Reset(F, 1);
try
Size := FileSize(F);
GetMem(Buffer, Size);
try
BlockRead(F, Buffer^, Size);
ProcessFile(Buffer, Size);
finally
FreeMem(Buffer);
end;
finally
CloseFile(F);
end;
end;
F: file;
Size: Integer;
Buffer: PChar;
begin
AssignFile(F, 'test.txt');
Reset(F, 1);
try
Size := FileSize(F);
GetMem(Buffer, Size);
try
BlockRead(F, Buffer^, Size);
ProcessFile(Buffer, Size);
finally
FreeMem(Buffer);
end;
finally
CloseFile(F);
end;
end;
amartapple 2003-04-07
- 打赏
- 举报
参数和返回值呢
hanzq 2003-04-07
- 打赏
- 举报
getmem()
freemem()
freemem()
