Заставить Delphi работать с достаточно большим массивом данных
Программист ставит себе на тумбочку перед сном два стакана. Один с водой - на случай, если захочет ночью пить. А второй пустой - на случай, если не захочет. |
procedure TForm1.Button1Click(Sender: TObject); type TMyRec = record i1, i2, i3: Integer; end; TMyArr = array[1..20000000] of TMyRec; PMyArr=^TMyArr; var A: PMyArr; begin GetMem(A, SizeOf(TMyArr)); A^[1].i1 := 100; ShowMessage('Ok' + IntToStr(A^[1].i1)); FreeMem(A); end; |
Далее: Из строки в массив и наоборот »»