Вверх ↑
Ответов: 39
Рейтинг: 0
#1: 2022-01-24 18:17:47 ЛС | профиль | цитата
Вот что я хотел сделать

Add(MainForm,2953706,147,91)
{
Width=706
Height=455
link(onCreate,9263907:doWork1,[])
}
Add(Memo,2242421,273,35)
{
Width=690
Height=416
Align=5
Strings=#5:Текст|38:А потом бац - смайлик \xF0\x9F\xA4\xA2|54:А тут внезапный смай\xF0\x9F\x8C\xB0лик внутри текста!|36:И в конце еще один \xF0\x9F\x97\xBE |
ScrollBars=2
}
Add(WinExec,16296560,280,98)
{
link(FileName,11032463:Var3,[(286,89)])
}
Add(MultiElement,9263907,231,105)
{
link(onEvent1,16296560:doShellExec,[])
link(Data1,11032463:Var2,[])
link(Data2,2242421:Text,[(244,79)(279,79)])
}
BEGIN_SDK
Add(EditMulti,14454916,21,21)
{
EventCount=1
WorkCount=1
DataCount=2
Width=1091
Height=550
link(doWork1,9482907:doEvent1,[(39,27)(39,55)])
}
Add(RE_Search,14400243,210,196)
{
Expression="(\\\\x([0-9a-h]+))+"
ModifierI=0
ModifierR=1
link(onMatch,2010615:doEvent1,[])
link(onNotFound,15773473:doLength,[(254,209)(254,307)(184,307)(184,454)])
link(SourceStr,1775275:Var2,[])
}
Add(Replace,5013379,336,364)
{
SubStr="\\x"
link(onReplace,8708584:doConvert,[])
}
Add(StreamConvertor,8708584,378,364)
{
Mode=1
Charset=5
link(onResult,12788468:doEvent1,[(670,370)(670,223)])
}
Add(FileStream,5101511,819,210)
{
Mode=1
Point(doCopyFromStream)
link(FileName,14454916:Data1,[(825,116)(27,116)])
}
Add(StreamConvertor,14640789,462,231)
{
Mode=7
Charset=5
link(onResult,12788468:doEvent2,[(642,237)(642,230)])
}
Add(Copy,5162973,413,231)
{
link(onCopy,14640789:doConvert,[])
link(Str,14894165:Var2,[])
link(Position,14694065:Var3,[(426,209)])
}
Add(Hub,9482907,56,49)
{
OutCount=5
link(onEvent1,5101511:doOpen,[(444,55)(444,216)])
link(onEvent2,8831324:doClear,[(210,62)(210,160)])
link(onEvent3,14400243:doExec,[(140,69)(140,202)])
link(onEvent4,5101511:doClose,[(444,76)(444,223)])
link(onEvent5,14454916:onEvent1,[(591,83)(591,27)])
}
Add(Hub,2010615,252,196)
{
OutCount=4
link(onEvent1,13631967:doCalc,[(312,202)(312,237)])
link(onEvent2,6379812:doCalc,[(301,209)(301,328)])
link(onEvent3,5013379:doReplace,[(301,216)(301,370)])
link(onEvent4,14400243:doExecNext,[(278,223)(278,216)(198,216)(198,209)])
}
Add(Hub,12788468,791,217)
{
InCount=3
OutCount=1
link(onEvent1,5101511:doCopyFromStream,[(812,223)(812,230)])
}
Add(Memory,8831324,350,147)
{
}
Add(MathParse,6379812,336,322)
{
link(onResult,8831324:doValue,[(380,328)(380,240)(338,240)(338,153)])
link(X1,1178714:Var3,[(342,226)(278,226)(278,240)])
link(X2,14400243:MatchLen,[(349,212)(275,212)(275,240)(230,240)])
}
Add(MathParse,13631967,357,231)
{
MathStr="%1 - %2"
link(onResult,5162973:doCopy,[])
link(X1,1178714:Var1,[(363,219)(214,219)(214,240)])
link(X2,13811017:Var1,[(370,213)(347,213)(347,194)])
}
Add(GetDataEx,1775275,210,175)
{
link(Data,14454916:Data2,[(216,108)(34,108)])
}
Add(GetDataEx,1178714,217,235)
{
link(Data,14400243:MatchPos,[])
}
Add(GetDataEx,13811017,350,189)
{
link(Data,8831324:Value,[])
}
Add(StreamConvertor,11659400,413,448)
{
Mode=7
Charset=5
link(onResult,12788468:doEvent3,[(586,454)(586,237)])
}
Add(Copy,1773992,364,448)
{
link(onCopy,11659400:doConvert,[])
link(Str,14894165:Var1,[(370,194)])
link(Position,4606086:Var2,[])
link(Count,4260793:Result,[(384,436)(349,436)(349,492)(314,492)])
}
Add(MathParse,4260793,308,448)
{
MathStr="%1 - %2 + 1"
link(onResult,1773992:doCopy,[])
link(X1,15773473:Result,[(314,436)(290,436)(290,492)(265,492)])
link(X2,4606086:Var1,[(321,425)])
}
Add(GetDataEx,14894165,413,189)
{
link(Data,1775275:Var3,[(419,180)])
}
Add(GetDataEx,14694065,350,204)
{
link(Data,13811017:Var2,[])
}
Add(Length,15773473,259,448)
{
link(onLength,4260793:doCalc,[])
link(Str,1775275:Var1,[(265,180)])
}
Add(GetDataEx,4606086,371,420)
{
link(Data,14694065:Var1,[(377,311)(347,311)(347,209)])
}
END_SDK
Add(Memory,12974026,231,35)
{
Default=String(Тест.txt)
}
Add(GetDataEx,11032463,231,84)
{
link(Data,12974026:Value,[])
}

Работает на Delphi и на FPC32
(Работает, вроди, как положено, прошу протестировать на других системах)

--- Добавлено в 2022-01-24 18:18:50

Так же спасибо Joiner за наводку
карма: 0

0
Редактировалось 1 раз(а), последний 2022-01-24 18:18:50