我在看一些别人的代码时,经常看到这个函数的。我看帮助后,还是不能理解,请哪位高手指点一下,该函数的用途,另外,最好能给出相关的例子,谢谢。
解决方案 »
- 如何实现抓取屏幕变化的部分,以实现快速远程控制的目的?
- 视频播放的时候如何用程序抓住图片(急)
- 数据导进导出问题
- 谁有 PsFRExportFilters 控件的最新注册版?万分感谢!!!
- 双击文件夹 运行程序
- 关系表的概念问题,很简单的,小妹在线等待。
- 紧急求救!请问大家知道那里有MAPINFOY方面的资料可以DOWN!
- 我刚结婚,需要2000元投资我的爱机,但厨师出身的老婆不同意,怎么办,大家别出点好点子,别开玩笑,
- 怎样使listview的显示效果象网络蚂蚁的那样,就是一行一行不同的颜色
- 图形高手:请问如何将Bmp或Jpeg文件转换成3dHome的格式文件,有大批量的图需要转换?
- ★500分★!求用indy模拟html的post提交,上传文件流到服务器的代码!
- 怎么让自定义的属性在Object inspector出现下拉框?
var
f: file of Byte;
size : Longint;
S: string;
y: Integer;
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
size := FileSize(f);
S := 'File size in bytes: ' + IntToStr(size);
y := 10;
Canvas.TextOut(5, y, S);
y := y + Canvas.TextHeight(S) + 5;
S := 'Seeking halfway into file...';
Canvas.TextOut(5, y, S); y := y + Canvas.TextHeight(S) + 5;
Seek(f,size div 2); //指针移至文本f中间位置
S := 'Position is now ' + IntToStr(FilePos(f));
Canvas.TextOut(5, y, S);
CloseFile(f);
end;
end;
将文件流f的当前指针定位在N的位置procedure TForm1.Button1Click(Sender: TObject);var
f: file of Byte;
size: Longint;
S: string;
y: Integer;
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);//打开文件并将其赋给f
Reset(f);//因为当上一条语句结束后,他的当前指针已经指向文件尾,所以必须使用此语句将文件的当前指针指到初始位置0
try
size := FileSize(f);
S := 'File size in bytes: ' + IntToStr(size);
y := 10;
Canvas.TextOut(5, y, S);
y := y + Canvas.TextHeight(S) + 5;
S := 'Seeking halfway into file...';
Canvas.TextOut(5, y, S); y := y + Canvas.TextHeight(S) + 5;
Seek(f, size div 2);//将f的当前指针指向1/2文件大小的位置
S := 'Position is now ' + IntToStr(FilePos(f));
Canvas.TextOut(5, y, S);
finally
CloseFile(f);
end;
end;
end;