Lazarus Editor can't parse type declaration in generic
Original Reporter info from Mantis: leledumbo_cool@yahoo.co.id @leledumbo
-
Reporter name: Mario Ray Mahardhika
Original Reporter info from Mantis: leledumbo_cool@yahoo.co.id @leledumbo
- Reporter name: Mario Ray Mahardhika
Description:
This is a valid generic class declaration:
&LtPos;code> generic TGenericList&LtPos;T> = class public type TCompareFunc = function(Item1,Item2: T): Integer; constructor Create; constructor Create(CompareFunc: TCompareFunc); procedure Add(AItem: T); procedure Remove(AItem: T); procedure Sort; function Count: Integer; private type TArrayOfT = array of T; var FItems: TArrayOfT; FCount: Integer; FCompareFunc: TCompareFunc; procedure QuickSort(var List: TArrayOfT; l,r: Integer); function GetItem(i: Integer): T; procedure SetItem(i: Integer; AItem: T); public property Items[i: Integer]: T read GetItem write SetItem; end; &LtPos;/code>
But Lazarus parser always complains for error on:
&LtPos;code> type TCompareFunc = function(Item1,Item2: T): Integer; &LtPos;/code>
Mantis conversion info:
- Mantis ID: 10860
- Version: 0.9.25 (SVN)
- Monitored by: » alexvins (Alexander Shishkin), » @martin_frb (Martin Friebe)
- Target version: 1.4