CASPER, сохранение работает просто надо папку вручную создать...
Врубился, Дима, вот код, если кому надо:
Add(MainForm,9102799,56,91)
{
Left=20
Top=105
Width=288
Height=237
Point(Close)
link(onCreate,5590681:doFileExists,[(107,132)(107,156)])
link(Close,16332100:GetData,[])
}
Add(StringTable,14229169,371,189)
{
Left=5
Top=60
Width=270
Height=140
FileName="folder able"
Columns=#9:Колонка 1|9:Колонка 2|
StrDelimiter="|"
Grid=0
}
Add(Button,10912573,231,154)
{
Left=145
Top=5
Width=130
Height=45
Caption="Добавить запись"
link(onClick,10126739:doString,[(282,160)(282,188)])
}
Add(Edit,3168673,350,119)
{
Left=5
Top=30
Width=135
Text=""
}
Add(Edit,16021449,308,119)
{
Left=5
Top=5
Width=135
Text=""
}
Add(FormatStr,10126739,301,182)
{
Mask="%1|%2"
link(onFString,14229169:doAdd,[(352,188)(352,195)])
link(Str1,16021449:Text,[(307,167)(314,167)])
link(Str2,3168673:Text,[(314,167)(356,167)])
}
Add(IndexToChanel,8439565,168,129)
{
link(onEvent1,5988664:doString,[(226,135)(226,97)])
link(onEvent2,14229169:doLoad,[(285,142)(285,216)])
}
Add(EventFromData,16332100,56,42)
{
link(onEvent,14229169:doSave,[(229,48)(229,223)])
}
Add(FileTools,5590681,126,129)
{
link(onEnd,8439565:doEvent,[(184,135)(163,135)])
link(FileName,4496638:Value,[(132,116)(139,116)])
}
Add(Memory,4496638,133,70)
{
Default=String(folder able)
}
Add(Dir,2975270,252,42)
{
}
Add(FormatStr,5988664,252,91)
{
Mask="%1folder"
link(onFString,2975270:doDir,[(294,97)(294,83)(242,83)(242,48)])
link(Str1,2975270:CurrentDir,[(258,76)(258,90)])
}
Add(StyleXP,11916337,56,154)
{
}