读出文件长度

　　var
f: file of Byte;
size : Long;
begin
AssignFile(f, f:\t.exe);
Re(f);
size := FileSize(f);
edit1.text := IntToStr(size);
CloseFile(f);
end;

　　或:

　　var
fh:eger;
fs:long;
begin
fh:=fileopen(文件名,fmopenread);
fs:=fileseek(fh,0,2);
fileclose(fh);
end;

　　 2 将串用 2进制模式写入文件

　　var
filehandle:eger;
filename:;
fn:;
begin
filehandle:=fileopen(filename,fmopenreadwrite);
fileseek(filehandle,i*256,0);
getmem(buffer,300);
try
strpcopy(buffer,fn);
filewrite(filehandle,buffer^,256);
finally
freemem(buffer);
end;
fileclose(filehandle);
end;

　　 3 使用readln从文件中读出超过255字串

　　Type
{use longest line you may encounter here}
TLine = Array [0..1024] of Char;
PLine = ^TLine;
Var
pBuf: PLine;
...
New( pBuf );
...
ReadLn( F, pBuf^ );

　　 4 向文本文件后追加行

　　var
filevar: textfile;
buf:;
begin
assignfile(filevar,txt.log);
append(filevar);
writeln(filevar,buf);
closefile(filevar);
end;