View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0006142 | JEDI VCL | 00 JVCL Components | public | 2013-05-23 10:43 | 2015-09-14 13:20 |
| Reporter | whf | Assigned To | AHUser | ||
| Priority | normal | Severity | feature | Reproducibility | always |
| Status | resolved | Resolution | fixed | ||
| Product Version | Daily / GIT | ||||
| Target Version | Fixed in Version | 3.48 | |||
| Summary | 0006142: TJvInterpreterIdentifierList.Sort not work in delphi x64 | ||||
| Description | TJvInterpreterIdentifierList.Sort work well in delphi x32 but not work in delphi x64, this is my modify(in x32, x64 all work well): function _SortIdentifier(Item1, Item2: Pointer): Integer; begin { function AnsiStrIComp about 30% faster than AnsiCompareText } // Result := AnsiCompareText(TJvInterpreterIdentifier(Item1).Identifier, // TJvInterpreterIdentifier(Item2).Identifier); Result := AnsiStrIComp(PChar(TJvInterpreterIdentifier(Item1).Identifier), PChar(TJvInterpreterIdentifier(Item2).Identifier)); end; procedure TJvInterpreterIdentifierList.Sort(Compare: TListSortCompare = nil); begin if Assigned(Compare) then inherited Sort(Compare) else inherited Sort(TListSortCompare(@_SortIdentifier)); end; | ||||
| Tags | No tags attached. | ||||
| Date Modified | Username | Field | Change |
|---|---|---|---|
| 2013-05-23 10:43 | whf | New Issue | |
| 2013-05-23 18:58 | AHUser | Note Added: 0020493 | |
| 2013-05-23 18:58 | AHUser | Status | new => resolved |
| 2013-05-23 18:58 | AHUser | Fixed in Version | => Daily / SVN |
| 2013-05-23 18:58 | AHUser | Resolution | open => fixed |
| 2013-05-23 18:58 | AHUser | Assigned To | => AHUser |
| 2015-09-14 13:20 | obones | Fixed in Version | Daily / GIT => 3.48 |
