Код:
CONST
textCmds* = 0; formCmds* = 1; otherCmds = 2;
noModelView* = 3; modelView* = 4; complexView* = 5;
wrapper = 6; specialContainer = 7; generalContainer = 8;
...
PROCEDURE TranslateSubsystem (kind: INTEGER; string: ARRAY OF CHAR);
...
BEGIN
...
IF kind = textCmds THEN
...
ELSIF kind = otherCmds THEN
TranslateFile(loc, "Cmds2", new, "Cmds", string, res);
Message(string, "Cmds", "Cmds2")
ELSIF kind = noModelView THEN
...
ELSIF kind = wrapper THEN
TranslateFile(loc, "Views6", new, "Views", string, res);
Message(string, "Views", "Views6");
f.WriteLn;
f.WriteView(DevCommanders.dir.New());
f.WriteString(' "'); f.WriteString(string); f.WriteString('Views.Deposit; StdCmds.Open"'); f.WriteLn
ELSIF kind = specialContainer THEN
TranslateFile(loc, "Views7", new, "Views", string, res);
Message(string, "Views", "Views7");
f.WriteLn;
f.WriteView(DevCommanders.dir.New());
f.WriteString(' "'); f.WriteString(string); f.WriteString('Views.Deposit; StdCmds.Open"'); f.WriteLn
ELSIF kind = generalContainer THEN
TranslateFile(loc, "Models8", new, "Models", string, res);
Message(string, "Models", "Models8");
TranslateFile(loc, "Views8", new, "Views", string, res);
Message(string, "Views", "Views8");
TranslateFile(loc, "Controllers8", new, "Controllers", string, res);
Message(string, "Controllers", "Controllers8");
TranslateFile(loc, "Cmds8", new, "Cmds", string, res);
Message(string, "Cmds", "Cmds8");
...
END;
...
END TranslateSubsystem;
Интересно, почему OM убрали эти заготовки: otherCmds = 2; wrapper = 6; specialContainer = 7; generalContainer = 8? Потому что есть соотв-е примеры (, ObxWrappers, ObxTwins, Form...)? А может у кого энти заготовки завалялись где с предыдущих версий