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).