| AlienEmperor |
28.03.2005 14:20
Сообщение
#1
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 160 Пол: Мужской Реальное имя: Серый Репутация: 0 |
Вопрос по 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 |
28.03.2005 16:08
Сообщение
#2
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 160 Пол: Мужской Реальное имя: Серый Репутация: 0 |
Так... Я, кажется, еще кое во что въехал...
У меня массив описан как: TArray = Array[0..0] Of Byte; В аттаче я нашел такую запись: TArray = Array[0..65535] Of Byte; PArray:=TArray; Я писал 0..0 для "неограниченного" массива... Хотя максимум в таком случае все равно определяется 65535... На самом деле, без ^ выглядит более естественно... Вообще-то логически так и должно быть, че меня глючило при написании ? Во как! Все, разобрался! У меня было два глюка в ТП проге: накладываясь друг на друга, они давали, как ни странно, правильный результат! Volvo, спасибо! Блин... так бы фиг заметил... Сообщение отредактировано: AlienEmperor - 28.03.2005 16:12 -------------------- Все в жизни ботва... Кроме пчел!
|
AlienEmperor Указатели в ТМТ Пас 28.03.2005 14:20
volvo :blink:
Может, все-таки вот так?
PArray(P... 28.03.2005 14:29
AlienEmperor Я тут сам посмотрел кое-что... В общем, проблема р... 28.03.2005 14:38
AlienEmperor Значит так! По ходу дела имеется следующая сит... 28.03.2005 15:17
volvo
Ну, во-первых, когда Вы приводите пример, то для... 28.03.2005 15:33
AlienEmperor Procedure ReadBMPToArray (Var Image:PArray; FileNa... 28.03.2005 15:42
volvo Ну в таком случае - просто попробуйте запустить пр... 28.03.2005 15:48![]() ![]() |
|
Текстовая версия | 15.11.2025 15:31 |