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

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

Как разом обнулить все элементы массива?

Ксардас ©   (2005-08-17 23:01:00) 

сабж

---

rts111   (2005-08-18 12:01:00) [1]

Если число вайт в массиве кратно 4 то вместо FillChar
можно использовать myFillChardinal.Чуть быстрее.

procedure myFillChardinal(value:cardinal;var dest;count:integer);
asm
push edi
mov  edi,edx
rep  stosd
pop  edi
end;

Пример:

Турист   (17.08.05 23:29) [4]

>Еще варианты

>var
>  A: array[0..9] of Integer;
>  B: array of Integer;
    begin
     ....
     if Length(B) > 0 then myFillChardinal(0,b[0],Length(B));
     myFillChardinal(0,A,10);

---

evvcom   (2005-08-18 09:15:00) [2]

> нут закрутил

ну и чего он закрутил? Что-то не ясно?

---

Pasha L   (2005-08-17 23:45:00) [3]

Турист   (17.08.05 23:29) [4]
:-?
нут закрутил

---

Турист   (2005-08-17 23:29:00) [4]

Еще варианты


var
 A: array[0..9] of Integer;
 B: array of Integer;
begin
 ....
 if Length(B) > 0 then
   FillChar(B[0], Length(B) * SizeOf(Integer), 0);
 FillChar(A, SizeOf(A), 0);


---

Pasha L   (2005-08-17 23:14:00) [5]

Ar:array of integer;
i:integer;

for i:=0 to high(Ar) do
 ar[i]:=0;

---

Ксардас   (2005-08-17 23:11:00) [6]

числовой

---

Турист   (2005-08-17 23:06:00) [7]

>Ксардас ©   (17.08.05 23:01)  
Массивы бывают разные, какой у Вас ?

---

Наверх