TMS Scripter - Accessing script variables

[wlandgraf (Wagner Landgraf)]

Please refer to:

Not following default language

The DefaultLanguage changes new scripts added to the component, but does not change existing scripts (including CurrentScript). Do this: Scripter.DefaultLanguage := slBasic;Scripter.Scripts.Clear;Scripter.CurrentScript := Scripter.Scripts.Add; then using SourceCode will work.

In summary you should use;

  Script1->DefaultLanguage = slBasic;
  Script1->Scripts->Clear;
  Script1->CurrentScript = Script1.Scripts.Add;