Как в rms сохранить русский текст?

[Arenyan]

Как в rms сохранить русский текст? Сохраняю русский текст, всё нормально записывается потом читаю запись выводит ???? и всё. С английскими буквами нормально читает.

[odd]

Есть специальная библиотека Lib_rms, там можно сохранять хоть русский текст, хоть картинки.

[Arenyan]

Спасибо.

[im_zorg]

а у меня на теле не сохраняет в "Путнике" в других всё норм пишу так

Procedure SaveProgress;
begin
    rs:=OpenRecordStore('Saving');
    id:=GetRecordStoreNextId(rs);
    if id=1 then begin id:=AddRecordStoreEntry(rs,'0'); id:=AddRecordStoreEntry(rs,'0'); end;
    ModifyRecordStoreEntry(rs,''+zvezda,1);
    ModifyRecordStoreEntry(rs,''+health,2);
    ModifyRecordStoreEntry(rs,''+plX,3); 
    ModifyRecordStoreEntry(rs,''+plY,4); 
    ModifyRecordStoreEntry(rs,''+level,5); 
    ModifyRecordStoreEntry(rs,''+lava,6);
 ModifyRecordStoreEntry(rs,''+plimag,7);
    CloseRecordStore(rs);
    delay(1000);
end;

Procedure LoadProgress;
begin
    rs:=OpenRecordStore('Saving');
    id:=GetRecordStoreNextId(rs);
    if id=1 then
    begin
  delay(1000);
    end
    else
    begin
     load:=true;
     zvezda:=stringtointeger(ReadRecordStoreEntry(rs,1));
        health:=stringtointeger(ReadRecordStoreEntry(rs,2));        
        plX:=stringtointeger(ReadRecordStoreEntry(rs,3));
        plY:=stringtointeger(ReadRecordStoreEntry(rs,4));
        level:=stringtointeger(ReadRecordStoreEntry(rs,5));
        lava:=stringtointeger(ReadRecordStoreEntry(rs,6));
        plimag:=stringtointeger(ReadRecordStoreEntry(rs,7));
        delay(1000);
    end;
    CloseRecordStore(rs);
end; 


[odd]

Ошибка в том, что когда записей в хранище нет (id=1), то ты создаешь в хранилище только 2 ячейки для хранения информации, в то время как реально обращаешься к чтению/записи аж к 7 ячейкам.
Так что тебе нужно переделать всего одну строку в процедуре SaveProgress:

if id=1 then begin for i:=1 to 7 do id:=AddRecordStoreEntry(rs,'0'); end; 


ну и добавить переменную i типа integer в объявление переменных.

А загрузку прогресса тоже можно немного переделать, там у тебя стоит пауза зачем-то (delay(1000)), хотя логичнее было бы написать так:

if id = 1 then SaveProgress;
else
begin
load:=true;
zvezda:=....
.... 


[im_zorg]

спс всё робит даже если выключить потом включить игру спс 


[im_zorg]

а насчет delay я думал ему времени на сохранения не хватает(((

[odd]

Сообщение от im_zorg

а насчет delay я думал ему времени на сохранения не хватает(((

Да не, поубирай там все Delay. Это только прибавляет тормозов.