[gunner05]

procedure setings;
begin
  // читаем номер телефона из хранилища
 rs := openRecordStore('phone'); 
  name := readRecordStoreEntry(rs, index); 
  closeRecordStore(rs); 
 
 // создаем форму и в текстовом поле выводим номер из хранилища
 clearForm; 
 showform;
  ok:=createCommand('Сохранить',CM_SCREEN,0);
  cancel:=createCommand('Назад',CM_SCREEN,1);
 addcommand(ok);
 addcommand(cancel);
 phone:= formAddTextField('Текущий номер', name, 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;

процедура считывает номер телефона из хранилища и выводит в TextField, если его изменить то записывает новый, в последствии выводит уже новый телефон.
проблема в том что чтение и запись работает только пока java приложение запущено, если приложение остановить то из хранилища запись пропадает....как это побороть?????