Скачать: CL | DM;

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

← →
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]

Спасибо.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c