| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

array [] of tstrings;

stud ©   (2004-12-02 12:26:00) 

подскажите. как правильно проинициализировать массив значениями типа tstrins?
aa : array [0..4] of tstrings = ?
литературы никакой нет под рукой

---

Александр Иванов   (2004-12-10 15:00:00) [1]

SL:=AnyFunction;
//...Используешь
SL.Free;

---

Sirus   (2004-12-10 14:58:00) [2]

ОК... Понятно... ТОлько при каждом использовании этой функции прога занимает все большее место в памяти (рост на 32 Кб)...

---

Reindeer Moss Eater   (2004-12-10 14:50:00) [3]

Function AnyFunction: TStrings;
begin
Result := TStringList.Create;
Result.Add('AnyString');
end;

---

Reindeer Moss Eater   (2004-12-10 14:48:00) [4]

Бред какой.
Зачем возвращать, если убиваешь?
Зачем убивать если возвращаешь?

---

Sirus   (2004-12-10 14:42:00) [5]

Тут еще такое есть... Нужно чтобы функция возвращала результат типа TStrings...
Результат она возвращает:
Но надо ли переменную использованную в этой функции освободить...
типа:

Function AnyFunction: TStrings;
Var List: TStringList
begin
List:=TstringList.Create;
List.Add('AnyString');
Result:=List;
List.Free; // Нужна ли эта строка? Без нее работает, а с ней нет...
End;

---

Skier   (2004-12-02 13:57:00) [6]

for i := Low(aa) to High(aa) do
  aa[i]:=TStringList.Create;

---

stud   (2004-12-02 12:30:00) [7]

спасибо

---

Александр Иванов   (2004-12-02 12:29:00) [8]

Только зачем такое извращение?
TStrings - абстрактный класс.

var aa : array [0..4] of TStrings;
i:byte;
begin
 for i := 0 to 4 do
   aa[i]:=TStringList.Create;
end;

---

Наверх