GoodRobin следующий код, создаст dat-файл равный ровно одному метру
попробуй его чем то открыть
Код: Const
FNIn65536 = 'c:\65536.dat';
var
Form1: TForm1;
FHIn65536: Integer;
//*********************************************
procedure TForm1.Button1Click(Sender: TObject);
Const
N = 65536;
var
i, j: Integer;
WRe, WIm: Array[1..N] of Real;
begin
FHIn65536:=FileCreate(FNIn65536, fmShareDenyNone and fmOpenReadWrite);
if FHIn65536 < 0 then ShowMessage('Ошибка при создании файла');
for i := 0 to N do
begin
WRe[i]:=0;
WIm[i]:=0;
for j:=1 to N do
begin
WRe[i]:=cos(2*pi*i*j/N);
WIm[i]:=sin(2*pi*i*j/N);
end;
end;
for i:=1 to N do
begin
FileWrite(FHIn65536, WRe[i], 8);
FileWrite(FHIn65536, WIm[i], 8);
end;
FileClose(FHIn65536);
end;