Galkov писал(а):
И что характерно, не исключен вариант, что он давно все понял, а это мы тупые, и не поняли его продвинутого элементаЯ понял, что надо, сразу после первого ответа. Все не так сложно, надо головой было только подумать.
Вот один из вариантов решения, как раз и применяется метод замены на "левые" символы
#sha
Add(MainForm,13195400,322,287)
{
Left=10
Top=10
Width=413
Height=438
Ctl3D=0
Position=1
}
Add(StringTableMT,8639906,588,238)
{
Left=10
Top=173
Width=205
Height=155
Columns=#38:Фразы для вставки в элементы формы=350|
Flat=1
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(Index)
Point(StrLst)
Point(doAddStrLst)
Point(doTblStrLst)
Point(doClearStrLst)
Point(doLoadStrLst)
Point(doSaveStrLst)
Point(Matrix)
Point(StrLstArray)
}
Add(SDialog,8596936,413,287)
{
link(onExecute,14690892:doEvent1,[])
}
Add(Hub,14690892,469,287)
{
OutCount=3
link(onEvent1,8639906:doClearStrLst,[])
link(onEvent2,8328167:doFor,[(541,300)(541,398)])
link(onEvent3,8639906:doSaveStrLst,[])
}
Add(MenuEx,7704117,364,287)
{
Menu=#9:Сохранить|
Bitmaps=[]
link(MenuItemIdx,8596936:doExecute,[])
}
Add(Memo,3162521,413,175)
{
Left=10
Top=45
Width=200
ScrollBars=2
}
Add(Button,3655189,357,238)
{
Left=10
Top=130
Width=95
TabOrder=-1
Caption="Добавить"
link(onClick,555283:doData,[])
}
Add(Button,13026732,364,420)
{
Left=10
Top=345
Width=85
Color=-16777211
TabOrder=-1
Caption="загрузить"
link(onClick,11715978:doExecute,[])
}
Add(ODialog,11715978,413,420)
{
link(onExecute,6156660:doEvent1,[])
}
Add(Hub,6156660,462,420)
{
OutCount=3
link(onEvent1,8639906:doClear,[(547,426)(547,251)])
link(onEvent2,8639906:doLoadStrLst,[(557,433)(557,300)])
link(onEvent3,6727792:doEnum,[])
}
Add(For,8328167,581,392)
{
IncludeEnd=1
link(onEvent,5675893:doRead,[])
link(End,8639906:Count,[])
}
Add(MatrixRW,5675893,630,392)
{
link(onRead,7116094:doReplace,[])
link(Matrix,8639906:Matrix,[(636,352)(615,352)])
link(X,3635459:Value,[])
}
Add(Memory,3635459,644,343)
{
Default=Integer(0)
}
Add(Replace,7116094,679,392)
{
SubStr="1310"
DestStr="#$"
link(onReplace,8639906:doAddStrLst,[(723,398)(723,338)(576,338)(576,279)])
}
Add(Replace,16389128,693,434)
{
SubStr="#$"
DestStr="1310"
link(onReplace,4681874:doWork1,[(737,440)(737,227)(536,227)])
}
Add(DoData,555283,413,238)
{
link(onEventData,4681874:doWork2,[])
link(Data,3162521:Text,[])
}
Add(ArrayEnum,6727792,616,434)
{
link(onItem,16389128:doReplace,[])
link(Array,8639906:StrLstArray,[])
}
Add(HubEx,4681874,532,231)
{
link(onEvent,8639906:doAdd,[])
}
Ну вот и мысль про Array появилась