а ешё не подскажите элемент StrPart .можно менять символ-разделистель
------------ Дoбавленo:
или аналог его..
вот набросок меленький чем пока спасаюсь..
Add(MainForm,7171562,21,63) { Left=20 Top=105 } Add(StrPart,9306638,371,154) { Char="–" Point(Left) Point(onNotFound) MakeExt(Char,,Char) link(onSplit,14782110:doWork2,[]) link(onNotFound,14305319:doEvent1,[(411,174)(411,258)]) } Add(DoData,6445100,630,154) { link(onEventData,2362025:Method,[(688,160)(688,159)]) link(Data,7418103:Var,[]) } Add(StrPart,3940808,483,259) { Char="—" Point(Left) Point(onNotFound) link(onSplit,14782110:doWork3,[(527,265)(527,215)(438,215)]) link(onNotFound,7547754:doEvent1,[]) } Add(GetIndexData,7418103,630,77) { Count=3 link(Data1,9306638:Left,[(636,53)(570,53)(570,240)(377,240)]) link(Data2,3940808:Left,[(643,54)(698,54)(698,303)(489,303)]) link(Data3,8451450:Left,[(650,62)(672,62)(672,317)(587,317)]) } Add(ChanelToIndex,2811283,511,77) { Count=3 link(onIndex,7418103:doIndex,[]) } Add(Hub,14305319,420,252) { link(onEvent1,2811283:doWork2,[(469,258)(469,90)]) link(onEvent2,3940808:doSplit,[]) } Add(HubEx,14782110,434,147) { link(onEvent,6445100:doData,[]) } Add(StrPart,8451450,581,280) { Char="-" Point(Left) Point(onNotFound) link(onSplit,14782110:doWork1,[(632,286)(632,133)(438,133)]) } Add(Hub,7547754,532,273) { link(onEvent1,2811283:doWork3,[(576,279)(576,188)(499,188)(499,97)]) link(onEvent2,8451450:doSplit,[]) } Add(PointHint,6137459,35,140) { Info=#41:строка с возможно разными разделителями..| VAlign=0 HAlign=0 Width=253 Height=25 link(Event,8674595:doEvent1,[(298,152)(298,153)]) } Add(Hub,8674595,308,147) { link(onEvent1,2811283:doWork1,[(426,153)(426,83)]) link(onEvent2,9306638:doSplit,[]) } Add(PointHint,2362025,714,147) { Info=#8:resultat| VAlign=0 HAlign=0 Width=50 Height=25 }
|