дяться в даній категорії. Продовжіті? ', True, true, false, true). Run (' Ві Дійсно Хочете ВИДАЛИТИ категорію "'+ CatCB.Items [CatCB.itemindex] +'"? ', True, true, false, true); AskDialog . m_SelectedItem <> 1 then;. InitializeLocal;. OpenDatabase (self.m_RecDBFilename); i: = db.RecordCount downto 1 do: = db.DirectReadLong (i, 2); catid <> self.m_CurCatID then; : = db.DirectReadLong (i, 1); (db, i); (m_DataFolder + along2str (recID) + '. rec');;. DBClose;. OpenDatabase (self.m_CatDBFilename);: = tdb_lib.SeekForLong (db , 1, self.m_CurCatID, false); (db, rn);. DBClose;: = CatCB.ItemIndex;; (CatCB, index);;;
TMainForm.OnAddCategory;: tdb;, sNewName: string;, id, i: longint;: = GetTextByTemplate (CatCB.Items, 'категорія', false);. run ('Введіть Назву Нової категорії ', sNewName, false, 50, nil, false,
'', false,'', # 0, 'Назва Нової категорії'); not EditTextForm.m_IsEntered then;. InitializeLocal;. OpenDatabase (self.m_CatDBFilename);: = alltrim (EditTextForm.Edit1 . Text);: = SeekForString (db, 2, sName, false, true, true); rn> 0 then.Run ('категорія з такою Назв Вже існує.' + # 13 + 'Створення Неможливо', false, false , true, false);. DBClose;;;: = db.RecordCount + 1;: = CalcMaxLongValue (db, 1) + 1;. DirectWriteLong (rn, 1, id);. DirectWriteString (rn, 2, sName); . DBClose;;. ItemIndex: = CatCB.Items.Count - 1;;;
TMainForm.OnMoveToCat;, id, rn: longint;: tdb; l.ItemIndex <0 then.Run ('Не вибрать жодних рецептом для переміщення!', false, false, true, false) ;;; CatCB.Items.Count = 1 then
. Run ('У вас є Всього одна категорія!' + # 13 +
'Переміщення в іншу категорію Неможливо.', false, false, true, false);;;
. L.Clear; (CatCB.Items, SimpleSelectInListBoxForm.L.Items);. Run ('категорія, в якові перемістіті рецепт', false, false,
'', false, true, CatCB.ItemIndex); not SimpleSelectInListboxFOrm.m_IsSelected then;: = SimpleSelectInListboxFOrm.L.ItemIndex; index = CatCB.ItemIndex then.Run ('Рецепт Вже знаходится в категорії' + '"' + CatCB.Items [CatCB.itemindex] + '".', false, false, true, false);;;: = longint (CatCB.Items.Objects [index]);. InitializeLocal;. OpenDatabase (self.m_RecDBFilename);: = SeekForLong (db, 1, self.m_curRecID, false);. DirectWriteLong (rn, 2, id);. DBClose;. ItemIndex: = index;;; TMainForm.OnEdit; _CurRec: longint ; l.Items.count <1 then.Run ('Рецепти відсутні в категорії "' + CatCB.Items [CatCB.itemindex] + '"!', false, false, true, false);;; _CurRec: = l.ItemIndex;. run (m_curRecID, CatCB.ItemIndex, l.Items [l.itemindex]); not RecEditorForm.m_isEntered then;;. ItemIndex: = m_CurRec;;;
TMainForm.OnNewRec;. run (-1, CatCB.ItemIndex); not RecEditorForm.m_isEntered...
