Вверх ↑
Этот топик читают: Гость
Ответов: 32
Рейтинг: -2
#31: 2018-03-23 20:24:59 ЛС | профиль | цитата
Есть дедовский способ - (правда в файл) можно оформить шифрованием

Add(MainForm,2953706,231,224)
{
@Color=16711935
Point(onClose)
link(onCreate,2684876:doEvent1,[])
link(onClose,10925278:doEvent1,[(275,251)(275,384)])
}
Add(StrList,1249778,329,210)
{
@Color=255
FileName="Data.dat"
}
Add(ArrayRW,255590,350,280)
{
@Color=255
Index=String(1)
link(Array,1249778:Array,[(356,268)(349,268)])
AddHint(39,-40,31,13,Index)
}
Add(Hub,2684876,280,238)
{
@Color=255
link(onEvent1,1249778:doLoad,[])
link(onEvent2,255590:doRead,[(308,251)(308,286)])
}
Add(StrList,13928991,336,350)
{
@Color=5635840
FileName="Data.dat"
}
Add(ArrayRW,14928931,357,420)
{
@Color=5635840
Index=String(1)
link(Array,13928991:Array,[(363,408)(356,408)])
link(Value,200698:Value,[(377,401)(405,401)])
AddHint(39,-40,31,13,Index)
}
Add(Hub,10925278,287,378)
{
@Color=5635840
OutCount=4
link(onEvent1,14928931:doWrite,[(329,384)(329,433)])
link(onEvent4,13928991:doSave,[(319,405)(319,391)])
}
Add(Memory,200698,399,350)
{
@Color=5635840
}
Add(PointHint,9270621,546,161)
{
Info=#16:Красный - чтение|16:Зеленый - запись|
Width=211
Height=102
}

карма: -2
cschanell
0
31
Сообщение
...
Прикрепленные файлы
(файлы не залиты)