Чтение из хранилища

[Rosetau]

всем привет, подскажите плз

есть процедура основной программы, где в бесконечном цикле крутятся ифы

примерно так

repeat
if ptext=0 then
begin end;

if ptext=1 then
begin end;
until(..);

и в каждом ифе присутствует запись в хранилище, например, для второго ифа

if key=KE_KEY0 then
begin
rs := openRecordStore('saves'); 
index := addRecordStoreEntry(rs, '1'); 
closeRecordStore(rs); 
delay(500);
halt;
end;

а потом при старте мидлета в меню имею функцию загрузки

if menuClicked = loadButton then
begin
rs := openRecordStore('saves'); 
save1 := readRecordStoreEntry(rs, index);
loadsave:=stringtointeger(save1); //перевожу строку в интегер
closeRecordStore(rs); 

ptext:=loadsave;//присваиваю считанное значение птексту
main_game;//запускаю главную процедуру
end;

по идее, в указателе ифа ptext'е сразу должно находится считанное значеине и начинаться второй иф. но начинается всегда первый

в чем я ошибаюсь?

[Dr.SanX]

Мож поможет, хоть чуть ))

program Rosetau;
var xxx,key,index,ptext:integer;
    rs:recordStore;
procedure main_menu;
begin
	drawText('Hello world!', 0, 0);
	repaint;	
	delay(2000);
end;
begin
repeat
rs:=openRecordStore('Text');//Открытие RecordStore
ptext:=stringToInteger(readRecordStoreEntry(rs,1));//Загрузка 1-й строки с переводом в integer
if ptext=0 then
begin
key:=getKeyClicked;//Чтение клавиатуры
    if key=KE_KEY0 then//Проверка нажатия
    begin
    rs:=openRecordStore('Text');//Открытие RecordStore
    if getRecordStoreSize(rs)=0 then index:=addRecordStoreEntry(rs,'1');//Проверка на наличее строк в RS и если нет записывает
    end;
end;
if ptext=1 then begin 
main_menu;//Загрузка нужной процедуры
ptext:=2//Чтоб зацикливания небыло
end;
until(xxx=1);
end.

[Rosetau]

if getRecordStoreSize(rs)=0 then index:=addRecordStoreEntry(rs,'1');//Проверка на наличее строк в RS и если нет записывает

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

или при чтении он удаляет запись с хранилища?

[Dr.SanX]

ModifyRecordStoreEntry(rs,'XXX',1);{хранилеще,текс т,номер строки для замены}//если строка 1 уже существует в хранилеще

[Rosetau]

Dr.SanX, угу пасиба большое
сделал в лоб - после загрузки удаляю хранилище. хотя с точки зрения затраты ресурсов это не очень хорошо наверно