Question

delphi 内存释放的问题？

怎么释放FOR里面的内容?
procedure TForm1.Button1Click(Sender: TObject);
const
Letters='a,b,c,d,e';
var
str:TstringList;
i:integer;
begin
str:=TStringList.Create;
str.CommaText:=Letters;
for i := 0 to str.Count - 1 do begin
ShowMessage(str[i]);
end;
str.Free;
end;

end.

Answer 1

不用释放，只要你的str最终释放了就可以了
最好加上try finally end

procedure TForm1.Button1Click(Sender: TObject);
const
Letters='a,b,c,d,e';
var
str:TstringList;
i:integer;
begin
str:=TStringList.Create;
try
str.CommaText:=Letters;
for i := 0 to str.Count - 1 do begin
ShowMessage(str[i]);
end;
finally
str.Free;
end;
end;

end.

Answer 2

释放了 str就可以了.
str中的是字符串,字符串在离开作用范围后 会自动释放的.不过如果str.addObject 加了其他的对象,就要额外注意了.