Рекорды.

[demon112]

Чёт не пойму. Обьясните как сохранить в рмс, потом выводить. Я пробовал, сохраняю, после этого могу загрузить и вывести строчку, но когда я выхожу из приложения, при повторном входе, уже загрузить не могу... Напишите к примеру код самой простенькой программы, например, при нажатие на кнопку 5 сохраняет в рмс какую нить строчку, а при нажатии на кнопку 3 загружает её и выводит на экран...

[beZ_probleM]

имья сохраняемого файла должно содержать токо английские буквы или числа (возможно и символы) но НЕ РУССКИЕ
ето важно
возможно ты сохранял под русским названием рмс... это может быть твоей проблемой
а в основном вот примитив сохранения и чтения с рмс :

var rs: recordStore; 
      index: integer;  
      name: string; 
  begin 
    // Записываем некие данные в хранилище 
    rs := openRecordStore('names'); 
    index := addRecordStoreEntry(rs, 'John Smith'); 
    closeRecordStore(rs); 

    // Считываем данные 
    rs := openRecordStore('names'); 
    name := readRecordStoreEntry(rs, index); 
    closeRecordStore(rs); 
  end. 


[demon112]

Я на этом примере и делал. К примеру: подправь немного этот код: напиши, если нажать 5 тогда сохранить даные и выйти, а если нажать 1, тогда считать и вывести на экран. Нифига не работает...

[ViNT]

Ищте в форуме. Несколько месяцев назад уже кто-то спрашивал, почему не работает подобный код. Отвечаю: из-за переменной index, при записи она получает некоторое значение, но при следующем запуске она уже равна нулю(точнее, строго говоря, в ней вообще может быть что угодно). В итоге, пока мидлет работает, все нормально, но как только его перезапустили - начинаем читать данные "изниоткуда".

[demon112]

И как сделать чтоб работало?

[ViNT]

Уже обсуждалось здесь
http://forum.boolean.name/showthread...ht=recordstore

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

[beZ_probleM]

я вот так пишу и у меня всегда работает

procedure Save_to_recordStore;
  var rs: recordStore;
      ex:integer; 
  begin 
    deleteRecordStore(Pers.login);  // удаляем старое хранилище
    rs := openRecordStore(Pers.login); 
       repeat 
          ex := addRecordStoreEntry(rs,integerToString(Pers.level)); 
       until ex<>-1;
       repeat
          ex := addRecordStoreEntry(rs,integerToString(Pers.exp)); 
       until ex<>-1;
    closeRecordStore(rs); 
  end;

procedure From_recordStore_to_Pers;
  var rs: recordStore; 
  begin  
    rs := openRecordStore(Pers.login); 
       Pers.level := StringtoInteger(readRecordStoreEntry(rs,2)); 
       Pers.exp := StringtoInteger(readRecordStoreEntry(rs,3));
    closeRecordStore(rs); 
  end; 


З.Ы. луше создавать отдельные процедуры загрузки и сохранения чтоб потом при нажатии на клавишу вписать просто имья процедуры=) так код проще будет

[demon112]

Во, всё работает. пасибки!