Нужно создать, записать и прочитать что-либо в текстовом файле.
Add(MainActivity,10566379,98,70)
{
Width=397
AppName="PROBNIK"
Package="PROBNIK.hiasmproject"
Caption="PROBNIK"
}
Add(EditText,13772623,539,224)
{
Top=180
Width=390
}
Add(Button,7182828,252,77)
{
Width=390
Caption="СОЗДАТЬ"
Point(onClick)
link(onClick,458839:doOpen,[])
}
Add(Button,6627616,252,266)
{
Top=105
Width=390
Caption="ЗАПИСАТЬ"
Point(onClick)
link(onClick,14419417:doWrite,[(342,272)(342,244)])
}
Add(Button,9788325,252,427)
{
Top=240
Width=390
Caption="ЗАКРЫТЬ"
Point(onClick)
link(onClick,14419417:doClose,[(380,433)(380,251)])
}
Add(FileReadWrite,14419417,399,224)
{
FileName="/storage/emulated/0/TEXT.txt"
ReadType=10
Point(doClose)
link(onRead,13772623:doText,[])
link(onEOF,2354115:doShow,[])
link(onError,5168447:doShow,[(465,244)(465,300)])
link(onErrorIO,2358325:doShow,[(453,251)(453,356)])
link(FileRW,13517061:Value,[])
}
Add(AlertDialog,2358325,483,350)
{
Title="IO Error"
Positive="OK"
}
Add(AlertDialog,5168447,483,294)
{
Title="Open/Close error"
Positive="OK"
}
Add(AlertDialog,2354115,483,231)
{
Message="Достигнут конец файла!"
Title="EOF"
Positive="OK"
}
Add(File,458839,399,77)
{
Path="/storage/emulated/0/TEXT.txt"
MakeFull=1
}
Add(EditText,13517061,399,168)
{
Top=75
Width=390
Hint="ТЕКСТ ДЛЯ ЗАПИСИ"
}
Add(Button,1299466,252,224)
{
Top=20
Width=390
Caption="ОТКРЫТЬ"
Point(onClick)
link(onClick,14419417:doOpen,[])
}
Add(Button,15583078,252,322)
{
Left=-5
Top=155
Width=395
Caption="ПРОЧИТАТЬ"
Point(onClick)
link(onClick,14419417:doRead,[(353,328)(353,237)])
}