Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.25;
Скачать: CL | DM;

Вниз

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

 
Ксардас ©   (2005-08-17 23:01) [0]

сабж


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

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


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

числовой


 
Pasha L ©   (2005-08-17 23:14) [3]

Ar:array of integer;
i:integer;

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


 
Турист   (2005-08-17 23:29) [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:45) [5]

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


 
evvcom ©   (2005-08-18 09:15) [6]


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

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


 
rts111 ©   (2005-08-18 12:01) [7]

Если число вайт в массиве кратно 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);



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

Текущий архив: 2005.09.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.073 c
3-1123493797
Oleg_
2005-08-08 13:36
2005.09.25
Объединение таблиц при работе через ado


5-1099875575
AZ
2004-11-08 03:59
2005.09.25
Сохранение свойства типа array - линкер не пущает


14-1125380226
удивленный
2005-08-30 09:37
2005.09.25
Delphi это язык програмирования?


1-1125376948
Darkwing
2005-08-30 08:42
2005.09.25
Как убрать звук при нажатии Enter а в TEdit e.


14-1125580110
KilkennyCat
2005-09-01 17:08
2005.09.25
1 cентября. С Днем рождения!