Освобождение памяти в TStringGrid

[Ferrum26]

Имеем:
1)Функция возвращающая Tstrings

function aaa: TStrings;
Var
temp: TStrings;
begin
temp:=TStringList.Create;
for i:=0 to 100 do temp.Add('abcdefg');
Result:=temp;
end;

2) StringGrid заполняемый с помощью этой функции

procedure bbb;
Var
i: integer;
List: TList;
begin
  for i:=0 to StringGrid.RowCount-1 do
  StringGrid.Rows[i]:=aaa;
end;

Теперь вопрос: как очистить память вместе с содержимым StringGrid?

Этот вариант память не чистит:

for i:=0 to StringGrid.RowCount-1 do
  StringGrid.Rows[i].Clear;

[Korben5E]

попробуй так

for i:=0 to StringGrid.RowCount-1 do
StringGrid.Rows[i].Text := '';

[Grag]

А может быть в функции ааа сразу же и уничтожать созданный экземпляр класса??? Чтобы не было утечки памяти, а???

Result:=temp;
temp.free;

[Stilet]

function aaa: String;
Var
begin
 for i:=0 to 100 do Result:=Result+'abcdefg'+#13#10;
end;

procedure bbb;
Var
i: integer;
List: TList;
begin
  for i:=0 to StringGrid.RowCount-1 do
  StringGrid.Rows[i].Text:=aaa;
end;

Вот теперь не должно быть большой утечки памяти.

[evg_m]

Result:=temp;
temp.free;

и получаем AV
указатель result ссылается на уничтоженный объект aaa.Free

procedure bbb;
Var
i: integer;
List: TList;
r: TStrings;
begin
  for i:=0 to StringGrid.RowCount-1 do
begin
 r:=aaa;
  StringGrid.Rows[i]:=r;
 r.Clear;
  StringGrid.Rows[i]:=r;
 r.Free;
end;

procedure aaa(lst: TStrings);
begin
  lst.Clear;
  lst.add('1');
  ....
end;

procedure bbb;
Var
i: integer;
begin
  for i:=0 to StringGrid.RowCount-1 do
   aaa( StringGrid.Rows[i] );
end;

[Ferrum26]

Проблему решил с помощью первого примера evg_m

procedure bbb;
Var
i: integer;
List: TList;
r: TStrings;
begin
  for i:=0 to StringGrid.RowCount-1 do
begin
 r:=aaa;
 StringGrid.Rows[i]:=r;
 r.Free;
end;

очистку теперь можно делать простым очищением содержимого каждой строки StringGrid, так как из памяти строки удаляются при заполнении очередной строки

for i:=0 to StringGrid.RowCount-1 do StringGrid.Rows[i].Clear;

Только неясно одно, как StringGrid помнит что ему надо отображать, если на самом деле данные уже удалены. Все прекрасно работает даже после StringGrid.Refresh и StringGrid.Update. Чудеса

[evg_m]

procedure TStringGrid.SetRows(Index: Integer; Value: TStrings);
begin
EnsureColRow(Index, False).Assign(Value);
end;
Assign означает КОПИРОВАНИЕ данных из одного списка в другой

[Ferrum26]

Теперь ясно. При присвоении строке таблицы объекта TStrings, происходит присвоение не ссылки а копирование обьекта, таким образом в памяти хранятся по две копии присваиваемого TStrings, а при очистке StringGrid.Clear, таблица добросовестно чистит свои поля, но остаются вторые экземпляры которые некому почистить и освободить память. Вероятно так?