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

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

каким образом циклом можно...


STALKER ©   (2004-08-10 12:40:00) 

перегрузить данные одного массива в другой?


GuAV   (2004-08-11 02:47:00) [1]

В своих прогах я так точно нет, а сюда выложить - д...а не жалко :)


Fay   (2004-08-11 02:36:00) [2]

2 GuAV ©   (11.08.04 02:27) [10]
Да, это я что-то торможу 8) Слишком давно не делал такой фигни. 8)
Даже не помню - делал ли?


GuAV   (2004-08-11 02:27:00) [3]


> А каким образом это можно сделать без цикла?!

Можно.
Dest[1]:=Source[1];
Dest[2]:=Source[2];
Dest[3]:=Source[3];
Dest[4]:=Source[4];


Fay   (2004-08-11 02:12:00) [4]

2 STALKER ©   (10.08.04 12:40)
А каким образом это можно сделать без цикла?!


VMcL   (2004-08-11 02:09:00) [5]

>> ghg ©  (10.08.04 15:18) [7]

Не важно.


ghg   (2004-08-10 15:18:00) [6]

>VMcL ©   (10.08.04 14:19) [5]
ээээ
про динамические уточнить охота

не важно какого типа данные хранятся в этом массиве или функция copy будет работать только для определенных ттипов данных?
по-моему второе


jack128   (2004-08-10 14:23:00) [7]


> >>jack128 ©  (10.08.04 12:47) [3]
>
> Зачем два цикла?
Это типа шутка была ;-)


VMcL   (2004-08-10 14:19:00) [8]

>> jack128 ©  (10.08.04 12:47) [3]

Зачем два цикла?

обычные
Move(SourceArr[Low(SourceArr)], DestArr[Low(DestArr)], SizeOf(DestArr[Low(DestArr)]) * Length(DestArr));

динамические
DestArr := Copy(SourceArr);


@Lex   (2004-08-10 12:50:00) [9]

> jack128
!!!-)


jack128   (2004-08-10 12:47:00) [10]

объединяя [1] + [2]

for i := Low(SourceArr) to High(SourceArr) do
 Move(SourceArr[i], DestArr[i], SizeOf(SourceArr[i]));

:-))


@Lex   (2004-08-10 12:43:00) [11]

procedure Move(const Source; var Dest; Count: Integer);


Smithson   (2004-08-10 12:41:00) [12]

...поэлементно


Наверх

Титульная страница Поиск, карта сайта Написать письмо