VPF::Функция типа TStringList - Форум программистов

MishaVinogradov

Дата 25.3.2005, 00:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 18.2.2005

Репутация: нет
Всего: 1

Как написать функцию, возвращающую TStringList. По идее компилятор должен создавать как бы глобальную переменную типа TStringList. Но, увы, при вызове происходит ошибка.

Неужели выход только в том, чтобы создавать в вызывающей программе переменную типа TStringList и передавать ее в качестве параметра.
Использовать классы вроде бы тоже неудобно (создавай, потом удаляй - как и переменную-параметр) как быть, неужели функции в Delphi могут возвращать только простые типы. smile

Код


function MyList:TStringList;
var i:Integer;
begin
  for i:=1 to 3 do
    result.Append(IntToStr(i));
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
//  my.Create;
try
  Memo1.Lines.Assign(MyList);
finally
//  my.Free;
end;
end;

s-mike

Дата 25.3.2005, 00:19 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 425
Регистрация: 16.1.2005
Где: Киев

Репутация: 9
Всего: 16

А создавать перед возвратом кто будет?

Код


function MyList:TStringList;
var i:Integer;
begin
  Result := TStringList.Create;
  for i:=1 to 3 do
    result.Append(IntToStr(i));
end;

Это сообщение отредактировал(а) s-mike - 25.3.2005, 00:20

--------------------

Преферанс для Android на базе исходников Марьяжа

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »