Вверх ↑
Ответов: 8921
Рейтинг: 823
#1: 2021-09-18 17:03:03 ЛС | профиль | цитата
Iliya, 1 Gb ещё постараться найти где-либо
А так?


Add(MainForm,15525670,336,189)
{
Width=184
Height=127
Position=1
}
Add(Button,8201103,336,252)
{
Left=45
Top=30
Width=95
Caption="Создать файл"
link(onClick,3551750:doConvert,[])
}
Add(FileStream,16107112,455,238)
{
FileName="File"
Mode=2
AutoCopy=0
Point(doCopyFromStream)
Point(doPosition)
link(FileName,5696980:Text,[])
}
Add(VisualStrings,5696980,455,196)
{
Lines=#12:C:\Проба.dat|
Width=88
}
Add(StrList,15224678,392,182)
{
Strings=#1024:ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456ABCDEFGHIJKLMNOPQRSTUVWXYZ123456|
}
Add(StreamConvertor,3551750,392,252)
{
Mode=7
link(onResult,16107112:doCopyFromStream,[])
link(Data,15224678:Text,[])
}

карма: 19

0