[gunner05]

а у меня вот не сохраняються
вот набрасал код
запись и чтение из хранилища...пока java запущено читает, если закрыть и запустить то пусто....

program sender_w;
procedure CreateMenu;forward;
var rs: recordStore;
ok, cancel, clicked: command;
index, phone: integer;
name, phone2: string;
_write,_read,_exit:integer; //для меню

procedure write;
begin
clearForm;
showform;
ok:=createCommand('Сохранить',CM_SCREEN,0);
cancel:=createCommand('Назад',CM_SCREEN,1);
addcommand(ok);
addcommand(cancel);
phone:= formAddTextField('номер', '', 15, TF_NUMERIC);

repeat
delay(100);
clicked := getClickedCommand;
until clicked <> emptyCommand;

if clicked = cancel then CreateMenu;

phone2:= formGetText(phone);

rs := openRecordStore('phone');
index := addRecordStoreEntry(rs, phone2);
closeRecordStore(rs);
CreateMenu;
end;
procedure read;
begin
rs := openRecordStore('phone');
name := readRecordStoreEntry(rs, index);
closeRecordStore(rs);

showCanvas;
setColor(255, 0, 0);
drawText(name, 5, 5);
repaint;
delay(3000);
CreateMenu;

end;

procedure CreateMenu;
begin
ShowMenu('Меню', CH_IMPLICIT);
_write := MenuAppendString('Записать');
_read := MenuAppendString('Прочитать');
_exit := MenuAppendString('Выйти');
repeat
delay(100);
clicked := GetClickedCommand;
until clicked <> EmptyCommand;
if MenuGetSelectedIndex=_write then write;
if MenuGetSelectedIndex=_read then read;
if MenuGetSelectedIndex=_exit then Halt;
end;

begin

CreateMenu;
end.