Функция не возвращает TStringList

← →
madcap (2002-01-27 01:26) [0]

Привет всем!!
Объясните что я делаю не так.
Создаю новый модуль, в нем объявляю функцию :
function GetPasList:TStringList;
затем реализую ее

function GetPasList:TStringList; begin FList:=TstringList.Create; //....... //наполняю //...... Result:=FList; Result.SaveToFile("C:\1.txt"); // файл не пустой Flist.Free; end;

Проблема в том что в другом модуле функция возвращает пустой лист:-(
Если делать чтобы функция возвращал просто string то всё работает нормально
Заранее Всем благодарен.

← →
~Sergius (2002-01-27 02:29) [1]

Разумеется, лист будет пустой при выходе из функции, а точнее, после вызова FList.Free;

Когда ты делаешь Result :=Flist, что это значит? Это значит, что фунция всего лишь возвращает указатель на твой FList, а вовсе не копирует весь лист из одной области памяти в другую. Для того, чтобы лист скопировать из одной области памяти в другую и указатель на эту новую область сохранить в другой переменной существует метод Assign. Но в данном случае это не нужно (неоптимально). Делается так:

function GetPasList:TStringList; var FList: TStringList; begin FList:=TstringList.Create; //....... //наполняю //...... Result:=FList; Result.SaveToFile("C:\1.txt"); // Файла может и не быть :) //Flist.Free; "нельзя end;

А когда вызываешь функцию в другом месте:

var Lst: TStringList; begin try Lst := GetPastList; // // делаешь со списком что нужно // finally Lst.Free; end; end.

P.S. Пальца и яйца в солонку не совать! (c) Общепит

← →
aus (2002-01-27 02:34) [2]

>в другом модуле функция возвращает пустой лист

вроде не должна возвращать даже пустой лист, после обращения к результату функции должен быть Access Violation.

← →
Suntechnic (2002-01-27 06:56) [3]

По сути проблемы добавить нечего, предыдущие посты полностью указали на проблему, хочу лишь отметить, что вариант предложенный ~Sergius, конечно же рабочий, только это плохая техника: объект создаётся в одном месте, а удаляется в другом. Если требуется заполнить лист, то создавай его там где нужно, а в GetPasList передавай указатель, и там всего лишь заполняй лист, без его создания.

← →
Набережных С. (2002-01-27 12:06) [4]

А лучше - в функции Result:=TStringList.Create и без всяких FList и Free.

Функция не возвращает TStringList Найти похожие ветки