STRG-Klick bei Record helper Methoden funktioniert nicht

[einbeliebigername]

Hallo,

Zitat von Uwe Raabe:

Nur zur Bestätigung: https://www.screencast.com/t/Wq4UK3yLVROH

Der TE hat das Problem ja auch bei einem Record-Helper. Bei mir in 10.3.2 kann ich das reproduzieren. Bei Class-Helper geht es, bei Record-Helper nicht.

Delphi-Quellcode:

program Dp201475Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

type
  TWordRecHelper= record helper for WordRec
    procedure SwopBytes;
  end;

  TExceptionHelper= class helper for Exception
    function ExceptionText: string;
  end;

{ TWordRecHelper }

procedure TWordRecHelper.SwopBytes;
var
  vTmp: Byte;
begin
  vTmp:= Lo;
  Lo:= Hi;
  Hi:= vTmp;
end;

{ TExceptionHelper }

function TExceptionHelper.ExceptionText: string;
begin
  Result:= ClassName+ ': '+ Message;
end;

var
  vTmp: WordRec;

  begin
  try
    vTmp.Lo:= 0;
    vTmp.Hi:= 2;
    Writeln(Format('Hi: %d; Lo: %d', [vTmp.Hi, vTmp.Lo]));
    vTmp.SwopBytes;
    Writeln(Format('Hi: %d; Lo: %d', [vTmp.Hi, vTmp.Lo]));
    Writeln((vTmp.Lo div vTmp.Hi).ToString);
  except
    on E: Exception do
    begin
      Writeln(E.ExceptionText);
      Readln;
    end;
  end;
end.