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

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

Заполнение буфера [D7, WinXP]

Страницы:   < 1 2 >

Destroyer ©   (2006-07-21 17:58:00) 

Надо заполнить буфер произвольными числами. Делаю так:
var
buf     : array[1..4096] of Byte;
Rand_dig: integer;

for i:=0 to SizeOf(buf) do
  begin
   Rand_dig:=Random(1000);
   FillChar(buf, 1, Rand_dig);
  end;
Произвольное число записывается в первый элемент. А надо заполнить весь буфер произвольными. Может есть функция установки позиуии записи, или еще как?

---

Loginov Dmitry   (2006-07-21 21:38:00) [21]

> негарантированно.


Ну если в общем случае, то в буфере могут быть совершенно произвольные "числа"

---

KilkennyCat   (2006-07-21 21:32:00) [22]

> [2] Loginov Dmitry ©   (21.07.06 20:09)


негарантированно.

---

Loginov Dmitry   (2006-07-21 20:09:00) [23]

> Надо заполнить буфер произвольными числами


var
 Buf: PByteArray;
begin
 GetMem(Buf);
...

Все. Буфер заполнен произвольными числами.

---

DrPass   (2006-07-21 18:00:00) [24]

for i:=1 to SizeOf(buf) do
buf[i]:=Random(256);

---

Страницы:   < 1 2 >

Наверх