Главная страница
    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.027 c
1-84179
Maxim Pshevlotsky
2003-06-07 07:29
2003.06.26
Не выгружается MTS сервер


4-84853
EK
2003-04-26 22:08
2003.06.26
Полупрозрачность


1-84398
TSa
2003-06-06 21:32
2003.06.26
Глюк в Win2000 при открытии файла


6-84491
Maksss
2003-04-21 01:54
2003.06.26
2 сети посредине я


3-83858
DBDev
2003-06-01 16:57
2003.06.26
Как бы сделать управляемый ORDR BY в SP? Помогите ПЛЗ!





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