Главная страница
    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.47 MB
Время: 0.027 c
1-84287
Hog
2003-06-14 23:24
2003.06.26
Перересовка отдельного окна.


1-84093
Doc
2003-06-10 14:21
2003.06.26
Имею C: path file.exe, надо получить C: path


7-84803
fifo
2003-04-18 17:31
2003.06.26
Как недать приложению нарисоваться на экране


4-84830
Anonimus
2003-04-24 12:22
2003.06.26
Обработка событий от мыши..


14-84699
BJValentine
2003-06-04 12:42
2003.06.26
Com port





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский