View Issue Details

IDProjectCategoryView StatusLast Update
0002338JEDI VCL00 JVCL Componentspublic2006-06-08 06:49
ReporterDaniel SimonAssigned Toobones 
PrioritynormalSeverityminorReproducibilityalways
Status resolvedResolutionfixed 
Product Version3.00 BETA 2 
Target VersionFixed in Version3.30 
Summary0002338: TIBBCDField sort problem with TJvMemoryData
DescriptionWhen there is a field of type TIBBCDField in a TJVMemoryData, we can not use this field to sort a record set: the procedure SortOnFields doesn't work.
TagsNo tags attached.

Activities

obones

2006-03-31 05:36

administrator   ~0008787

Sorry for the delay.
Could you provide a sample application showing this, after having tried again with the latest version?
Thanks in advance.

DSimon

2006-04-04 05:24

reporter   ~0008874

Hi Obones. Honestly, I could not test this issue with the last version, but until de version tested (change log dated 2006-01-11) the problem still occurs. I put a sample application (SORT.DPR on Delphi 6) to show. If some one have the last version installed, please try...
Daniel

2006-04-04 05:27

 

Sort.zip (3,593 bytes)

obones

2006-06-08 05:32

administrator   ~0009457

You can get the latest version from here:

http://jvcl.sf.net/daily/

obones

2006-06-08 05:36

administrator   ~0009458

I'm seing this as well.

obones

2006-06-08 06:49

administrator   ~0009461

This is now fixed in SVN. Basically, in TJvMemoryData.CompareFields add this line in the case:

    ftBcd, ftFMTBcd:
      Result := BcdCompare(TBcd(Data1^), TBcd(Data2^));

You will need to add FMTBcd to the list of uses as well. This was tested with Delphi 2006, it may need to be adjusted for Delphi 5.

Issue History

Date Modified Username Field Change
2004-11-24 10:40 Daniel Simon New Issue
2006-03-31 05:36 obones Note Added: 0008787
2006-03-31 05:36 obones Status new => feedback
2006-04-04 05:24 DSimon Note Added: 0008874
2006-04-04 05:27 DSimon File Added: Sort.zip
2006-06-08 05:32 obones Note Added: 0009457
2006-06-08 05:36 obones Note Added: 0009458
2006-06-08 05:36 obones Status feedback => confirmed
2006-06-08 06:49 obones Status confirmed => resolved
2006-06-08 06:49 obones Resolution open => fixed
2006-06-08 06:49 obones Assigned To => obones
2006-06-08 06:49 obones Note Added: 0009461