|
Record store
Создаю 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;
|