| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Странное поведение memprof [WinXP]
Pavel__ © (2006-02-19 13:34:00)Имеем проект, отлаживаем в memprof. Исходник проекта выглядит следующим образом:
program Any;
{%ToDo 'Any.todo'}
uses
Windows,
SysUtils,
Forms,
AnyFrm in 'AnyFrm.pas' {AnyForm};
{$R *.res}
{$R WindowsXP.res}
begin
Application.Initialize;
Application.Run;
Application.Terminate;
end.
Запускаем в memprof — видим — Attempt to free unexisting resource ..., Errors = 96. Комментируем AnyFrm в uses, запускаем — никаких ошибок. AnyFrm — простая дополнительная форма с несколькими TLabel и двумя кнопками TButton. На рабочем проекте memprof вообще сыпется, под полторы тысячи ошибок с тем же текстом (Attempt to free unexisting resource), и само приложение завершить стандартными методами (кнопкой закрытия окна) никак не выходит, приходится терминировать. Почему так происходит?
P.S: D2005, WinXP, memprof 0.9.5.0
evvcom (2006-02-20 09:55:00) [1]
> Просто не создаю форму и сразу терминирую.
А смысл терминировать то, что само сейчас закончится?
Pavel__ (2006-02-19 16:30:00) [2]Просто не создаю форму и сразу терминирую. Для чистоты эксперимента. Кстати, исследования все больше и больше наводят на странные результаты. Установил предыдущую версию пакета TBX, скомпилированный (под D7) demo-проект которой у memoprof не вызывал никаких проблем. Перекомпилировал demo-проект под D2005, и опять понеслось. Может проблема именно в Delphi?
Desdechado (2006-02-19 15:37:00) [3]странное сочетание
Application.Run;
Application.Terminate;
Pavel__ (2006-02-19 14:38:00) [4]Причина в TBX 2.2a.
Pavel__ (2006-02-19 14:08:00) [5]Кажется нашел причину. В тестовом проекте положил Toolbar2000 (2.16) на форму, запустил в memprof и поводил мышкой по кнопкам. Мда.
| |
