Как вернуть объект из функции в Delphi, не вызывая нарушения прав доступа?

Простой ответ: Вы не можете. Почему Вы пытаетесь? Это, потому что Вы узнали, что необходимо освободить каждый объект, который Вы создаете в той же функции, в которой они создаются? Это обычно корректно, но не всегда, и это - одно из исключений из правила. Лучший способ поместить его состоит в том, что каждый объект должен быть освобожден его владельцем.

, Если у Вас есть функция, которая генерирует объект, как этот, но затем передает его на другую функцию, он не берет владение объекта. Удалите вызов, чтобы освободить и зарегистрировать его, таким образом, Вы (и кто-либо еще, кто использует эту функцию) поймете, что это создает новый объект, из которого код, который называет его, должен взять владение.

, Как я могу возвратить TStringList и все еще освободить его в локальной функции?

Вы не можете. При освобождении его в локальной функции Вы не можете использовать возвращаемое значение. Результат и vStrList указывают на тот же объект TStringList в памяти. TStringList является классом, и

Result := vStrList

поэтому не копирует список строк, но только копирует ссылку.

Так, вместо этого необходимо освободить список строк в контексте вызова после того, как Вы будете сделаны, работая с ним или передадите список строк в качестве параметра Вашей функции как это

procedure FuncStringList (StringList : TStringList);

и позволите коду вызова создать и освободить список строк. Как указано другими ответами, это - предпочтительный путь, так как он делает владение очень ясным.

Не освобождайте объект, прежде чем Вы будете сделаны, вызывая методы на нем. Вы в настоящее время вызываете Метод счета для уничтоженного объекта, следовательно ошибка.

, Почему Вы не создаете список строк в функции вызова и передаете ее ссылку на метод, который заполняет его? Или сделайте список строк членом класса и освободите его при освобождении класса, который владеет им?

Вы просто не можете освободить что-то и затем ожидать ссылаться на него позже. Это - неправильный путь. У Вас есть две основных опции:

• не называют свободными, и делают вызывающую сторону ответственной за избавление от объекта
• , Сделали, чтобы вызывающая сторона передала в объекте так, чтобы это было ответственно, и за Создать и за Свободный

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

Другая возможность состоит в том, чтобы использовать динамический массив вместо TStringList. Так как массивы являются считаемой ссылкой, Вы никогда не должны будете волноваться об освобождении ее.

Политика, которую я имею с такими ситуациями, состоит в том, чтобы передать stringlist содержание через текстовое свойство и просто передать строку, возвращенную к функции. Таким образом, там не является никакая потребность обсудить, кто выпускает кто. Конечно, необходимо сделать немного больше кодирования, но это более безопасно. Примером является адаптация одной Ken White:

var
  SL: TStringList;
  Aux: String;
begin
  SL := TStringList.Create;
  try
    SL.Text := ProcToFillStringList;
    //Do something with populated list
  finally
    SL.Free;
  end;
end;

 // It receives a default param, in the case you have to deal with 
 // StringList with some previous content    
 function ProcToFillStringList(SListContent: String = ''):String;
 // Do the stuff you need to do with the content
end;

исключение - когда все, что Вы имеете, является объектом и нет никакого способа получить содержание на нем через безопасный тип (в этом случае, строки); тогда я следую за идеей Ken White.