W jaki sposób mogę zwolnić pamięć po utworzonych w czasie pracy programu komponentach?
for numer:=0 To 10 Do
With THTTPGet.Create(Form1) do
begin
FileName:=...
URL:=...
GetFile;
end;
Napisałem sobie coś takiego i usuwa, ale chciałbym żeby nie sprawdzało wszystkich, tylko wyszukało komponenty typu HTTPGet i usunęło (zwolniło pamięć). <ort>na pewno </ort>jest inny sposób.
procedure TForm1.FreeHTTP;
var i: Integer;
begin
i:=0;
while i<componentcount do
begin
if components[i] is THTTPGet then
begin
components[i].Free;
dec(i);
end;
inc(i);
end;
end;