вот привожу код. и вложил злополучный файл. файл называется 796.seg
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
f:TFileStream;
data: array [1..1000] of single;
i:integer;
begin
if o1.Execute then
f:=TfileStream.Create(o1.FileName,fmOpenRead);
f.Seek(3840,soFromBeginning);
f.Read(data,4000);
for i:=1 to 1000 do begin
s1.Cells[1,i]:=floattostr(data[i]);
end;
end;
Admin: Пользуемся тегами для оформления кода!
здесь очень важно начинать считывать данные именно с 3841 байта. до этого данные хранятся в другом формате.