Project JEDI - Issue Tracker
Mantis Bugtracker

Viewing Issue Simple Details Jump to Notes ] View Advanced ] Issue History ] Print ]
ID Category Severity Reproducibility Date Submitted Last Update
0004802 [JEDI VCL] 00 JVCL Components minor always 2009-06-04 11:39 2009-06-06 00:11
Reporter pharmaplus View Status public  
Assigned To AHUser
Priority normal Resolution fixed  
Status resolved   Product Version 3.36
Summary 0004802: TJvMemoryData.SortOnFields doesn't work in RAD Studio 2009 witht fields of type ftString.
Description Strange behavior trying to sort the table just with fields of FieldType = ftString.
The problem could be in the function TJvMemoryData.CompareFields. With the next modification It works fine.

Old code:

function TJvMemoryData.CompareFields(Data1, Data2: Pointer;
  FieldType: TFieldType; CaseInsensitive: Boolean): Integer;
begin
  Result := 0;
  case FieldType of
    ftString:
      if CaseInsensitive then
        Result := AnsiCompareText(PChar(Data1), PChar(Data2))
      else
        Result := AnsiCompareStr(PChar(Data1), PChar(Data2));

New code:
function TJvMemoryData.CompareFields(Data1, Data2: Pointer;
  FieldType: TFieldType; CaseInsensitive: Boolean): Integer;
begin
  Result := 0;
  case FieldType of
    ftString:
      {$IFDEF COMPILER12_UP}
      if CaseInsensitive then
        Result := AnsiCompareText(PAnsiChar(Data1), PAnsiChar(Data2))
      else
        Result := AnsiCompareStr(PAnsiChar(Data1), PAnsiChar(Data2));
      {$ELSE}
      if CaseInsensitive then
        Result := AnsiCompareText(PChar(Data1), PChar(Data2))
      else
        Result := AnsiCompareStr(PChar(Data1), PChar(Data2));
      {$ENDIF COMPILER12_UP}
Additional Information
Tags No tags attached.
Attached Files

- Relationships

-  Notes
(0015604)
obones (administrator)
2009-06-04 13:28

Please try again with the daily zip (http://jvcl.sf.net/daily/), [^] I believe this already fixed
(0015605)
pharmaplus (reporter)
2009-06-04 15:41

I have installed jcl-1.105.0.3382 and JVCL3-2009-06-04 doing the same test with a table with 3000 records and It is not fixed. The same behavior.
(0015617)
AHUser (developer)
2009-06-06 00:11

Fixed in SVN.

- Issue History
Date Modified Username Field Change
2009-06-04 11:39 pharmaplus New Issue
2009-06-04 13:28 obones Note Added: 0015604
2009-06-04 13:28 obones Status new => feedback
2009-06-04 15:41 pharmaplus Note Added: 0015605
2009-06-06 00:11 AHUser Note Added: 0015617
2009-06-06 00:11 AHUser Status feedback => resolved
2009-06-06 00:11 AHUser Fixed in Version => Daily / SVN
2009-06-06 00:11 AHUser Resolution open => fixed
2009-06-06 00:11 AHUser Assigned To => AHUser


Mantis 1.1.6[^]
Copyright © 2000 - 2008 Mantis Group
Powered by Mantis Bugtracker