unit
Usegy2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 =
class
(TForm)
S1: TStringGrid;
S2: TStringGrid;
S3: TStringGrid;
Button1: TButton;
O1: TOpenDialog;
E1: TEdit;
procedure
Button1Click(Sender: TObject);
private
public
end
;
var
Form1: TForm1;
implementation
{$R *.dfm}
function
SwapDWorD(X: DWord):dword;assembler;
asm
bswap eax
end
;
procedure
TForm1
.
Button1Click(Sender: TObject);
type
THeadTras =
record
b1,b2,b3,b4,b5,b6,b7:
longint
;
b8,b9,b10,b11:
word
;
b12,b13,b14,b15,b16,b17,b18,b19:
longint
;
b20,b21:
word
;
b22,b23,b24,b25:
longint
;
b26,b27,b28,b29,b30,b31,b32,b33,b34,b35,b36,b37,
b38,b39,b40,b41,b42,b43,b44,b45,b46,b47,b48,b49,
b50,b51,b52,b53,b54,b55,b56,b57,b58,b59,b60,b61,
b62,b63,b64,b65,b66,b67,b68,b69,b70,b71:
word
;
b72,b73,b74,b75,b76,b77,b78,b79:
longint
;
b80,b81,b82,b83,b84,b85,b86,b87,b88,b89,b90,b91,b92,b93:
word
;
end
;
THTras =
record
HeadTras:THeadTras;
Data:
array
[
1..1000
]
of
single
;
end
;
TH400 =
record
b1,b2,b3:
longint
;
b4,b5,b6,b7,b8,b9,
b10,b11,b12,b13,b14,
b15,b16,b17,b18,b19,
b20,b21,b22,b23,b24,b25,b26,b27:
word
;
end
;
TH3200 =
record
bit:
array
[
1..255
]
of
byte
;
end
;
TFN =
record
Tras:
array
[
1..161
]
of
THTras;
end
;
var
F:TFILEStream;
H3200:TH3200;
H400:TH400;
FN:
array
[
1..5
]
of
TFN;
i,j,k,index:
integer
;
l:
real
;
buf:
single
;
dd:
array
[
0..3
]
of
byte
absolute buf;
temp:
byte
;
begin
IF
O1
.
Execute
then
f:=TfileStream
.
Create(o1
.
FileName,fmOpenRead);