Encrypting a file can be done by using "Cryptography":
Add(Cryptography,16288419,280,238)
{
}
Add(RichEdit,7393391,259,126)
{
Left=1
Top=61
Width=175
Height=175
ScrollBars=2
WantTab=0
Point(FileName)
}
Add(Cryptography,16288419,259,182)
{
Key="gbsdpvoqmvzo"
link(onCrypt,1815306:doEvent1,[])
link(Data,7393391:Text,[])
}
Add(Button,9205760,203,182)
{
Top=40
Caption="Save"
link(onClick,16288419:doCrypt,[])
}
Add(StrList,4357780,336,189)
{
FileName="Myfile.txt"
Point(doGetString)
Point(onGetString)
link(onGetString,8083092:doCrypt,[])
}
Add(Button,8233548,203,217)
{
Left=55
Top=40
Caption="Load"
link(onClick,2911604:doEvent1,[])
}
Add(Hub,1815306,301,182)
{
OutCount=3
link(onEvent1,4357780:doClear,[(325,188)(325,202)])
link(onEvent2,4357780:doAdd,[])
link(onEvent3,4357780:doSave,[(322,202)(322,230)])
}
Add(Hub,2911604,259,217)
{
link(onEvent1,4357780:doLoad,[])
link(onEvent2,16311052:doData,[(280,230)(280,237)])
}
Add(DoData,16311052,287,231)
{
Data=Integer(0)
link(onEventData,4357780:doGetString,[])
}
Add(Cryptography,8083092,392,196)
{
Key="gbsdpvoqmvzo"
link(onCrypt,7393391:doText,[(433,202)(433,171)(250,171)(250,146)])
}
[offtop]Ну во-первых так как у тебя (при изменении сохранять) делать нежелательно - может зависнуть.
Шифрование файла можно сделать с помощью компонента Криптография.
Смотри[/offtop]