Add(EditText,13772623,413,98)
{
Top=180
Width=390
}
Add(Button,6627616,126,140)
{
Top=105
Width=390
Caption="ЗАПИСАТЬ"
Point(onClick)
link(onClick,14419417:doWrite,[(216,146)(216,118)])
}
Add(Button,9788325,126,245)
{
Top=240
Width=390
Caption="ЗАКРЫТЬ"
Point(onClick)
link(onClick,14419417:doClose,[(254,251)(254,125)])
}
Add(FileReadWrite,14419417,273,98)
{
FileName="/storage/emulated/0/TEXT.txt"
Mode=1
ReadType=10
WriteType=8
Point(doClose)
link(onRead,13772623:doText,[])
link(onEOF,2354115:doShow,[])
link(onError,5168447:doShow,[(339,118)(339,174)])
link(onErrorIO,2358325:doShow,[(327,125)(327,230)])
link(FileRW,13517061:Value,[])
}
Add(AlertDialog,2358325,357,224)
{
Title="IO Error"
Positive="OK"
}
Add(AlertDialog,5168447,357,168)
{
Title="Open/Close error"
Positive="OK"
}
Add(AlertDialog,2354115,357,105)
{
Message="Достигнут конец файла!"
Title="EOF"
Positive="OK"
}
Add(EditText,13517061,273,42)
{
Top=75
Width=390
Hint="ТЕКСТ ДЛЯ ЗАПИСИ"
}
Add(Button,1299466,126,98)
{
Top=20
Width=390
Caption="ОТКРЫТЬ"
Point(onClick)
link(onClick,14419417:doOpen,[])
}
Add(Button,15583078,126,196)
{
Left=-5
Top=155
Width=395
Caption="ПРОЧИТАТЬ"
Point(onClick)
link(onClick,14419417:doRead,[(227,202)(227,111)])
}
Add(MainActivity,908898,35,49)
{
Width=397
AppName="PROBNIK"
Package="PROBNIK.hiasmproject"
Caption="PROBNIK"
}
Add(Permission,16516774,35,98)
{
PermName=73
}
Add(Permission,16694586,35,154)
{
PermName=121
}
При записи ошибок не выскакивает, но и ничего и не записывается в него!