Как создать огромный массив?

[fatesmile]

Добрый день всем! Собственно описание проблемы:
есть класс MyClass, состоящий из 9 полей следующих типов: boolean; integer; integer; boolean; boolean; boolean; boolean; integer; boolean. Необходимо создать массив (желательно динамический) типа array of MyClass, который будет содержать 100000000-200000000 записей. Стандартными путями он создается, но при заполнении массива где то на 49000000 элементе выскакивает ошибка нехватки памяти. Процесс при этом занимает около 2 гигов. Что можно сделать в данной ситуации? Заранее спасибо.

[Stilet]

Если не секрет зачем такой огромный массив?

[fatesmile]

не секрет, для дисера

[raxp]

работайте значит не с памятью, а с файловым потоком...

[fatesmile]

а можно поконкретнее, как сделать чтобы массив не с памятью работал. и потом, скорость работы с ним будет уже совсем другая правильно? можно ли сделать чтобы он сколько мог брал оперативки, а остальное - с винта?

[maxionans]

Попробуй создать файл подкачки и работать с ним, как с памятью. Ниже пример кода, для создания такого файла:

var
  FileHandle : THandle;
  Mapping : THandle;
  Data : Pointer;
  Offset : Int64Rec;
begin
  { Создаем файл, который будем отображать в память }
  FileHandle := CreateFile(
    'd:\cache.dat', GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ, nil,
    CREATE_NEW, FILE_FLAG_DELETE_ON_CLOSE, 0
  );
  Assert( FileHandle <> INVALID_HANDLE_VALUE );

  try
    { Задаем размер файла в 4 GB }
    Int64(Offset) := $100000000;
    SetFilePointer( FileHandle, Offset.Lo, @Offset.Hi, FILE_BEGIN );
    SetEndOfFile( FileHandle );

    { Создаем объект отображения файла }
    Mapping := CreateFileMapping( FileHandle, nil, PAGE_READWRITE, 0, 0, nil );
    Assert( Mapping <> 0 );

    { Отображаем файл в память.
      0, 0 - смещение относительно начала файла к отображаемому блоку,
      $40000000 - размер отображаемого блока (1 GB) }
    Data := MapViewOfFile( Mapping, FILE_MAP_WRITE, 0, 0, $40000000 );
    try
      if not Assigned( Data ) then
        begin
          MessageBox( 0, PChar(SysErrorMessage( GetLastError )), nil, MB_OK or MB_ICONWARNING );
          Exit;
        end;

      { ...
        Здесь работа с памятью
        ... }
    finally
      { Завершаем работу с отображенным блоком }
      UnmapViewOfFile( Data );
    end;
  finally
    { Закрываем объект отображения и файл }
    CloseHandle( Mapping );
    CloseHandle( FileHandle );
  end;

[fatesmile]

извиняюсь за глупый вопрос, чтобы работать с памятью я просто могу написать setlength(mas,100000000) или мне нужно указать еще что-то?

[Stilet]

для дисера

Класно рассказал...
Даже для докторской такие огромные массивы не выделяют.
Зачем такой огромный массив?

можно ли сделать чтобы он сколько мог брал оперативки, а остальное - с винта?

Эх... Я бы на твоем месте про такую стратегию забыл. Прога жрущая много памяти никому не понравится.
Насчет файлов мысль светлая. Скорость работы с массивом записанным в файл не будет сильно занижена, если ты не будешь использовать медленные алгоритмы обработки.
Например будет удобно использовать TFileStream. Он дает приличную скорость работы.

я просто могу написать

Можешь, но ОС это не понравится.

[fatesmile]

такой вопрос можно ли не меняя самого кода перевести все на работу с файлами, то есть у меня задан динамический массив a: array of myclass далее я ему делаю setlength. можно как то не править весь код?

[maxionans]

Динамические массивы тут не прокатят. Тебе нужно объявить такие типы:

type
  PMyClassArr = ^TMyClassArr;
  TMyClassArr = array[ 0..( MaxInt div SizeOf(MyClass) ) - 1 ] of MyClass;

И использовать отображенный блок таким образом:

var
  MyArr : PMyClassArr;
begin
   ...здесь отображаешь файл в память...
   MyArr := Data;
   ...дальше работаешь с MyArr как с обычным массивом...  
end;