var b:array of byte;
; ; fname:string;
; ; fsize,i:integer;
; ; fstream:tfilestream;
begin
; ; ; ; fstream := tfilestream.create(FileName,fmOpenRead);
; ; ; ; fsize := fstream.size;
; ; ; ; fstream.Seek(0,soFromBeginning);
; ; ; ; setlength(b,fsize);
; ; ; ; for i:= 1 to fsize do
; ; ; ; begin
; ; ; ; ; fstream.Read(b[i-1],1);
; ; ; ; end;
; ; ; ; fstream.Free; ; ; ; ;
end;
代码中filename变量表示了要读取文件的名称，byte类型数组ｂ存储了文件的内容。
