Structure is too large

[k1r1ch]

В общем, программу писал в FreePascal, а сейчас надо, чтоб работала в обычном борландовском Turbo. Вот на матрицы

Room, RoomW: array [1..1681, 1..1681] of shortint;

ругается, что очень большие, а оно еще не дошло до этого массива

TFrom = record
    X: shortint;
    Y: shortint;
  end;

MRoom: array [1..1681, 1..1681] of TFrom;

что там будет, вообще страшно представить! Как-то можно увеличить максимальный размер?

[Serge_Bliznykov]

А никак. Это же DOS!
в TP можно попытаться сделать только через динамическое выделение памяти! (да и то надо смотреть, не уверен, что всё будет просто и гладко! )

а зачем Вам программа под мёртвую (фактически) операционку?!

[k1r1ch]

Просто у нас в школе проверяют на Pascal (который Турбо), ну раз нет так нет...

[russian-stalker]

getmem(allocmem) не поможет?

[k1r1ch]

А это что? И вот еще, я из шотинта использую только 1, 0 и -1. Есть такой тип? Это по идеи 2 бита всего!

[ОДИНОЧЕСТВО В СЕТИ]

Есть такой тип?

опишите свой

var MyP : (-1,0,1);

function AllocMem(Size: Cardinal): Pointer;

Выделяет в куче блок памяти заданного размера. Каждый байт выделенной памяти выставляется в ноль. Для освобождения памяти используется FreeMem.

procedure GetMem(var p: pointer;Size: LongInt);
function GetMem(size: LongInt):pointer;

GetMem резервирует Size байт в куче, и возвращает указатель на эту память в p. Если нет больше доступной памяти, то возвращается nil.

[k1r1ch]

А сколько места он будет занимать? 3 бита или 2?

[ОДИНОЧЕСТВО В СЕТИ]

А сколько места он будет занимать?

1 байт

Это по идеи 2 бита всего!

а это вам кто сказал?

[k1r1ch]

Ну один бит - знак, а второй - 1 или 0. Вроде 2 бита. А байт это много - шортинт и так байт весит, но помещает в себя от -127 до 127 (примерно), и с ним много. Наверное я разделю массив на два булевых и в одном будет знак, в другом - 1 или 0.

[Stilet]

А никак.

Действительно можно динамическим списком ) на сколько памяти хватит - но тогда будет работа с указателями.