matrix.pas

来自「Delphi 技术手册源码 在Verycd下载的一个大包中的电子书」· PAS 代码 · 共 10 行

unit Matrix;

interface

// Transpose a Variant matrix.
// Transpose1 uses a direct, readable, maintainable approach.
// Transpose2 accesses the Variant array data directly, which is
// much faster, but harder to read and maintain.
//
// Copyright