Indy

[The Pirate Bay]

Использую вот такой цикл

for i:=0 to sum do begin
IdHTTP1.HandleRedirects:=false;
try
IdHTTP1.Get('что-то'+Edit1.Text);
except Begin
Edit1.Text:=deleteFaskaStr(IdHTTP1. Response.Location,6,1);
end;
end;
IdHTTP1.HandleRedirects:=True;
try
IdHTTP1.Get('что-то'+Edit1.Text);
except
end;
end;
ShowMessage('Успешно закончено');


Если цикл повторить например 3000 раз, то программа занимает около 500-700 МБ оперативки, как уменьшить или очистить, занимаемую память для программы? Заранее благодарен!

[Пепел Феникса]

это весь код?
меня интересуют неизвестные мне процедуры типа FreeMem и DeleteFaskaStr
потому что сам код поидее верен, разве что в ИнДи утечка

[The Pirate Bay]

FreeMem;-это я пробовал память освобождать, но ничего не получилось


//Удаление лишнего
function deleteStr(s: string; posit, count: integer): string;
begin
Delete(s, posit, count);
Result := s;
end;
function deleteFaskaStr(s: string; first, last: integer): string;
begin
result := deleteStr(s, 1, first);
result := deleteStr(Result, length(Result) - last + 1, length(Result) -
(length(Result) - last));
end;



эт я узнаю по какому адресу меня перенаправляют и удаляю всё лишнее

[The Pirate Bay]

а если поподробнее, где в инди может быть утечка?

[Пепел Феникса]

чет не припомню функции FreeMem чтоб без параметров работала...

в ИнДи, да мест много...у вас какая версия ИнДи?
это точно весь код?(допустим по кнопке)
просто если есть еще чтото то лучше показать ибо(я не прошу всякие там парсинги...но именно все что выполняется с этим циклом)

[The Pirate Bay]

это и есть весь код по кнопке, а как узнать версию инди, у меня 7 делфи, а инди стандартная

[The Pirate Bay]

вроде 9 версия инди

[The Pirate Bay]

кто поможет?

[пауэрлифтинг]

обнови до 10.5.7 версии

[The Pirate Bay]

поможет или просто предположение?
А как избавиться от зависания данного кода(форма как бы не отвечает, а на самом деле код выполняется)?