tag:blogger.com,1999:blog-3208941668630248550.post7624313077894238758..comments2024-03-13T10:43:06.615+02:00Comments on 18-ть лет с Delphi: Из "закромов"Alex W. Lulinhttp://www.blogger.com/profile/08400475846894229767noreply@blogger.comBlogger7125tag:blogger.com,1999:blog-3208941668630248550.post-63765593163130276412013-07-17T22:38:45.500+03:002013-07-17T22:38:45.500+03:00Да - AV.
L - опечатка. Да! - не хватает FreeAndNil...Да - AV.<br />L - опечатка. Да! - не хватает FreeAndNil.<br />про Implements - ОТДЕЛЬНО напишу. Там есть вероятность словить AV.Alex W. Lulinhttps://www.blogger.com/profile/08400475846894229767noreply@blogger.comtag:blogger.com,1999:blog-3208941668630248550.post-55927908389220485652013-07-17T06:27:15.303+03:002013-07-17T06:27:15.303+03:00AV там будет на Result := A.Count;
По второму - ...AV там будет на Result := A.Count; <br />По второму - действительно, L откуда взялось? Ну и "согласен с предыдущим оратором" - надо Free для списка, а перед этим для каждого TPerson в списке. <br />Implements - ключевое слово, применяется к property для того, чтобы делегировать тому, кто в этом property "сидит", реализацию какого-то интерфейса. Вот что в вопросе со счетчиком ссылок имелось ввиду - не понял, но я бы ответил про разницу TInterfacedObject / TContainedObject и про то, что классу, который будет использоваться с implements не нужен подсчет ссылок, поскольку время жизни его экземпляров равно времени жизни объекта, который его агрегирует.Anonymoushttps://www.blogger.com/profile/17170792408265896123noreply@blogger.comtag:blogger.com,1999:blog-3208941668630248550.post-1320763262692394712013-07-16T23:37:59.139+03:002013-07-16T23:37:59.139+03:00"остальные к сожалению хз. :("
даже imp..."остальные к сожалению хз. :("<br /><br />даже implements?Alex W. Lulinhttps://www.blogger.com/profile/08400475846894229767noreply@blogger.comtag:blogger.com,1999:blog-3208941668630248550.post-51869289297581516132013-07-16T23:37:05.841+03:002013-07-16T23:37:05.841+03:00"Ну и по итогу надо FreeAndNil(l_List);"..."Ну и по итогу надо FreeAndNil(l_List);"<br /><br />Я "не помню"... Но идея была как раз в этом. Причём - не ОДИН Free.Alex W. Lulinhttps://www.blogger.com/profile/08400475846894229767noreply@blogger.comtag:blogger.com,1999:blog-3208941668630248550.post-75420718197581607292013-07-16T23:36:01.721+03:002013-07-16T23:36:01.721+03:00"что такое L ?"
-- это "хорошо"..."что такое L ?"<br />-- это "хорошо"Alex W. Lulinhttps://www.blogger.com/profile/08400475846894229767noreply@blogger.comtag:blogger.com,1999:blog-3208941668630248550.post-91311313158301559432013-07-16T23:35:15.309+03:002013-07-16T23:35:15.309+03:00"думаю либо -1 либо хз "
Вы издеваетесь..."думаю либо -1 либо хз "<br /><br />Вы издеваетесь?Alex W. Lulinhttps://www.blogger.com/profile/08400475846894229767noreply@blogger.comtag:blogger.com,1999:blog-3208941668630248550.post-17540688900195497812013-07-16T21:37:56.383+03:002013-07-16T21:37:56.383+03:001. думаю либо -1 либо хз
2. Ну дело ведь в назван...1. думаю либо -1 либо хз <br />2. Ну дело ведь в названии переменной :)<br />(хотя это по сути и не переменная вовсе, поправьте плз если неправ)<br />Function A: TList;<br />Begin<br /> Reslt := TList.Create;<br />End;<br />Ну а если серьезно то ... <br />что такое L ? <br />Var<br /> l_List : TList;<br />Begin<br /> l_List := A;<br /> GetPersons(L); // Здесь наверно должен быть <br /> //GetPersons(l_List);<br />End.<br />Ну и по итогу надо FreeAndNil(l_List);<br />хотя буду на работе проверю :) вы меня заинтриговали.<br />Ещё думаю что проблема может быть в функции А.<br />остальные к сожалению хз. :(Ingwordhttps://www.blogger.com/profile/10969370701744032583noreply@blogger.com