Скачать: CL | DM;

array [] of tstrings;   Найти похожие ветки 

← →
stud ©   (2004-12-02 12:26) [0]

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

---

← →
Александр Иванов ©   (2004-12-02 12:29) [1]

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

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

---

← →
stud ©   (2004-12-02 12:30) [2]

спасибо

---

← →
Skier ©   (2004-12-02 13:57) [3]

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

---

← →
Sirus   (2004-12-10 14:42) [4]

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

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

---

← →
Reindeer Moss Eater ©   (2004-12-10 14:48) [5]

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

---

← →
Reindeer Moss Eater ©   (2004-12-10 14:50) [6]

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

---

← →
Sirus   (2004-12-10 14:58) [7]

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c