Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

default-значение пирватного булёвого поля [D7]

Ega23 © (2007-10-16 10:50:00)
type
TMyClass = class(...)
private
FMyBoolField : Boolean;
end;

После создания экземпляра класса какое значение будет? Абсолютно точно False, или всё-таки переопределить конструктор и в нём явно прописать FMyBoolField := False; ?

Сусл (2007-10-16 11:11:00) [1]
борланд нам не указ! пусть алм свою продают.

Игорь Шевченко (2007-10-16 11:03:00) [2]

> После создания экземпляра класса какое значение будет? Абсолютно
> точно False

До тех пор, пока Borland считает False нулем :)

Сусл (2007-10-16 10:58:00) [3]

> Дима, перерегистрируй анкету.

ок, я немного подрос.

Ins (2007-10-16 10:55:00) [4]
Абсолютно точно, если вы конечно не перекроете NewInstance. Можете, кстати, посмотреть реализацию этого метода в классе TObject. Там видно, что память под экземпляр в самом начале заполняется нулями.

Ega23 (2007-10-16 10:53:00) [5]

> FillChar(Instance^, InstanceSize, 0);

Всё понял, вопрос снят.

З.Ы.
Дима, перерегистрируй анкету.

Суслик (2007-10-16 10:52:00) [6]
class function TObject.InitInstance(Instance: Pointer): TObject;
var
IntfTable: PInterfaceTable;
ClassPtr: TClass;
I: Integer;
begin
FillChar(Instance^, InstanceSize, 0); PInteger(Instance)^ := Integer(Self);
ClassPtr := Self;
while ClassPtr <> nil do
begin
IntfTable := ClassPtr.GetInterfaceTable;
if IntfTable <> nil then
for I := 0 to IntfTable.EntryCount-1 do
with IntfTable.Entries[I] do
begin
if VTable <> nil then
PInteger(@PChar(Instance)[IOffset])^ := Integer(VTable);
end;
ClassPtr := ClassPtr.ClassParent;
end;
Result := Instance;
end;

Суслик (2007-10-16 10:51:00) [7]
false

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »