Script Extension: AddClassFunction

BIZ TMS Data Modeler
1

I use the script to expand the entity Information. The dictionary doesn't provide this info.
I need the ManyValuedAssociation name respectively the table-entity-name.

Here are the code:

procedure OnManyValuedAssociationGenerated(Args: TManyValuedAssociationGeneratedArgs);
var
  Func: TCodeMMemberMethod;
  s: String;
begin
  s := copy(Args.Field.Name, 2, length(Args.Field.Name)-5);                         
  Func := Args.CodeType.AddFunction( s, 'String', mvPublic);       
  Func.AddSnippet('Result := '''+s+''';');                                 
end;

But it would be better, if I had a "class function"

Is this possible in the next release?

2

Yes, Data Modeler 3.4 will include IsStatic property you can set in TCodeMemberMethod:

procedure OnManyValuedAssociationGenerated(Args: TManyValuedAssociationGeneratedArgs);
var
  Func: TCodeMemberMethod;
  s: String;
begin
  s := copy(Args.Field.Name, 2, length(Args.Field.Name)-5);                         
  Func := Args.CodeType.AddFunction( s, 'String', mvPublic);       
  Func.AddSnippet('Result := '''+s+''';');                       
  Func.IsStatic := True;          
end;