Обмен данными между динамическим и статическим массивами

← →
zap8 (2007-03-02 06:27) [0]

Как более эффективно обмениваться данными между динамическим и статическим массивами и наоборот - не
используя цикл.

Для одинаковых (стат-стат/дин-дин) массивов пример ниже, а для разных?

procedure TForm1.Button1Click(Sender: TObject);
var
I:Byte;
Mas1,Mas2: array [1..10] of Byte;
DMas1,DMas2:array of Byte;
S:String;
begin
SetLength(DMas1,Length(Mas1));
For I:= 0 To Length(Mas1)-1 Do
begin
Mas1[I+1]:= I;
DMas1[I]:= I
end;
Move(Mas1,Mas2,Length(Mas1));
SetLength(DMas2,Length(Mas1));
DMas2:= Copy(DMas1,0,Length(DMas1));
For I:= 0 To Length(Mas1)-1 Do
S:= S+ IntToStr(Mas1[I+1])+"/"+IntToStr(DMas2[I])+#13#10;
ShowMessage(S);
DMas1:=nil;
DMas2:=nil
end;

← →
MBo © (2007-03-02 06:55) [1]

то же самое Move, только для дин. массива DMas[0] подставлять

← →
zap8 (2007-03-02 07:05) [2]

Спасибо.

Обмен данными между динамическим и статическим массивами Найти похожие ветки