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

[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 14: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 15:56

[volvo]

Значит так!
в Паскале 7.0 надо писать так:
Procedure GetImageFromFile (Var Storage:Pointer; FileName:String);
Begin
ReadBMPToArray(PArray(Storage^),FileName);
End;

Ну, во-первых, когда Вы приводите пример, то для полноты картины неплохо бы знать, как описана ReadBmpToArray, и что именно туда передается (что такое Storage)... А то ведь я могу сделать такое определение функций, что как раз второй вариант будет работать правильно, а вот этот - просто вылетит...

Так что будьте корректнее...