Форум: "Начинающим";
Текущий архив: 2005.09.25;
Скачать: [xml.tar.bz2];
Вниз
Как разом обнулить все элементы массива? Найти похожие ветки
← →
Ксардас © (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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.037 c
