View Issue Details Jump to Notes ] Issue History ] Print ]
IDProjectCategoryView StatusDate SubmittedLast Update
0002055SAS.Планета[All Projects] Багpublic31-07-2013 22:3801-08-2013 17:12
Reportervasketsov 
Assigned Tovdemidov 
PriorityhighSeveritymajorReproducibilityalways
StatusresolvedResolutionfixed 
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.
Attached Files

- Relationships

-  Notes
(0012266)
vasketsov (manager)
31-07-2013 22:48

Набор изменений:
147 (34f870c317f5) Minor update to avoid Range Check error
(0012267)
vdemidov (manager)
01-08-2013 10:34

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

- Users who viewed this issue
User List Anonymous (1627x)
Total Views 1627
Last View 25-01-2020 22:57

- 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



Copyright © 2007 - 2020 SAS.Planet Team