Тест для всех!

← →
Loginov Dmitry © (2006-08-12 21:49) [40]

> Юрий Зотов © (12.08.06 20:29) [37]

> Заголовок топика неверен. Этот тест - не для всех.

Точно. Надо было назвать: "Тест не для всех"

← →
DiamondShark © (2006-08-12 22:09) [41]

Что-то я запутался совсем. Доводов к чему?
Нормальные там доводы.
Стандартный шаблон:

ЗахватитьРесурс;
try
ИспользоватьРесурс;
finally
ОсвободитьРесурс;
end;

Но есть частные случаи. Если отдавать себе отчёт в том, что происходит, то никаких проблем.
Об чём ломание копий?

← →
Sistr (2006-08-12 23:04) [42]

дак эксепшен, соответсвенно код прервется, но потом должен все таки показать, или нет..

← →
ssk © (2006-08-12 23:10) [43]

>>>Loginov Dmitry
и в чем прикол приведенного кода в [0], собственно?
ну появилось AV у меня после выполнения такого куска

procedure TForm1.Button1Click(Sender: TObject); begin with TList.Create do try List[1] := nil; finally Free; end; ShowMessage("Hello World!"); end;

а дальше-то что? лично я всегда предпочитал писать нормально работающий код без всяких премудростей

З.Ы. в чем смысл топика так и не понял. или тупой (я), или выпитых 3 литра пива мешает думать

← →
SergP © (2006-08-12 23:11) [44]

>
> ... или выпитых 3 литра пива мешает думать

Да.

← →
Ketmar © (2006-08-12 23:13) [45]

> [42] Sistr (12.08.06 23:04)
покажет. но не то. %-)

← →
Loginov Dmitry © (2006-08-12 23:36) [46]

> ssk © (12.08.06 23:10) [43]
>
> З.Ы. в чем смысл топика так и не понял. или тупой (я), или
> выпитых 3 литра пива мешает думать

Смысл в том, чтобы ответить на поставленный вопрос :))

← →
Loginov Dmitry_ (2006-08-16 09:23) [47]

Up!

Продолжение :)

with TList.Create do try Items[1] := nil; Exit; finally Free; ShowMessage("Hello World!"); end;

Вопрос в том же: будет ли показан Hello World!

← →
Furyz © (2006-08-16 09:26) [48]

> with TList.Create do
> try
> Items[1] := nil;
> Exit;
> finally
> Free;
> ShowMessage("Hello World!");
> end;

нет

← →
Gero © (2006-08-16 09:27) [49]

> [47] Loginov Dmitry_ (16.08.06 09:23)

Да.

← →
vidiv © (2006-08-16 09:31) [50]

Будет... хватит голову морочить!

← →
Loginov Dmitry_ (2006-08-16 09:45) [51]

На строку
Items[1] := nil;
внимание не обращайте :)

← →
Marser © (2006-08-16 12:02) [52]

AFAIR, exit в блоках try..finally не канает. Такшта да.

А с сабжем интересно получается. Отлов в главном трай-экзепт и выход в космос. Не учтено...

← →
Romkin © (2006-08-16 12:46) [53]

Marser © (16.08.06 12:02) [52] Канает. По exit войдет в finally

← →
KilkennyCat © (2006-08-16 12:47) [54]

> Тест для всех!

и для меня тоже?

← →
Marser © (2006-08-16 12:57) [55]

> [53] Romkin © (16.08.06 12:46)
> Marser © (16.08.06 12:02) [52] Канает. По exit войдет
> в finally

Прямое назначение Exit - выход из блока. Из блока try..finally таки не канает - все равно finally выполнится.

> и для меня тоже?

Нет, только для "ВСЕХ". А ты не все, так что можешь ничего не отвечать :))

> Прямое назначение Exit - выход из блока. Из блока try..finally
> таки не канает - все равно finally выполнится.

В том-то и фишка, что секция finally выполняется всегда, причем неважно, чем был прерван блок try (Abort, raise Exception, Exit). Удобно. Не нужно самому заботиться, чтобы объекты были уничтожены до Exit.

Тоесть, если сделать так

procedure TForm1.Button1Click(Sender: TObject); begin with TList.Create do try Exit; finally Free; ShowMessage("Hello World 1"); end; ShowMessage("Hello World 2"); end;

то показан будет только текст Hello World 1

может быть =)

> Loginov Dmitry © (16.08.06 19:40) [56]

> > и для меня тоже?

> Нет, только для "ВСЕХ". А ты не все, так что можешь ничего
> не отвечать :))

Да-с, и снова дискриминация. По этим, как их там .. признакам.
Т.е., не для всех, не для голубых(штанов), и т.д.

Хотели как лучше - получили, как обычно-с.

--
Regards, LVT.

> не для всех, не для голубых(штанов), и т.д.

Я думаю, что для многих информация, которую можно почерпнуть из данной ветки просто не представляет ценности (это люди, которым данная информация не нова, и те, которым она не нужна).

Тест для всех! Найти похожие ветки