nomber:=1; jamb:= openRecordStore("record"); text1:= readRecordStoreEntry(jamb, 1); if stringToInteger(text1)<bbb then begin deleteRecordStoreEntry(jamb, 1); nomber:= addRecordStoreEntry(jamb, integerToString(bbb)); end; closeRecordStore(jamb); - шо не так? он строчку удаляет а потом не сохраняет нифига(((
29 мар 2009 в 20:21