这个问题非常基础,因为我处于一个非常基本的层面.我必须阅读带*.pam扩展名的文件的内容.它并不常见,它是由特定程序生成的文件,它具有固定大小的xx KB.里面有一些数字和值.
我需要阅读这个文件,所以我将使用TStreamReader.当然我需要知道文件的结构,但我不知道.顺便说一句,我上面的图片是一个有用信息的表格的一部分:
含义如下:打开文件后,转到特定地址并获取数据.例如,在0x30中,我可以找到有关"Move 1 Current PP"的数据.我的问题是:我如何跳转到给定的地址?
procedure TForm1.Button1Click(Sender: TObject);
var sw: TStreamReader;
begin
Memo1.Clear;
sw := TStreamReader.Create('C:\aaa\myfile.pam', TEncoding.UTF8);
try
sw.Position := 0;
finally
sw.Free;
end;
Run Code Online (Sandbox Code Playgroud)
我在文档中看到有类似的东西Seek,Position但似乎我不能使用它们.一般来说我会用
while not(sw.EndOfStream) do
begin
//read...
end;
Run Code Online (Sandbox Code Playgroud)
这从头开始,它以seqence读取数据.如何跳转到特定地址并阅读内容?我想我可以将十六进制地址传递给像Seek这样的函数,所以我可以去一个特定的点.然后我可以检索数据.
delphi ×1