всем привет, подскажите плз
есть процедура основной программы, где в бесконечном цикле крутятся ифы
примерно так
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'е сразу должно находится считанное значеине и начинаться второй иф. но начинается всегда первый
в чем я ошибаюсь?