Если лидирующий пробел всех устраивает (выше уже встречался), то присоединюсь к веселью) 4 элемента не считая интерфейса (двух полей ввода и самого окна программы)
Add(MainForm,14877883,273,154) { Width=275 Height=169 Position=1 link(onCreate,13917417:doText,[]) } Add(Edit,13917417,343,168) { Left=5 Top=5 Width=255 Align=2 Text="AGFB2323442NFU3" Point(onChar) link(onChange,1671279:doLength,[]) link(Str,15033742:Var2,[]) link(onChar,7409094:doClear,[(395,188)(395,224)(564,224)(564,181)]) } Add(Length,1671279,420,168) { link(onLength,13945066:doFor,[]) } Add(For,13945066,469,168) { Start=1 Step=6 link(onEvent,7764826:doCopy,[]) link(onStop,2228631:doText,[(511,181)(511,244)]) link(End,1671279:Result,[(482,156)(461,156)(461,213)(426,213)]) } Add(Copy,7764826,518,168) { Count=6 link(onCopy,7409094:doStrCatDlm,[]) link(Str,15033742:Var3,[(524,149)]) } Add(StrCatDelim,7409094,581,168) { Delimiter=" " Point(doClear) link(Str1,12470339:Var3,[(587,156)(625,156)(625,210)]) } Add(Edit,2228631,581,238) { Left=5 Top=5 Width=255 Align=2 Text="AGFB2323442NFU3" link(Str,12470339:Var2,[]) } Add(GetDataEx,15033742,343,144) { Angle=3 link(Data,13917417:Text,[(334,149)(334,214)(349,214)]) } Add(GetDataEx,12470339,581,205) { link(Data,7409094:Result,[]) }
|