Вопрос про try

← →
sancho2 (2008-03-03 11:03) [0]

Mem1 := TMemoryStream.Create; try Mem1... Mem2 := TMemoryStream.Create; try SomeProc(Mem1, Mem2); // после этого Mem1 - больше мне не нужен finally Mem1.Free; end; Mem2... finally Mem2.Free; end;

Как в таком случае делать try и finally: я хочу сразу после SomeProc освободить Mem1.

?

← →
Сергей М. © (2008-03-03 11:05) [1]

> я хочу сразу после SomeProc освободить Mem1

Ну так ты именно это и делаешь...

← →
Kolan © (2008-03-03 11:07) [2]

> Как в таком случае делать try и finally: я хочу сразу после
> SomeProc освободить Mem1.

Как-то это мозг разрушает. Обычно:

Создал «А» try finally Удалил «А» end;

А у тя каша.

Mem2 := TMemoryStream.Create; try Mem1 := TMemoryStream.Create; try Mem1&#133 SomeProc(Mem1, Mem2); // после этого Mem1  больше мне не нужен finally Mem1.Free; end; Mem2&#133 finally Mem2.Free; end;

← →
sancho2 (2008-03-03 11:08) [3]

А такое, как у меня, - это нормально?

← →
Kolan © (2008-03-03 11:10) [4]

> А такое, как у меня,  это нормально?

Работать будет, но, имхо, это ненормально&#133

> sancho2 (03.03.08 11:08) [3]

с чего это вдруг нормально то, у тебя все кривося накося? утечка памяти имеет место быть при возникновении исключения между первым и вторым try

> sancho2 (03.03.2008 11:08:03) [3]

Да вполне нормально, типичный дурдом.

Вопрос про try Найти похожие ветки