View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0004802 | JEDI VCL | 00 JVCL Components | public | 2009-06-04 11:39 | 2009-06-06 00:11 |
| Reporter | pharmaplus | Assigned To | AHUser | ||
| Priority | normal | Severity | minor | Reproducibility | always |
| Status | resolved | Resolution | fixed | ||
| Product Version | 3.36 | ||||
| Target Version | Fixed in Version | 3.37 | |||
| 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} | ||||
| Tags | No tags attached. | ||||
|
|
Please try again with the daily zip (http://jvcl.sf.net/daily/), I believe this already fixed |
|
|
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. |
|
|
Fixed in SVN. |
| 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 |
