Цитата:
|
Сообщение от Deman1986
Вот описал я класс TRam (массив для сегментов):
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | класс 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 в конце двоеточие вместо точки с запятой.