Цитата:
Сообщение от Deman1986
Вот описал я класс TRam (массив для сегментов):
Код:
класс TRam
type
TRam = class(TObject)
private
// поля
FRam: Array of TSegment; // динамический массив
FCount: real; // приватное поле, количество сегментов
// конструкторы и деструкторы
constructor Create (ACount: integer); // инициализация
destructor Destroy; override;
// методы
procedure SetCount (ACount: integer): // установка количества элементов
procedure Reset; // обнуление данных
function WinInfo(Root_Key: HKEY; Key_Open, Key_Read: string): string;
WinVers = 'Software\Microsoft\Windows\CurrentVersion' // читаем всё из реестра
end;
|
Почему FCount типа real? Разве количество сегментов может быть дробным числом?
Почему конструктор и деструктор в приватной секции?
Идентификатор WinVers как вообще попал сюда в объявление класса?
В объявлении метода SetCount в конце двоеточие вместо точки с запятой.