View Issue Details

IDProjectCategoryView StatusLast Update
0002055SAS.ПланетаБаг / Bugpublic01-08-2013 17:12
Reportervasketsov Assigned Tovdemidov  
PriorityhighSeveritymajorReproducibilityalways
Status resolvedResolutionfixed 
PlatformWindowsOSVistaOS VersionUltimate
Product Version.Nightly 
Target Version131111Fixed in Version131111 
Summary0002055: Ошибка в ALfcnString для D2007 (F2084 Internal Error: URW5517)
DescriptionD2007 крайне плохо переносит локальные переменные, объявленные процедурными типами с параметрами, имеющими значения по умолчанию.

В сабжевом файле трижды есть:
PosExFunct: Function(const SubStr, S: AnsiString; Offset: Integer = 1): Integer;

Вообще можно поискать по ': procedure' и ': function' и убедиться, что больше нет таких мест.

Если убрать отовсюду ' = 1' - ошибка пропадает. Если вернуть - возникает снова. Воспроизводимость - 100%.
Steps To ReproduceДля воспроизведения ошибки или соответственно чтобы убедиться в лечении, необходимо (как налетел я, наверное можно и по-другому):
а) открыть проект;
б) открыть procedure TfrmMarksExplorer.FormShow;
в) собрать (build) проект;
г) добавить в конец TfrmMarksExplorer.FormShow новую пустую строку, встать на неё, набрать ts и нажать Ctrl+Space.

Внизу вылезет:
[Pascal Fatal Error] frm_MarksExplorer.pas(59): F2084 Internal Error: URW5517

После этого убираем ts, вычищаем ' = 1' у всех трёх PosExFunct, пересобираем (build) проект (при этом ошибки из-за отсутствия значения не будет), повторяем шаг г) и убеждаемся что всё отлично работает, включая Ctrl+Space.
Additional Informationhttp://www.delphifeeds.com/go/s/58726
TagsNo tags attached.

Activities

vasketsov

31-07-2013 22:48

manager   ~0012266

Набор изменений:
147 (34f870c317f5) Minor update to avoid Range Check error

vdemidov

01-08-2013 10:34

manager   ~0012267

Поправим. Долго ли умеючи :)

Issue History

Date Modified Username Field Change
31-07-2013 22:38 vasketsov New Issue
31-07-2013 22:39 vasketsov Assigned To => vdemidov
31-07-2013 22:39 vasketsov Status new => assigned
31-07-2013 22:48 vasketsov Note Added: 0012266
01-08-2013 10:33 vdemidov Product Version => .Nightly
01-08-2013 10:33 vdemidov Target Version => 131111
01-08-2013 10:34 vdemidov Note Added: 0012267
01-08-2013 17:12 vdemidov Status assigned => resolved
01-08-2013 17:12 vdemidov Fixed in Version => 131111
01-08-2013 17:12 vdemidov Resolution open => fixed
08-08-2025 13:22 zed Category Баг => Баг / Bug