копирование из одного двумерного массива в другой

[Sanprof]

помогите разобраться, есть ли такая функция, которая копирует значения из одного двумерного массива в другой, конечно не присвоением в цикле соответствующих элементов массивов - это я и сам умею, но для моей задачи не подходит. Массивы одинаковой длины.

var
  Mass1, Mass2: Array[0..9, 0..4] of Integer;

для одномерных есть такая функция

var
  Mass1, Mass2: array[0..9] of Integer;

......

  Mass2 := Copy(Mass1, 1, 10);

[Grag]

procedure Move ( const SourcePointer; var DestinationPointer; CopyCount : Integer ) ;
и еще
function Copy ( Source : array; StartIndex, Count : Integer ) : array;
Копия части массива

Первый элемент массива имеет индекс = 0.

Возвращает массив состоящий из указанных в Count количестве элементов, начиная с индекса .

Если до конца массива меньше элементов, чем указано в Count, то копируются все элементы начиная с StartIndex и до конца массива.

Сорри, не обратил внимания на двумерность массивов...

[Скандербег]

Такой штатной функции нет.
А Move и Copy не подойдут.
Move из-за того что копирует непрерывный участок памяти, а как выделится память под массивы одному господу известно. Во всяком случае рисковать я бы не стал.
Copy работает только с динамическими массивами. А такой код просто не скомпилируется:

var
  Mass1, Mass2: array[0..9] of Integer;
......
  Mass2 := Copy(Mass1, 1, 10);

[Sanprof]

если нету штатных функций, тогда как мне организовать у созданного мною класса property, которое является двумерным массивом и потом, чтобы можно было обращаться к элементам массива (заполнять и считывать)???

type TDoubleArray = array[0..9, 0..4] of integer;

type
  TMassiveRep = class
  private
    FMassive: TDoubleArray;
    procedure SetMassive(const Value: TDoubleArray);
  published
    property Massive: TDoubleArray read FMassive write SetMassive;
  end;

так оно работать не хочет говорит "Published property 'Massive' cannot be of type ARRAY"

[Serge_Bliznykov]

ну, если массивы статические, то, скорее всего (на 99%) память под них выделяется сплошняком, т.е. MOVE должен отработать нормально.
Но тут есть нюанс, если, ВДРУГ, по какой-либо причине память под статический массив выделится не целиком - получите трудноопределямый/выявляемый глюк!!

вот, проверил, работает нормально (но надо учитывать вышесказанное про непрерывное выделение памяти!!!)

  Move(Mass1[0], Mass2[0], SizeOf(Mass1));

но для моей задачи не подходит.

не могу понять, а чем не подходит:

var
  Mass1, Mass2: Array[0..9, 0..4] of Integer;
  i : integer;
begin
....
   for i:=0 to 9 do
     Mass2[i] := Mass1[i];

Всего один цикл...
Или скорости не хватает?!

[Скандербег]

В published действительно нельзя. Надо объявить property в public секции, там можно.

TMassiveRep = class
  private
    procedure SetMassive(X, Y: Integer; const Value: TDoubleArray);
    function GetMassive(X, Y: Integer): TDoubleArray;
  public
    property Massive[X, Y : Integer]: TDoubleArray read GetMassive write SetMassive;
  published
  end;

[Sanprof]

Сообщение от Скандербег

В published действительно нельзя. Надо объявить property в public секции, там можно.

TMassiveRep = class
  private
    procedure SetMassive(X, Y: Integer; const Value: TDoubleArray);
    function GetMassive(X, Y: Integer): TDoubleArray;
  public
    property Massive[X, Y : Integer]: TDoubleArray read GetMassive write SetMassive;
  published
  end;

только немножко не так нужно, а вот так

Type  TDoubleArray = array[0..9, 0..4] of Integer;

.....

TMassiveRep = class
  private
    Fmassive: TDoubleArray;
    procedure SetMassive(X, Y: Integer; const Value: integer);
    function GetMassive(X, Y: Integer): integer;
  public
    property Massive[X, Y : Integer]: integer read GetMassive write SetMassive;
  published
  end;

[Don Karleone]

Сообщение от Sanprof

помогите разобраться, есть ли такая функция, которая копирует значения из одного двумерного массива в другой, конечно не присвоением в цикле соответствующих элементов массивов - это я и сам умею, но для моей задачи не подходит. Массивы одинаковой длины.

var
  Mass1, Mass2: Array[0..9, 0..4] of Integer;

А что надо скопировать? Весь массив или несколько его элементов?