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]

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

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

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

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

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

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