[YoraG]

Столкнулся с проблемой, программа жрет оперативную память, на форме таймер и статус бар, в таймере интервал 1, в процедуре:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//StatusBar1.SimpleText:='Text';
end;

при том что так и запускаю с за комментированным текстом, получается процедура в пустую гоняет, но при этом объем используемой памяти постоянно увеличивается, если запускать с Timer1.Enabled=False соответственно используемая память не увеличивается.
Такое происходит в семерке х64, в хр х32 - нет, память не жрет, тут 2 варианта или из-за винды или из-за разрядности.

Так вот вопрос как с этим можно бороться???

[angvelem]

Куда же такой маленький период выставлен? Меньше 10 и не имеет смысла, может из-за этого быть.

[YoraG]

Вряд ли, тут вообще бред какой-то происходит, оперу перезапустил (подвисла) и все, прога память перестала жрать, хотя чем она могла быть с ней связана???

[Alegun]

Сообщение от YoraG

...как с этим можно бороться???

Если такое повторится (а вдруг ;-), возможно поможет универсальное средство - перезапуск таймера

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:= false;
//StatusBar1.SimpleText:='Text';
Timer1.Enabled:= true;
end;

[YoraG]

В общем проблема в другом, этот проект тестовый, а в моем проекте выявил такую проблему.
Тут память жрет:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
   begin
   if ComboBox8.Text='Новая почта' then
   if FileExists(ExtractFilePath(ParamStr(0))+'\Param\novpoch.lru') then
      begin
      действие
      end;
   end;

А так нет:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
   begin
   if ComboBox8.Text='Новая почта' then
 //if FileExists(ExtractFilePath(ParamStr(0))+'\Param\novpoch.lru') then
      begin
      действие
      end;
   end;

что тут можно освободить???

[Alegun]

Оффтоп:

Пока ни кто не видел пжлст, отредактируйте ваш код с помощью тега

Код:

[СODE]ваш код[/СODE] (третья кнопка от края в нижнем ряду)

считывать его сразу станет веселее, да и модерам меньше работы.

Сообщение от YoraG

...что тут можно освободить???

Подозреваю что проблема скрыта в бегенде за формулировкой "действие" т.к. представленная часть кода проблем вызвать не может, просто нечему...

[YoraG]

комментировал и "действие", опыты показали что память занимаемая увеличивается только при

Код:

if FileExists(ExtractFilePath(ParamStr(0))+'\Param\novpoch.lru') then

закомментировав эту строку все нормально. Находится это в процедуре таймера. интервал - 100

[Alegun]

а так будет утекать?

Код:

if FileExists('Param\novpoch.lru') then

[Uniq!]

У меня, если вместо ParamStr(0) указать Application.ExeName память жрать перестаёт

А, если выставить Интервал 1000, тоже всё ок.

[YoraG]

Сообщение от Alegun

а так будет утекать?

Код:

if FileExists('Param\novpoch.lru') then

Действительно!!! Перестало!!!

[YoraG]

Сообщение от Uniq!

У меня, если вместо ParamStr(0) указать Application.ExeName память жрать перестаёт

А, если выставить Интервал 1000, тоже всё ок.

На сколько я знаю Application.ExeName - возвращает путь моего ехе-шника, а там у меня проверка другого файла, а интервал 1000 - просто замедлял пожирание, ну спасибо Alegun - проблему пока решил...

[angvelem]

Сообщение от YoraG

...Тут память жрет:..

Возможно таймер не успевает отрабатывать код при 100 мСек и код запускается снова.

Application.ExeName уже "знает" имя проекта а ParamStr(0) вычисляет его. Это несколько медленнее.

[lmikle]

Сообщение от angvelem

Возможно таймер не успевает отрабатывать код при 100 мСек и код запускается снова.

Application.ExeName уже "знает" имя проекта а ParamStr(0) вычисляет его. Это несколько медленнее.

Думаю, дело не в этом.
Тут скорее всего косяк менеджера памяти. При вычислении extractFilePath(...) у тебя каждый раз создается новая строка и под нее распределяется память. Вероятно, в какой-то момент менеждер памяти "просечет", что у него куча неиспользованной памяти, и станет ее переиспользовать.

С другой стороны, у тебя, ну если верить представленному коду, всегда вычисляется одна и та же строка при каждом событии таймера. Можно спросить, А НАФИГА?!! Такие вещи вычисляются один раз при старте программы, а потом просто используется готовое значение.

[YoraG]

Сообщение от lmikle

С другой стороны, у тебя, ну если верить представленному коду, всегда вычисляется одна и та же строка при каждом событии таймера. Можно спросить, А НАФИГА?!! Такие вещи вычисляются один раз при старте программы, а потом просто используется готовое значение.

Во время выполнения программы проверяемый файл может быть обновлен, удален и тд., ну я переделал код и убрал проверку файла, теперь все нормально. ВСЕМ БОЛЬШОЕ СПАСИБО