Показать сообщение отдельно
Старый 17.08.2010, 18:22   #33
NetBuilding
ПроЭктировщик
 
Аватар для NetBuilding
 
Регистрация: 07.06.2010
Сообщений: 105
Написано 5 полезных сообщений
(для 13 пользователей)
Ответ: Lib_rms - Новые грани Хранилища Записей

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

вот уже бошкой об стену бьюсь немогу понять.
то оно вроде работает. а-то нет.

вот как делаю:
запускаем приложение

rs
:=OpenRecordStore('vodolaz');    // Открываем хранилище
zapis:=isNotEmpty(rs,1);
if 
zapis=1 then begin
  fpswiev
:=stringToInteger(LoadString(rs1)); // Читаем ображатель скорости
  
fps:=stringToInteger(LoadString(rs2)); // Читаем скорость
  
end;
  else 
begin
  fpswiev
:=50;
  
fps:=50;
  
end;

а вот изменяю значения:

 if  
KeyToAction(keyCode) = GA_fire then begin i:=1deleteRecordStoreEntry(rsi);   i:=AddString(rsintegerToString(fpswiev)); i:=2deleteRecordStoreEntry(rsi); i:=AddString(rsintegerToString(fps)); menuend;
    if  
KeyToAction(keyCode) = GA_left then begin fps:=fps+5fpswiev:=fpswiev-5;   end;
    if  
KeyToAction(keyCode) = GA_right then begin fps:=fps-5fpswiev:=fpswiev+5;  end
(Offline)
 
Ответить с цитированием