Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

О TList и функциях


Pentium133 ©   (2004-10-13 11:54:00) 

Добрый день.

Такой вопрос к мастерам:

Если использую такой вариант реализации функции - ошибок нет:
function ReadList: TList;
begin
  Result:= TList.Create;
  //прочая инициализация
end;

вызов:
 List:= ReadList;

Но по логике приложения предпочтительнее делать так:
function ReadList: TList;
begin
  Result.Clear
  //прочая инициализация
end;


вызов:
 List:= TList.Create; //это в конструкторе
и при надобности:
 List:= ReadList;
И вот здесь AccessViolation...
Как мне правильно реализовать второй вариант?


Reindeer Moss Eater   (2004-10-13 12:25:00) [1]

передавай привет Санте.


Pentium133   (2004-10-13 12:23:00) [2]

Давайте еще пофилосовствуем о "правильном вопросе"...
Вопрос был задан правильно, т.к. правильно заданный вопрос содержит в себе половину ответа и этот ответ я нашел сам. Все спасибо за косвенную помощь.


Amoeba   (2004-10-13 12:20:00) [3]


> Pentium133 ©   (13.10.04 12:17) [9]
>
> > А фиг ли мы обсуждаем код, которого не видим?
>
> "Не уверен не обгоняй"
> Если сразу не понял вопроса чего тогда советовал?

Так задавай вопрос так, чтобы он сразу был понят правильно.


Reindeer Moss Eater   (2004-10-13 12:19:00) [4]

А где я тебе что-либо советовал?


Pentium133   (2004-10-13 12:17:00) [5]


> А фиг ли мы обсуждаем код, которого не видим?

"Не уверен не обгоняй"
Если сразу не понял вопроса чего тогда советовал?


Pentium133   (2004-10-13 12:14:00) [6]

Хм. Напрашивается такой вариант:
procedure ReadList(var lst: TList);
Думаю это будет правильно.
Судя по всему через функцию задуманно реализовать не удастся.


Reindeer Moss Eater   (2004-10-13 12:13:00) [7]

Извените я сразу не сказал что ReadList это метод объекта.
А фиг ли мы обсуждаем код, которого не видим?


Pentium133   (2004-10-13 12:11:00) [8]


> ЮЮ ©   (13.10.04 12:08) [2]

Ваш вариант не подойте. Извените я сразу не сказал что ReadList это метод объекта. И кто когда его вызовет этот объект не знает. Он просто должен проинициализировать список.


Reindeer Moss Eater   (2004-10-13 12:10:00) [9]

function ReadList: TList;
begin
Result := существующий_экземпляр_TList;
Result.Clear
 //прочая инициализация
end;


Reindeer Moss Eater   (2004-10-13 12:09:00) [10]

Ведь на момент вызова List уже существует?

А во Вселенной может существовать только один экземпляр TList?


ЮЮ   (2004-10-13 12:08:00) [11]

и при надобности вместо
List:= ReadList;
надо просто ReadList, где
procedure ReadList;
begin
 List.Clear // тот самый List, что в конcтрукторе
 //прочая инициализация
end;


Pentium133   (2004-10-13 12:08:00) [12]

Но если во втором варианте писать Result:= TList.Create, не будет ли утечек памяти? Ведь на момент вызова List уже существует?


Reindeer Moss Eater   (2004-10-13 12:02:00) [13]

function ReadList: TList;
begin
 Result.Clear
 //прочая инициализация
end;

А кто проинициализировал Result?
Санта?


Наверх

Титульная страница Поиск, карта сайта Написать письмо