Все строки функции выполнятся?

← →
alex-drob (2005-06-04 23:51) [0]

Если в функции написать

Icon:=TIcon.Create; Icon.Handle:=ExtractIcon(Handle,PChar(ini.ReadString(TS.Items[i],"Icon","")),0); Result:=Icon; Icon.Free;

Последняя строка выполнится или нет?

← →
lookin © (2005-06-04 23:58) [1]

А почему нет?

← →
alex-drob (2005-06-05 00:03) [2]

Я просто не знаю когда функция завершается,когда до End доходит или result

← →
lookin © (2005-06-05 00:08) [3]

Ну, как мне кажется, функция завершается все-таки по окончании ее описания, т.е. до End

← →
alex-drob (2005-06-05 00:11) [4]

Спасибо!

← →
Германн © (2005-06-05 00:14) [5]

Последняя строка выполнится гарантировано только, если включить ее в try...finally.

← →
alex-drob (2005-06-05 01:15) [6]

Последняя строка выполняется, но функция возвращает Result только по оканчании выполнения последней строки. Возникает ошибка, я понимаю что это из за того что icon уже уничтожен. Можно ли как нибудь уничтожить объект после выполнения функции.

← →
lookin © (2005-06-05 01:21) [7]

А не проще Result после применеия уничтожать?

← →
alex-drob (2005-06-05 01:25) [8]

А как?

← →
lookin © (2005-06-05 02:31) [9]

MyIcon.Free

← →
DrPass © (2005-06-05 02:32) [10]

На самом деле ты вообще зря этот код в функцию засунул. Где тебе надо иконку использовать, там и пиши
Icon:=TIcon.Create;
Icon.Handle:=ExtractIcon(Handle,PChar(ini.ReadString(TS.Items[i],"Icon","")),0);
А уже после того, как использовал - Icon.Free

← →
Abessalom (2005-06-05 04:41) [11]

> DrPass © (05.06.05 02:32) [10]
..зря этот код в функцию засунул...

Есть неопределенное количество функций (Ворланд), результатом выполнения которых является объект, созданный внутри такой функции. Примеров можно найти много, NewItem, NewMenu... Не вижу аргументов...

← →
Abessalom (2005-06-05 04:54) [12]

> Abessalom (05.06.05 04:41) [11]

Если конечно за аргументы принять то, что функция, похоже, не получает аргументов, и наверняка вызывается один раз... тогда да, лучше именно так.

По сути вопроса: все строки функции всегда выполняются, вплоть до завершения (end), выхода (Exit) или возникновения исключения. Оптимизатор также может чуть "подрезать" ваш код, если он по смыслу пуст.

← →
злобная танька (2005-06-05 10:03) [13]

> Abessalom (05.06.05 04:54) [12]

ну, goto ещё :)

← →
Abessalom (2005-06-05 10:10) [14]

> злобная танька (05.06.05 10:03) [13]

:)
Пусть еще.) Гото новхере)

> alex-drob

Функция:

function CreateMyIcon: TIcon; begin Result := TIcon.Create; try Result.Handle := ExtractIcon(...) except Result.Free; raise end end.

Использование:

var Icon: TIcon; begin Icon := CreateMyIcon; try // Использование Icon finally Icon.Free end end.

← →
alex-drob (2005-06-05 17:26) [16]

> DrPass © (05.06.05 02:32) [10]

Вопрос не именно в этой функции, я привел просто пример. Меня интересует если чтото создать в функции, то потом как удалить.

> begin...end © (05.06.05 10:20) [15]

Спасибо! Попробую.

Abessalom (05.06.05 04:41) [11]

>Есть ... количество функций , результатом выполнения которых является объект, созданный внутри такой функции. Примеров можно найти много, NewItem, NewMenu

Как правило, объекты, созданные внутри таких функций, сразу же попадают в какой нибудь список, ответственный за время жизни этих объектов

Все строки функции выполнятся? Найти похожие ветки