Что значит подобная конструкция

← →
Eugene1501 (2011-03-29 16:42) [0]

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

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;

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

← →
OW © (2011-03-29 16:51) [1]

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

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

← →
Palladin © (2011-03-29 17:11) [2]

> Eugene1501 (29.03.11 16:42)

with + F1

← →
Eugene1501 (2011-03-29 17:34) [3]

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

← →
Dennis I. Komarov © (2011-03-30 09:14) [4]

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

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

try/finally

← →
Anatoly Podgoretsky © (2011-03-30 10:09) [5]

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

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

← →
brother © (2011-03-30 10:22) [6]

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

end;
?

← →
brother © (2011-03-30 10:23) [7]

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

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

← →
Dennis I. Komarov © (2011-03-30 10:26) [8]

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

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

← →
brother © (2011-03-30 10:38) [9]

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

← →
Dennis I. Komarov © (2011-03-30 10:46) [10]

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

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

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

← →
brother © (2011-03-30 10:50) [11]

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

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

> 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

Что значит подобная конструкция Найти похожие ветки