Указатели в ТМТ Пас Опции

[AlienEmperor]

Вопрос по TMT паскалю:
Есть проблема:

Type TArray = Array[0..0] Of Byte;
PArray = ^TArray;

GetMem(P,10000);

Надо привести безтиповой указатель P к виду PArray:
Исправлено: PArray(P^)[Num] <-- это опечатка, не в том проблема...
PArray(P)^[Num]:=N;

FreeMem(P,10000);

При попытке так сделать, прога вылетает к чертовой матери....

Вопрос: что не так ? В Пасе 7 все работает... Какая разница между указателями ? И если есть, то как привести указатель к нужному типу ?

Сообщение отредактировано: AlienEmperor - 28.03.2005 18:40

[AlienEmperor]

Значит так! По ходу дела имеется следующая ситуация:

в Паскале 7.0 надо писать так:

Код

Procedure GetImageFromFile (Var Storage:Pointer; FileName:String);
Begin
ReadBMPToArray(PArray(Storage^),FileName);
End;

Если написать так:

Код

Procedure GetImageFromFile (Var Storage:Pointer; FileName:String);
Begin
ReadBMPToArray(PArray(Storage),FileName);
End;

то все - краш и вылет...

В ТМТ Паскале все с точностью до наоборот...

Теги не забываем...

Сообщение отредактировано: volvo - 28.03.2005 19:56