forum.boolean.name - Record store

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

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

- - Record store (http://forum.boolean.name/showthread.php?t=5090)

Создаю record store записую туда данные и они сохраняются до выхода из программы ,а после-стераются.Так на телефоне,а на эмуляторе нормально.В чем проблема
function records(modif:string;{строка которой будем заменять}param:integer{а нужно ли заменять}):string;
var rs : recordStore;
countStr : string;
countInt : integer;
index : integer;
nextId :integer;
begin
rs := OpenRecordStore('GroupName');
nextId := GetRecordStoreNextId(rs);
if nextId = 1 then
index := AddRecordStoreEntry(rs, '123');//записываем при первом запуске 123
countStr := ReadRecordStoreEntry(rs,1);//если не первый то читаем
if param=1 then begin ModifyRecordStoreEntry(rs,modif, 1);records:=modif; end; //если нужно модифицировать
CloseRecordStore(rs);
if param=0 then records:=countStr;
end;

Re: Record store

Советую почитать эту тему.

Re: Record store

читал но ошибки у себя не нашел на телефоне все равно не сохраняет данные а на эмуляторе нормально

Re: Record store

Попробуй выполни мой код на мобиле.

Re: Record store

дык пробовал-там все нормально а тут блин нет

Re: Record store

Да всё пашет. Это у тебя в программе наверно где-то косяк. Может забыл param в 1 выставить?

Код:

 

program RecStore;

var rs : recordStore; 

countStr, modif, records : string; 

countInt : integer; 

index : integer; 

nextId, param :integer; 

begin

param:=1; modif:='TEST'; // <-- Это добавил для теста

rs := OpenRecordStore('GroupName'); 

nextId := GetRecordStoreNextId(rs); 

if nextId = 1 then 

index := AddRecordStoreEntry(rs, '123');//записываем при первом запуске 123

countStr := ReadRecordStoreEntry(rs,1);//если не первый то читаем 

if param=1 then begin ModifyRecordStoreEntry(rs,modif, 1); records:=modif; end; //если нужно модифицировать

CloseRecordStore(rs); 

if param=0 then records:=countStr;

DrawText(countStr, 5, 5); Repaint; Delay(5000); // <-- Это добавил для теста

end.

У меня пашет нормально. При первом запуске выдаёт 123, а при последующих TEST.