数组保存为二进制文件和逆过程

procedure TForm1.BitBtn1Click(Sender: TObject); var arr: TMyDoubleArray; i: Integer; begin // 初始化数组 SetLength(arr, 5); for i := 0 to Length(arr) - 1 do arr[i] := i*100 + 1.11111; // 保存数组为二进制文件 SaveArrayToBinaryFile('array.bin', arr); // 从二进制文件加载数组 self.Memo1.Clear; arr := LoadArrayFromBinaryFile('array.bin'); for i := 0 to Length(arr) - 1 do begin self.Memo1.Lines.Add( FloatToStrF(arr[i],ffNumber,5,4 ) ); end; self.Memo1.Lines.Add('----')