|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Ошибка динамической переменной составного типа
Переменная "a" изначально имеет значение 4 200 156. Почему и можно ли это исправить без обнуления переменной "a"?
Код:
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end; TPType = ^TType; TType = record a: Integer end; var Form1: TForm1; i: TPType; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin New(i); // создаём динамическую переменную if i.a <> 0 then ShowMessage(IntToStr(i.a)) end; end. |
#2
|
||||
|
||||
не инициализирована вот и мусор в ней
Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
SpectraL (03.01.2016)
|
#3
|
||||
|
||||
отведение памяти под динамические переменные обнулением не сопровождается. увы, обнулять придётся, не мы это придумали. По сабжу даже анекдоты есть.
Хей-хей-хей! Только не ходите в мой сарай, лады?.. |
Этот пользователь сказал Спасибо Verevkin за это полезное сообщение: | ||
SpectraL (04.01.2016)
|