Add(MainForm,2953706,21,105)
{
}
Add(Button,12686038,133,133)
{
Left=26
Top=40
Caption="Создать"
link(onClick,11086619:doString,[])
}
Add(FileStream,14762151,350,119)
{
FileName="1.rtf"
Mode=1
AutoCopy=0
Point(doCopyFromStream)
}
Add(FormatStr,11086619,189,133)
{
DataCount=0
Mask="{tf1ansiansicpg1251deff0deflang1049deflangfe1049deftab708{fonttbl{f0fswissfprq2fcharset0 Calibri;}{f1fromanfprq2fcharset204{*fname Times New Roman;}Times New Roman CYR;}}
{*generator Msftedit 5.41.15.1512;}viewkind4uc1pardsa200sl276slmult1lang1033f0fs22 %1lang1049f1par
}
"
Point(FString)
Point(doMask)
link(onFString,13606925:doConvert,[])
}
Add(Stream2Hex,13606925,238,133)
{
Mode=2
link(onResult,3071516:doConvert,[])
}
Add(Stream2Hex,3071516,287,133)
{
Mode=1
link(onResult,14762151:doCopyFromStream,[])
}
Ну я вот так сделал) Хотя, вроде, есть еще способы... попробую - отпишусь