Getter wird übergangen

[himitsu]

Eventuell schlägt sich auch hier wieder ein Fehler im Compiler nieder?

Versuch es mal so:

Delphi-Quellcode:

TDB = class
public
  type
    TDBUser = record
    private
      FID: Integer;
      // für jedes DB feld eben...
    public
      property ID: Integer read FID;
      property Name: string read FName;
    end;
private
  class var FQuery: TUniQuery;
  class var FUser: TDBUser;
  class function GetDBUserByLogin(aLogin: string): TDBUser; static;
public
  abc: Integer;  // dummies
  xyz: String;   //
  class property UsersByLogin[aLogin: string]: TDBUser read GetDBUserByLogin;
end;

Ansonsten wüßte ich auch nicht weiter (jedenfalls nicht ohne mal ein Testprojekt zum Testen zu haben).