Просто ради интереса... Не могу написать функцию сохранения) При вызове из AddNote() функция сохранения SaveIndex() работает нормально, при вызове из DeleteIndex() функция сохранения не работает! ни в каком виде! Бьюсь второй вечер) Либо не происходит переход на другой индекс по команде NoteList.Key = i либо при выводе в файл Print #hIndexDB, NoteList.Current.Text Сообщает Null Object
Функция добавления: Public Sub AddNote(NoteName As String)
NoteList.Add(NoteList.Count, NoteName) NoteList.Item.Selected = True SaveIndex()
End
Функция удаления: Public Sub DeleteIndex()
Dim ret As Integer If NoteList.MoveCurrent() ret = Message.Error(«Выберите заметку для удаления!», «Ok») Else ret = Message.Delete(«Удалить заметку?», «Да», «Нет») If ret = 1 NoteList.Remove(NoteList.Item.Key) SaveIndex() Endif Endif
End
Функция сохранения: Public Sub SaveIndex()
Dim i As Integer Dim iCount As Integer iCount = NoteList.Count - 1 If Exist(IndexDB) Then Kill IndexDB hIndexDB = Open IndexDB For Create
For i = 0 To iCount Step 1 NoteList.Key = i Print #hIndexDB, NoteList.Current.Text Next
End