送分问题：TFileStream读取数据

[zhourongbiao]

使用TFileStream如何读取文件开头n个字节并将他们以十六进制形式保存在一个string中？
即：文件开头为0F C4 8D，如果n=3,则str='0F C4 8D'

[zwb666]

ding

[yueyixing]

AssignFile(myFile,edit1.Text); //建立文件关联

try
Reset(myFile); //打开已存在的文件
size:=filesize(myfile);
myFilePos:=size-28; //获取要读取字节的位置
Seek(myFile,myFilePos); //指针定位到指定位置，注意第一个字节的位置为0，以此类推
s:=tstringlist.Create;
for i:=0 to 27 do
begin
Read(myFile,myData); //读取该字节数据
// memo1.lines.add(IntToStr(myData)); //显示数据
s.Add(inttostr(mydata));
end;

[梅青松]

procedure TForm1.Button1Click(Sender: TObject);
var
fs: TFileStream;
FileName: String;
str: String;
buffer: array [0..255] of Char;
begin
FileName := 'C:\a.txt';
if not FileExists(FileName) then
exit;

ZeroMemory(@buffer[1], SizeOf(buffer));
fs := TFileStream.Create(FileName, fmOpenRead);
fs.Seek(0,0);
fs.Read(buffer, SizeOf(buffer));
str := buffer;
ShowMessage(buffer);
end;