forum.boolean.name - Как в rms сохранить русский текст?

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - Как в rms сохранить русский текст? (http://forum.boolean.name/showthread.php?t=11839)

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

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

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

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

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

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

PHP код:


		
			
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;

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

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

PHP код:


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

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

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

PHP код:


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

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

PHP код:


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

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

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

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

Цитата:

Сообщение от im_zorg (Сообщение 135945)

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

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