ich habe einen Type helper für einen selbst definierten ordinalen Typ geschrieben. Sehr spät, also nach 400 Zeilen habe ich festgestellt, dass die code suggestions via Punkt-Notation beim Benutzen nicht funktionieren.
Ohne dem sind die Helper nicht sehr nützlich. Ist das ein Bug?
Im Bug-tracker habe ich nichts gefunden, allerdings komme ich damit nicht gut klar. folgend ein Beispiel-code:
Code: Alles auswählen
unit testhelper;
{$mode ObjFPC}{$H+}
{$modeswitch typehelpers}
interface
uses
Classes, SysUtils;
Type
TSelfDefinedOrdinal = 1..9;
{ TTestHelper }
TTestHelper = Type Helper for TSelfDefinedOrdinal
private
function GetFive: TSelfDefinedOrdinal;
public
property five :TSelfDefinedOrdinal read GetFive;
end;
procedure Test;
implementation
procedure Test;
var
i :Integer;
t :TSelfDefinedOrdinal;
begin
i:= t.five; //code suggestions funktioniert hier nicht.
WriteLn(IntToStr(i)); //Kompilieren funktioniert!
ReadLn;
end;
{ TTestHelper }
function TTestHelper.GetFive: TSelfDefinedOrdinal;
begin
Result:= 5;
end;
end.