Anonymous | Login | Signup for a new account | 2019-02-20 13:45 CET |
Main | My View | View Issues | Change Log | Roadmap | Docs |
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 | |||||||
|
![]() |
|
(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. |
Mantis 1.1.6[^] Copyright © 2000 - 2008 Mantis Group |