Перечисляемый тип и размер массива

[VirtUX]

Каким образом можно установить размер массива 64-битным значением и как потом его обходить в цикле for to(downto) do?
Для примера:

Код: Выделить всё

var i: QWord;
begin
  for i := 0 to high(QWord) do ; //выдаст ошибку, что i - неперечисляемый тип
end;

[Дож]

Код: Выделить всё

var
  I: QWord;
begin
  I := 0;
  while True do begin
    // ...
    if I = High(QWord) then
      Break;
    I := I + 1;
  end;
end.

[v-t-l]

for i := lo(QWord) to hi(QWord) do

[Дож]

v-t-l, а вы пробовали это скомпилировать?

[VirtUX]

Код: Выделить всё

var
  I: QWord;
begin
  I := 0;
  while True do begin
    // ...
    if I = High(QWord) then
      Break;
    I := I + 1;
  end;
end.

Этот вариант подходит. А как быть с SetLength(M, high(QWord)); ?

[Max Rusov]

Что у Вас за массив, в котором может быть более 4 миллиардов элементов?
На 32-х разрядной системе Вы даже теоретически не можете с таким массивом работать.
(а на x64 QWord будет нормально итерировать)

[VirtUX]

Что у Вас за массив, в котором может быть более 4 миллиардов элементов?
На 32-х разрядной системе Вы даже теоретически не можете с таким массивом работать.
(а на x64 QWord будет нормально итерировать)

Значит 64-х битный размер массива возможен только на 64-х битных ОС? Интересно, а есть-ли возможность эмулировать на 32-х битной работу 64-х битной?

[Дож]

VirtUX
Вы посчитайте сколько такой массив будет занимать места в оперативке.
И можно ли будет получать к нему доступ при помощи 32-битного указателя.

[Max Rusov]

Все адресное пространство 32-х разрядного приложения ограничено 4-мя Г в лучшем случае (а обычно, вообще 2-мя).
Так как для массивов требуется _непрерывное_ адресное пространство, реально допустимый размер _намного_ меньше.
Скорее всего даже блок памяти в 1 Г аллоцировать не удасться. Приходится использовать структуры со страничной
аллокацией (Paged List'ы). Если же нужны структуры данных > 4х Г - то это только файлы с подкачкой по частям
(или страничным мэппиногом)