Подскажите пожалуйста, как работает следующая конструкция.

with TOracleDataSet(DataSet), frStatementAccount_Fr(ActiveView.Filter) do
 begin
   SetVariable('iAccNum', FAccnum);
   SetVariable('iCurrcode', FCurrcode);
   SetVariable('iDate1', FBeginDate);
   SetVariable('iDate2', FEndDate);
   SetVariable('p_Filial_No', FFilialNo);
end;

до сих пор использовал такую конструкцию:
with  (имя класса).Create(Self) do
begin
 ...
 Free;
end;

А что означает приведенная выше запись не пойму. Очень нужно разобраться в чужом проекте. Заранее спасибо.

тоже самое примерно

type
 TA = record
   FA1: Integer;
 end;
 TB = record
   FB1: Integer;
 end;
var
 A: TA;
 B: TB;
begin
 with A,B do
   FA1 := FB1;

> Eugene1501   (29.03.11 16:42) 

with + F1

Ой, спасибо, протупил

> with  (имя класса).Create(Self) dobegin  ...  Free;end;

к стенке за такое...

try/finally

> > with  (имя класса).Create(Self) dobegin  ...  Free;end;
>
>
> к стенке за такое...
>
> try/finally

Не обязательно, исключение и так сработает, выше, если здесь не надо его обрабатывать, то зачем делать? Это не ошибка!

обычно делал
with TOracleDataSet(DataSet) do
 with frStatementAccount_Fr(ActiveView.Filter) do
 begin

 end;
?

> к стенке за такое...

что не так?
согласен с [5], может не тут эксепшен надо ловить?

> Не обязательно, исключение и так сработает, выше, если здесь
> не надо его обрабатывать, то зачем делать? Это не ошибка!
>

=-O Ну сработает, а объект кто уничтожать будет? Пушкин?

эксепшен на креате?

> эксепшен на креате?

С чего вдруг? Внимательнее читаем ;)


> до сих пор использовал такую конструкцию:
> with  (имя класса).Create(Self) do
> begin
> ...
> Free;
> end;

так он и не создастся тогда?

там есть много точек, значит может быть моного исключений

> brother ©   (30.03.11 10:50) [11]
>
> так он и не создастся тогда?

Если не создастся, то и проблем не будет. А если создастся, то никакие последующие исключения не должны воспрепятствовать последующему уничтожению его.

> =-O Ну сработает, а объект кто уничтожать будет? Пушкин?

С этим согласен, но ты бы так и писал, а не ругался.

> Германн  (30.03.2011 11:55:13)  [13]

Ой ли

> Anatoly Podgoretsky ©   (30.03.11 12:07) [14]

Я ругался? Не, я сразу приговорил, ибо если есть Create/Free - будь добр try/finally