TMS Data Modeler Documentation

This example adds the attribute [Version] to any class field named "FVersion", regardless of the class it appears.

 

procedure OnColumnGenerated(Args: TColumnGeneratedArgs);
begin
  if Args.Field.Name = 'FVersion' then
    Args.Field.AddAttribute('Version');
end;                                     

 

Suppose the original generated source code was this one:

 

    [Column('VERSION', [TColumnProp.Required])]
    FVersion: Integer;

 

With the script above, it will become this:

 

    [Column('VERSION', [TColumnProp.Required])]

    [Version]
    FVersion: Integer;