Constructor TCEFComponentIdList.Create; begin inherited Create; FList

Question

Constructor TCEFComponentIdList.Create; begin inherited Create; FList

:= nil;
FSyncObj := nil;
end;

destructor TCEFComponentIdList.Destroy;
begin
if assigned(FList) then FreeAndNil(FList);
if assigned(FSyncObj) then FreeAndNil(FSyncObj);

inherited Destroy;
end;

procedure TCEFComponentIdList.AfterConstruction;
begin
inherited AfterConstruction;

FList := TList.Create;
FSyncObj := TCriticalSection.Create;
end;

это они зачем так?

#lazarus #programming #russian

0

02.12.2023

10 ответов

43 просмотра

Igor Автор вопроса

продублирую субботний вопрос есть ли какой-то какой резон в такой двухэтапной инициализации?

0

04.12.2023

Viktor Akselrod 💻

Igor
продублирую субботний вопрос есть ли какой-то како...

с большой долей вероятности это писал не делфист код неграмотен, но на работу это не влияет

0

04.12.2023

Boris Usievich

Igor
продублирую субботний вопрос есть ли какой-то како...

точно нет смысла в проверке Assigned перед FreeAndNil 🤷🏻‍♂️

0

04.12.2023

Handatros

Обниливать смысла тоже нет. Если инстанс только что создали то там и так гарантированно будет nil. Если же как-то умудрились до конструктора создать поля то будет утечека

0

04.12.2023

zamtmn

Handatros
Обниливать смысла тоже нет. Если инстанс только чт...

почему сразу утечка)) и умудряца тоже ненадо - в лазаре можно создать с подготовленными полями емнип

0

04.12.2023

Handatros

zamtmn
почему сразу утечка)) и умудряца тоже ненадо - в л...

Как после обниливания разрушить?

0

04.12.2023

zamtmn

Handatros
Как после обниливания разрушить?

ну этоже не полный код, а кусок?

0

04.12.2023

Handatros

zamtmn
ну этоже не полный код, а кусок?

Ну я ж откуда знаю?)

0

04.12.2023

Igor Автор вопроса

zamtmn
ну этоже не полный код, а кусок?

полный практически одно присвоение невтемное из конструктора убрал

0

04.12.2023

Alexander 👋 · Accepted Answer

Alexander 👋

Igor
продублирую субботний вопрос есть ли какой-то како...

Эта инициализация бесмысленна, т.к. при создания класса, переменные забиваются Default значениями FList := nil; FSyncObj := nil; Создание на afterconstraction нужно, чтобы при ошибке в конструкторе не произошло разрушение класса Но тогда нужно каждый раз проверять, был ли созданы объекты: FList и FSyncObj

0

04.12.2023

169 похожих чатов

Constructor TCEFComponentIdList.Create; begin inherited Create; FList

10 ответов

Похожие вопросы