Здравствуйте...
Читаю книгу по BDS2006, в ней был пример (код и екзешник) консольного приложения для делфи вин32...
Екзешник работает нормально... скопировал код в свой проект - ошибка, каких я еще никада не видел...
Почему так? Что не корректно в коде?
Код:

Код

program Project1; {$APPTYPE CONSOLE} uses   SysUtils; type   PAnimal = ^TAnimal; { pointer to a TAnimal record }   TAnimal = record     Name: string;     Age: Integer;     Hungry: Boolean;   end; procedure ShowInfo(AAnimal: PAnimal); const   HUNGRY_STRING: array[Boolean] of string = ('No', 'Yes'); begin   if AAnimal = nil then Exit;     with AAnimal^ do   begin     WriteLn('Name: ', Name);     WriteLn('Age: ', Age);     WriteLn('Hungry: ', HUNGRY_STRING[Hungry]);   end; // with AAnimal end; var   MyDog: TAnimal;   MyDynamicCat: PAnimal; begin   MyDog.Name := 'Apollo';   MyDog.Age := 10;   MyDog.Hungry := False;   ShowInfo(@MyDog);   New(MyDynamicCat);   ShowInfo(MyDynamicCat);   Dispose(MyDynamicCat);   ReadLn; end.

Результат выполнения:

M Alexeis

Модератор: Название темы должно отражать ее суть!

Код

program Project1; {$APPTYPE CONSOLE} uses   SysUtils; type   PAnimal = ^TAnimal; { pointer to a TAnimal record }   TAnimal = record     Name: string;     Age: Integer;     Hungry: Boolean;   end; procedure ShowInfo(AAnimal: PAnimal); const   HUNGRY_STRING: array[Boolean] of string = ('No', 'Yes'); begin   if AAnimal = nil then Exit;     with AAnimal^ do   begin     WriteLn('Name: ', Name);     WriteLn('Age: ', Age);     WriteLn('Hungry: ', HUNGRY_STRING[Hungry]);   end; // with AAnimal end; var   MyDog: TAnimal;   MyDynamicCat: PAnimal; begin   MyDog.Name := 'Apollo';   MyDog.Age := 10;   MyDog.Hungry := False;   ShowInfo(@MyDog);   New(MyDynamicCat);   ShowInfo(MyDynamicCat);   Dispose(MyDynamicCat);   ReadLn; end.

У меня все отлично выполняется. Думаю, что это проблема с IDE. У меня Delphi7

Присоединённый файл ( Кол-во скачиваний: 5 )
 dpr.rar 21,44 Kb

Присоединённый файл ( Кол-во скачиваний: 7 )
 dpr.rar 21,44 Kb

Как насчёт попробовать:

Код

New(MyDynamicCat); FillChar(MyDynamicCat^, SizeOf(TAnimal), 0);

Код

New(MyDynamicCat); FillChar(MyDynamicCat^, SizeOf(TAnimal), 0);

Пробовал делать трассировку... Кажется, что проблема в строке 

Код

WriteLn('Hungry: ', HUNGRY_STRING[Hungry]);

 во время выполнения 

Код

ShowInfo(MyDynamicCat);

при комменте врайтэлена все нормально или при добавлении 

Код

MyDynamicCat.Hungry := True;

тоже все отрабатывает, но не корректно (почему-то кошачий возраст становится 1)...
В общем, как-то загадочно для меня(((
Вставил 

Код

FillChar(MyDynamicCat^, SizeOf(TAnimal), 0);

 все заработало... 
Поэтому вопрос...
1) Как понять 'Думаю, что это проблема с IDE.'?
2) Что-то в памяти не так делается? Без принудительного заполнения памяти для указателя рандомом что ли заполняет у меня? Можно услышать пару слов о происходящем в памяти в случае без филлчара?

Это сообщение отредактировал(а) Kbl4AH - 26.2.2009, 09:51

Код

WriteLn('Hungry: ', HUNGRY_STRING[Hungry]);

Код

ShowInfo(MyDynamicCat);

Код

MyDynamicCat.Hungry := True;

Код

FillChar(MyDynamicCat^, SizeOf(TAnimal), 0);

Этот вопрос требует дальнейшего исследования. Вообще, после New FillChar не нужен. Так указано в документации. Поэтому это-то и странно.

Ага, попался.
На самом деле FillChar всё же нужен. Это баг в исходном тексте книжки. И вот почему.
Из New выходит частично-инициализированная структура (в отличие от GetMem, из которого выходит вовсе не инициализированная структура). Частичная инициализация означает, что все динамические типы данных гарантировано равны nil. Значение остальных полей не определено.
Поэтому после New(MyDynamicCat) у вас MyDynamicCat^.Name = nil, а поля Age и Hungry заполнены мусором. Так получается, что в D7 и D2006 этот мусор выглядит по-разному, и в одном случае вылет происходит, а в другом - нет.
Почему вообще происходит вылет? 
Проблема действительно сидит в строке WriteLn('Hungry: ', HUNGRY_STRING[Hungry]). Если Hungry у нас мусор (а не 0 или 1, как ожидает этого код), то HUNGRY_STRING[Hungry] трактует некоторое место в вашей программе как строку. Но там лежат строки только для индексов 0 и 1. Для всех прочих индексов там тоже мусор.
Поэтому вывод WriteLn('Hungry: ', HUNGRY_STRING[Hungry]) на самом деле пытается вывести на консоль какую-то область памяти (случайную), пытаясь трактовать её как строку.

CodeMonkey, SneG0K, спасибо!