[lestatgi]

возникла проблема, мне необходимо что бы timer1 выполнялся каждые 10 секунд interval=10000 и в on timer было следующее

Код:

ShellExecute(Handle, nil, 'cmd.exe', '/c '+ 'net session >c:\1.txt', nil, SW_HIDE);
sleep(1000);
  ls:=TStringList.Create;
  ls.LoadFromFile('c:\1.txt');
  d:=DosToWin(ls.Text);
  ls.Clear;
  ls.Add(d);
  ls.SaveToFile('c:\1.txt');
  ls.Free;

все работает но проблема в следующем программа весит в трее и постепенно кушает память если долго работает то система начинает сильно тормазить. как этого избежать?

[~TB~]

ls можно создать вне таймера для оптимизации, при запуске программы например onCreate, уничтожать по завершению, например на onClose или как там его. Но сама беда с памятью непонятна. Вроде как все чистенько. Возможно утечка где-то еще, например в DosToWin.

[R-18Rus]

Знаю, что такая проблема на делфи 7 есть. Вроде как и пишешь, что "что-то".free, а память не освобождается. А когда снова создаёшь, то память отнимается тоже вновь. Так и растёт.

[NumLock]

Сообщение от R-18Rus

Знаю

Выдумываешь. Дай минимальный проект воспроизводящий это?

[M.A.D.M.A.N.]

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

Выдумываешь. Дай минимальный проект воспроизводящий это?

Код:

type
  TFoo = class
  public
    procedure Free; reintroduce;
  end;

procedure TFoo.Free;
begin
  GetMem($100500);
end;

P.S. Подсветчик синтаксисане не подсветил ключевое слово "reintroduce", как-то не красиво.

[NumLock]

ну так опять-таки косяк разработчика, а не Delphi. подсветка это всего лишь сладкая французкая булочка к чаю)

[U.B.M.]

а если не секрет - почему после загрузки делается dostowin, а перед записью wintodos не делается?

ведь по сути, после второго открытия файла dostowin в исходном коде вроде бы не нужен.

либо излишнее в коде, либо недостаточно в плане перекодировки