| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

zap8 ©   (2007-03-02 06:27:00) 

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

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

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;

---

zap8   (2007-03-02 07:05:00) [1]

Спасибо.

---

MBo   (2007-03-02 06:55:00) [2]

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

---

Наверх