Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];

Вниз

Совмещение оператора with с функцией Add   Найти похожие ветки 

 
Нуу   (2003-06-07 03:14) [0]

Общеизвестно использование внутри одной процедуры метода создания и уничтожения динамического объекта.
with TMyObject.Create() do begin
...
Free;
Все вышеописанное, естественно, дополняется try/except/finally.

В данном случае использование with TMyObject.Create() вместо ссылки на локальную или глобальную переменную является не только логичным, но и правильным с учетом недопущения "непонятных" ошибок при использовании вышеупомянутых переменных.

Но теперь представим себе такой вариант - динамически создается объект TMyObject и если его создание прошло удачно, то он добавляется в некий MyList класса TList. Ежу понятно, что для дальнейшего использования, локальная или глобальная переменная данного типа никому не нужна. Но что указать в процедуре MyList.Add ?


 
ЮЮ   (2003-06-07 04:57) [1]

>Ежу понятно, что для дальнейшего использования, локальная или глобальная переменная данного типа никому не нужна

Но тебе то она нужна! Неужели так трудно объявить локальную переменную? Если уж совсем религия не позволяет, то
MyList.Add(TMyObject.Create());
with MyList.Items[MyList.Count - 1] do ...


 
Anatoly Podgoretsky   (2003-06-07 11:23) [2]

with MyList.Items[MyList.Add(TMyObject.Create)] do ...;
Но локальная переменная не может являться источником непоняток.


 
Нуу   (2003-06-08 03:02) [3]

2 Anatoly Podgoretsky © (07.06.03 11:23)
С мнением, что "локальная переменная не может являться источником непоняток" я лично, могу согласиться. И у меня таких непоняток не было, нет и не будет.

2 ЮЮ © (07.06.03 04:57)
2 Anatoly Podgoretsky © (07.06.03 11:23)
Ваши ответы прекрасно работают в случаях, если вызов TMyObject.Create был успешен. Неуспешность вызова сего метода я могу представить лишь возвращением nil. Но метод TList.Add (если я не ошибаюсь) добавляет в список все, в том числе и nil. Или я не прав?


 
VMcL   (2003-06-08 03:17) [4]

>Нуу (08.06.03 03:02)

Nil значит, что в конструкторе возникло исключение, а оно будет передано в except блок (если таковой имеется). Поэтому MyList.Add(TMyObject.Create()) не сработает.


 
VMcL   (2003-06-08 03:24) [5]

Дополнение к >VMcL © (08.06.03 03:17)

Есть, правда, старый способ прерывания конструктора - Fail, но он не вызывает деструктор, поэтому его лучше не использовать.


 
Anatoly Podgoretsky   (2003-06-08 08:51) [6]

Нуу (08.06.03 03:02)
Ну так чего же если он хочет работать с with, если надо в именно данном месте обрабатывать исключение, то надо применить локальную переменную, против чего он против. Но как сказано проблемы не будет, поскольку будет выход отсюда по исключению на обработчик более высокого уровня.
Эти бве конструкции в части работы при ш=ошбике абсолютна индетичны

MyList.Add(TMyObject.Create());
with MyList.Items[MyList.Count - 1] do ...

with MyList.Items[MyList.Add(TMyObject.Create)] do ...;

Создание объекты и если нет исключени то переход к работе с объектом. Но это как раз тот случай, когда не желательно использовать with из за потенциальных ошибок


 
Нуу   (2003-06-09 01:47) [7]

Спасибо, Анатолий. Понял основную идею.
Просто у меня в прежней версии программы, в данном случае, не могло быть неудачного создания объекта. Поэтому, об исключениях просто не думал. Теперь, конечно, введу исключение в Create и обработку его в соответствующем уровне. А все прочее - мелочи.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.031 c
1-84348
FRT
2003-06-16 11:42
2003.06.26
Объединение ячеек в StringGrid


1-84233
xaosik
2003-06-13 11:30
2003.06.26
Помогите с мемо!


14-84655
PaulSin
2003-06-10 13:18
2003.06.26
Сабж - значение слова ?


1-84252
paxer
2003-06-13 18:12
2003.06.26
TDrawGrid и TEdit - не работает OnChange


11-84055
SPeller
2002-10-10 14:37
2003.06.26
Динамическое создание/удаление контролов.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский