0002985: Access violation при изменении метки

(0017082)
zed (manager)
16-03-2016 10:22

Там в вызывающем коде то ли опечатка, то ли с логикой какая проблема.



    VVisible := FMarkSystem.MarkDb.GetMarkVisible(AMark);

    if AAsNewMark then begin

      VSourceMark := nil;

    end else begin

      VSourceMark := AMark;

    end;

    if ADescription <> '' then begin

      VMark := FMarkSystem.MarkDb.Factory.ModifyName(AMark, '', ADescription);

    end;

    VMark := FMarkSystem.MarkDb.Factory.ModifyGeometry(VMark, AGeometry);

Скорее всего, в последней строчке в ModifyGeometry должно передаваться AMark. Но тогда не понятно, зачем там мелькает по коду выше VSourceMark?

(0017084)
zed (manager)
16-03-2016 10:45

Кажется исправил: https://bitbucket.org/sas_team/sas.planet.src/commits/684854b79c4d365193ae81662a002875e3073fa8

(0017085)
vdemidov (manager)
16-03-2016 10:48
edited on: 16-03-2016 10:50

Мда, что-то я тут наглючил.
PS: Да именно так и должно было быть.

Спасибо.

Users who viewed this issue
User List	Anonymous (2575x), gamuer (4x), bk99 (2x), ygorigor (1x), Garl (5x), vdemidov (6x), zed (13x), yuraneo (2x), sergeyka (2x)
Total Views	2610
Last View	21-11-2024 13:05

Issue History
Date Modified	Username	Field	Change
13-03-2016 06:52	Garl	New Issue
13-03-2016 06:52	Garl	File Added: 13-03-2016SASPlanet.Debug.elf
16-03-2016 10:14	zed	Relationship added	has duplicate 0002989
16-03-2016 10:22	zed	Note Added: 0017082
16-03-2016 10:22	zed	Status	new => confirmed
16-03-2016 10:45	zed	Note Added: 0017084
16-03-2016 10:45	zed	Status	confirmed => resolved
16-03-2016 10:45	zed	Fixed in Version	=> 160606
16-03-2016 10:45	zed	Resolution	open => fixed
16-03-2016 10:45	zed	Assigned To	=> zed
16-03-2016 10:45	zed	Target Version	=> 160606
16-03-2016 10:48	vdemidov	Note Added: 0017085
16-03-2016 10:50	vdemidov	Note Edited: 0017085	View Revisions
16-03-2016 10:50	vdemidov	Note Edited: 0017085	View Revisions

Notes
(0017082) zed (manager) 16-03-2016 10:22	Там в вызывающем коде то ли опечатка, то ли с логикой какая проблема. `VVisible := FMarkSystem.MarkDb.GetMarkVisible(AMark); if AAsNewMark then begin VSourceMark := nil; end else begin VSourceMark := AMark; end; if ADescription <> '' then begin VMark := FMarkSystem.MarkDb.Factory.ModifyName(AMark, '', ADescription); end; VMark := FMarkSystem.MarkDb.Factory.ModifyGeometry(VMark, AGeometry);` Скорее всего, в последней строчке в ModifyGeometry должно передаваться AMark. Но тогда не понятно, зачем там мелькает по коду выше VSourceMark?

(0017084) zed (manager) 16-03-2016 10:45	Кажется исправил: https://bitbucket.org/sas_team/sas.planet.src/commits/684854b79c4d365193ae81662a002875e3073fa8

(0017085) vdemidov (manager) 16-03-2016 10:48 edited on: 16-03-2016 10:50	Мда, что-то я тут наглючил. PS: Да именно так и должно было быть. Спасибо.

SASGIS