delphi对明码文件读取的问题，急哦 ( 积分: 200 )

比如说esri的shp文件，整个文件都有了，就是不知道delphi怎么去读取里面的包含信息。shp文件可以看成无类型文件或则二进制文件。
或者举个例子：aaa.dat
aa.dat 文件属于二进制文件
里面包含了 信心内容如下
0-4 位存储了 single类型 1
5-12位存储了 shortint类型 2
13-16 位存储了 single 类型 3
假设这个简单的二进制文件 用delphi 怎么把第三部分的single值读取出来呢？
答题之前先谢谢各位！！！！！！！

回答过一个类似的给你

procedure TForm1.Button1Click(Sender: TObject);
type
TData = packed record
Name: array[0..3] of char;
Address: array[0..3] of char;
Price: array[0..3] of char;
//其它依次定义....
end;

var
fs: TFileStream;
Data: TData;
begin
fs:= TFileStream.Create('d:/abc.dat',fmOpenRead);
while (fs.Size-fs.Position) >= SizeOf(TData) do
begin
fs.Read(Data, SizeOf(TData));

//以下处理数据:
ShowMessage('名称:'+Data.Name+' 地址:'+Data.Address);

///StrToFloat(Data.Price); end;
end;

恩 这个方法也可以 谢谢！