* fix test 26481: it tests for something different than the incorrect type parameters and in fact the need to fix this highlights the need for the previous changes

git-svn-id: trunk@39704 -

tests/webtbs/tw26481.pp

@@ -22,7 +22,7 @@ type
     function Compare(constref ALeft, ARight: T): Integer; override;
   end;
 
-function TGOrdinalStringComparer<THashFactory, T>.Compare(constref ALeft,
+function TGOrdinalStringComparer<T, THashFactory>.Compare(constref ALeft,
   ARight: T): Integer;
 begin
   Result := FComparer.Compare(ALeft, ARight);