Какой самый быстрый метод заполнения массива, например двухмерного?

[SkAndrew]

Какой самый быстрый метод заполнения массива, например, двухмерного? Если можно практический пример. В Инете нашел метод заполнения по спирали, но на делфи не нашел исходников. подскажите это действительно быстрее стандарных процедур цикла и как можно реализовать его? Спасибо!

[Карась]

0_о

Ну и вопросик..... вообщето по спирали есть коды у нас на форуме.... Видел лично....

Компьютеру по барабану по спирали, рожком, в шахматном порядке заполнять... Главное чтоб меньше циклов.....

[SunKnight]

Самым быстрым и оптимизированным будет такой метод:

MAS[1,1]:=1;
MAS[1,2]:=2;
MAS[1,3]:=3;
......
MAS[n,m]:=?;

[SkAndrew]

спасибо, но хотелось бы понять все какой цикл быстрее и какой способ быстрее. можно пример? спасибо

[DelphiLab]

Заполнить чем?

  FillChar(mas[0], Length(mas) * SizeOf(mas[0]), 0);

Для двумерного

  FillChar(mas[0], Length(mas) * Length(mas[0]) * SizeOf(mas[0,0]), 0);

Для трёхмерного

  FillChar(mas[0], Length(mas) * Length(mas[0]) * Length(mas[0, 0]) * SizeOf(mas[0,0,0]), 0);

и т.д.
Заполняет массив нулями

[SkAndrew]

спасибо, например, числами или символами

[DelphiLab]

Но ты же должен их откуда-то брать

[SkAndrew]

а если не нулями для двухмерного как тогда будет выглядеть код

FillChar(mas[0], Length(mas) * Length(mas[0]) * SizeOf(mas[0,0]), 0);

и mas - это двухмерный массив, как он объявляется? спасибо

допустим нужно так

mas : array of widestring

[Stilet]

НА мой взгляд самый быстрый способ это вот этот:

a:array[1..10,1..20] of char;
      c:char;
..............
begin
 c:='q';
 asm
  xor eax,eax
  mov al,[c];
  mov ecx,200;
  mov edi, offset a
  rep stosb
 end;
end;

[SkAndrew]

Очень интересное решение, только вот знаний ассемблера у меня никаких (можно пояснить каждую строчку?), а как это будет выглядеть при такой конструкции:

const a:array[0..10, 0..10] of widechar = ((символы юникода от 0 до 9), ..., (символы юникода от 0 до 9));

Спасибо!