请教一个问题，在线等。。。。

Question

想读取一个文件(fff.exe），假设文件最后960个字节是
aaaaaaaaaaaaaaa
asdfasfasdfas
afhqhqerfqr
qwrehtg
qrtqer
....
怎么把这960字节一行一行读取出来呢？
或读到memo里面呢？
谢谢

Answer 1

qhf503(和风) 给个示例看下行吗？

Answer 2

要读的是exe文件而不是文本么？那就要用流了……

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
  f: TFileStream;
  Buffer: Array[0..959]of byte;
begin
  f := TFileStream.Create('fff.exe',fmShareDenyNone);
  f.Position := f.Size-960;
  f.Read(Buffer,960);
  move(Pchar(@Buffer)^,Pchar(memo1.Text)^,960);
end;

Answer 4

yongxin800() 运行报错哦。。
再帮帮忙。。在此先谢过。。

Answer 5

kangji(-cpp-) 请写明白点好吗？
小弟刚学不久