Ошибка Out of Memory

[mahatmaQL]

Здравствуйте! Помогите разобраться в причине возникновения ошибки Out of Memory.

Создается приложение типа WinHex. На форме StringGrid, заполняемая информацией из загружаемого файла. Кол-во колонок = 18, кол-во строк определяется длиной файла/16.

СпидБаттон залинкован на стандартном действии ActionList FileOpen.

Заголовок каждой строки должен показывать начальную позицию в байтах. Собственно, при формировании заголовка где-то в райне 6000000 строки возникает ошибка (пытаюсь открыть файл 300+МБ).

var
  fmEditor: TfmEditor;
  fOrigin: file;
  fname: string;

implementation

{$R *.dfm}

procedure TfmEditor.FormCreate(Sender: TObject);
const
  tabhead: array[1..18] of string = ('Offset','0','1','2','3','4','5','6','7',
           '8','9','10','11','12','13','14','15','');
var
  i: integer;
begin
  with sgTable do
  begin
     ColWidths[0]:=200;
     ColWidths[ColCount-1]:=200;
     for i:=0 to ColCount-1 do
     Cells[i,0]:=tabhead[i+1];
  end;
end;

procedure TfmEditor.AFOpenAccept(Sender: TObject);
var
  i,numstr: longword;
begin
  fname:=(Sender as TFileOpen).Dialog.FileName;
  AssignFile(fOrigin,fname);
  ReSet(fOrigin,1);
  if frac(FileSize(fOrigin)/16)<>0 then numstr:=round(int(FileSize(fOrigin)/16)+1);
  sgTable.RowCount:=numstr+1;
  for i:=1 to numstr-1 do
  begin
     sgTable.Cells[0,i]:=IntToStr((i-1)*16);
     Application.ProcessMessages;
  end;
end;

[Пепел Феникса]

ну у вас реально память кончается, чего удивлятся то?

не надо все в память грузить.

[саша40]

Память надо выделить под этот файл. Функции GetMem и FreeMem.

[Пепел Феникса]

Сообщение от саша40

Память надо выделить под этот файл. Функции GetMem и FreeMem.

кто вам эту чушь сказал?

[саша40]

Сообщение от Пепел Феникса

кто вам эту чушь сказал?

Я знал это. Если памяти в адресном пространстве процесса не хватает, то надо выделить больше(если, конечно, ещё есть куда выделять).

[Человек_Борща]

Я знал это. Если памяти в адресном пространстве процесса не хватает, то надо выделить больше(если, конечно, ещё есть куда выделять).

не пишите бред. Память - временное хранилище переменных данных.
Файл уже есть на ЖД, зачем его дублировать в памяти?
Про File Mapping прочитайте что-ли. Таким методом можно сотни гигабайт смотреть при 512 мб памяти ОЗУ.

[mahatmaQL]

мне не понятно следущее. допустим, я объявил таблицу размером 23.265.451 на 18. Она прорисовалась пустая. Было ли при этом выделено под каждую ячейку память или нет? Если было, то, формируя шапку, я просто присваиваю строку в уже выделеную память. Как тогда возникает нехватка памяти?
Если не было выделено, то нехватка памяти наступает где-то в районе 375000 строки. Допустим, под строку выделяется 8 байт. Тогда потребуется памяти около 3 МБ. Откуда out of memory?

И вообще, как тогда работают табличноподобные программы, типа Excel? Ведь в них можно загрузить файлы и больших размеров.

[Пепел Феникса]

Эксель хранит иначе в первую очередь, да и подгрузка с диска есть.

Допустим, под строку выделяется 8 байт.

там выделяется в разы больше.

[mahatmaQL]

Т.е. единственный выход - прорисовывать таблицу и подгружать из файла нужно ровно столько, сколько помещается на видимой части таблицы?

[FaTaL]

Сообщение от mahatmaQL

Т.е. единственный выход - прорисовывать таблицу и подгружать из файла нужно ровно столько, сколько помещается на видимой части таблицы?

Это будет идеальный вариант.