О TList и функциях

← →
Pentium133 © (2004-10-13 11:54) [0]

Добрый день.

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

Если использую такой вариант реализации функции - ошибок нет:
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:02) [1]

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

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

← →
ЮЮ © (2004-10-13 12:08) [2]

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

← →
Pentium133 © (2004-10-13 12:08) [3]

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

← →
Reindeer Moss Eater © (2004-10-13 12:09) [4]

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

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

← →
Reindeer Moss Eater © (2004-10-13 12:10) [5]

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

← →
Pentium133 © (2004-10-13 12:11) [6]

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

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

← →
Reindeer Moss Eater © (2004-10-13 12:13) [7]

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

← →
Pentium133 © (2004-10-13 12:14) [8]

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

← →
Pentium133 © (2004-10-13 12:17) [9]

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

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

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

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

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

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

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

О TList и функциях Найти похожие ветки