Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Вниз

Функция не возвращает 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.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.019 c
4-32364           Malkovich             2001-12-11 20:27  2002.02.11  
Помогите мне, братья по делу !!!!!!


1-32279           XX                    2002-01-28 17:21  2002.02.11  
В созданном (Win)Help e неправильные символы


1-32242           Елена                 2002-01-27 22:30  2002.02.11  
Сорт. по дате.


1-32250           Solod                 2002-01-28 10:45  2002.02.11  
Наводка на ответ Johnmen


14-32347          Ross                  2001-12-20 20:32  2002.02.11  
RX lib