Hola
Bien:
Entonces suponemos que free libera la memoria, no?.
Siguiendo tu ejemplo, que pasa aqui amigo?:
Código Delphi
[-]
var
Form1: TForm1;
vr_tags: TStrings;
i: Integer;
Mem: TMemoryStatus;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Mem.dwLength := SizeOf(Mem);
GlobalMemoryStatus(Mem);
Caption:= Format('Memoria virtual disponible: %d', [Mem.dwAvailVirtual]);
for i:= 1 to 1000000 do
begin
vr_tags:= TStringList.Create; vr_tags.Append('texto');
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
vr_tags.Free;
Mem.dwLength := SizeOf(Mem);
GlobalMemoryStatus(Mem);
Caption:= Format('Memoria virtual disponible: %d', [Mem.dwAvailVirtual]);
end;
Que hago mal?
Saludos