Вставка вектора в динамический массив

[iiunbreakableii]

Помогите пожалуйста, господа программеры!
Имеется динамический массив MxN типа Extended. В него надо вставить вектор размерности M того же типа в позицию index. Вопрос: как?
Пробовал так:

move(Arr[index],Arr[index+1],(length(Arr)-index)*SizeOf(extended));

Компилится нормально, но результат не нормальный. Что надо подправить или вообще как лучше написать, чтобы работало?

[Stilet]

Вот пример:

 var a:array[1..5,1..5] of extended;
  b:array[1..5] of extended;
  var j,i:integer;
begin
 for j:=1 to 5 do begin
  for i:=1 to 5 do begin a[i,j]:=i*j; write(a[i,j]:5:0);end;
  writeln;
 end;
 writeln;
  for i:=1 to 5 do begin b[i]:=random(100);write(b[i]:5:0);end;
 move(b[1],a[3,1],length(b)*sizeof(b[1]));
 writeln;
 writeln;
 for j:=1 to 5 do begin
  for i:=1 to 5 do begin
     write(a[j,i]:5:0);end;
  writeln;
 end;
   { TODO -oUser -cConsole Main : Insert code here }
  readln;
end.

Все верно работает.

[iiunbreakableii]

При вставке нового вектора, он переписавает строку в массиве
Вот код:

Type
  Tvektor=array of extended;
  Tmatrix=array of Tvektor;
...

procedure Matrix_Inset(var M:TMatrix; V:TVektor; index:integer);
var
  i:integer;
begin
  for i := 0 to high(V) do
   move(V[i],M[index,i],SizeOf(V[i]));
end;

procedure Test;
var
  i,j:integer;
  vec:TVektor;
begin
  Matrix_SetSize(B,5,5);
  for i := 0 to 4 do
    for j := 0 to 4 do
    begin
      Randomize;
      b[i,j]:=j;
    end;
  setlength(vec,5);
  for i := 0 to 10 do
  begin
    for j := 0 to 4 do
      vec[j]:=i+10;
    Matrix_Inset(B,vec,3);
  end;
end;

что не так? помоги о "СуперМодератор"!

[Stilet]

iiunbreakableii

Так стоп!. Тебе нужно вставить вектор так чтоб остальные строки не затирались?
Именно ВСТАВИТЬ а не заменить некую строку?
И что за сложность весь код показать? Думаешь удобно латки твои штопать?

[iiunbreakableii]

да, именно вставить, а не заменить

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  Tvektor=array of extended;
  Tmatrix=array of Tvektor;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  procedure Test;
  procedure Matrix_SetSize(var M:Tmatrix; X,Y:integer);
  procedure Matrix_Inset(var M:TMatrix; V:TVektor; index:integer);


var
  Form1: TForm1;
  B:Tmatrix;
implementation

{$R *.dfm}

procedure Matrix_SetSize(var M:Tmatrix; X,Y:integer);
var
  i:integer;
begin
  SetLength(M,X);
  for  i:= 1 to X do
    SetLength(M[i-1],Y);
end;

procedure Matrix_Inset(var M:TMatrix; V:TVektor; index:integer);
var
  i:integer;
begin
  for i := 0 to high(V) do
   move(V[i],M[index,i],SizeOf(V[i]));
end;

procedure Test;
var
  i,j:integer;
  vec:TVektor;
begin
  Matrix_SetSize(B,5,5);
  for i := 0 to 4 do
    for j := 0 to 4 do
    begin
      Randomize;
      b[i,j]:=j;
    end;
  setlength(vec,5);
  for i := 0 to 10 do
  begin
    for j := 0 to 4 do
      vec[j]:=i+10;
    Matrix_Inset(B,vec,2);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  test;
end;

end.

Сорри, помоги пожалуйста, очень надо : )

[Stilet]

Ы-ы-ы тут вон чего...
Ок. Понял.
Так подойдет?

procedure Matrix_Inset(var M:TMatrix; V:TVektor; index:integer);
var
  k,i:integer;
begin                
   k:=length(m)-index-1;
   k:=k*SizeOf(v[1]);
   move(M[index,0],M[index+1,0],k);
   move(V[0],M[index,0],SizeOf(V[0])*(length(v)));
end;

Смысл ясен?

[iiunbreakableii]

ГИГАНТСКОЕ СПАСИБО, помогло!