Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 2 августа!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Заставить 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS