Реферат Кулінарна книга

then;. ItemIndex: = RecEditorForm.cb.ItemIndex;;. ItemIndex: = l.Items.Count - 1;;; OnSelectReceptWithID (recID: Integer; CatID: longint);: longint;: = FindObjectInComboBox (MainForm.CatCB, CatID);. CatCB.ItemIndex: = index;. OnSelectCat;: = FindObjectInLB (MainForm.l, RecID) ;. l.ItemIndex: = index;. OnSelectRecept;;

TMainForm.OnFind;. RunForDB ('Поиск рецепта', self.m_RecDBFilename, 3, 1, 2, OnSelectReceptWithID);;

TMainForm.OnSaveToFile;: string;: string;

l.ItemIndex <0 then.Run ('Спочатку віберіть рецепт для Збереження', false, false, true, false);;;. filename: = GetStandartFolder ($ 0005) + '' + l.Items [l.itemindex]; not SaveDialog1.Execute then;: = SaveDialog1.FileName;: = mylib.GetExtentionFromName (sFilename); sExt ='' then: = sFilename + '. txt';

. Lines.SaveToFile (sFilename);

. Run ('Файл успішно Збереже', false, false, true, false);

;

TMainForm.OnCopyToCat;, id, rn, rn2, id2: longint;: tdb;: TStrings;: string;, filnm2: string; l.ItemIndex <0 then.Run ('Не вибрать Жодний рецептом для копіювання! ', 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] +' ". '+ # 13 +

'Зробити ще одну копію в Цій категорії?', true, true, false, false); AskDialog.m_SelectedItem <> 1 then;;

: = TStringList.Create;. InitializeLocal;. OpenDatabase (self.m_RecDBFilename); (x, MainForm.m_RecDBFilename, 3);: = mylib.GetTextByTemplate (x, 'Копія-' + l. Items [l.itemindex], true);. Free;. run ('Введіть Назву копії рецептом', sNewName, false, 50, nil, false,

'', false,'', # 0, 'Назва рецептом'); not EditTextForm.m_IsEntered then.DBClose;;;: = alltrim (EditTextForm.Edit1.Text);: = tdb_lib. SeekForString (db, 3, sNewName, false, true, true); (rn> 0) and (length (sNewName)> 0) then.run ('Неможливо Зберегти рецепт.' + # 13 + 'Рецепт з такою Назв Вже існує! ', false, false, true, false);. DBClose;;;: = longint (CatCB.Items.Objects [index]);: = CalcMaxLongValue (db, 1) + 1;: = db.RecordCount + 1;. DirectWriteLong (rn2, 1, id2);. DirectWriteLong (rn2, 2, id);. DirectWriteString (rn2, 3, sNewName);: = m_DataFolder + along2str (m_currecID) + '. rec';: = m_DataFolder + along2str (id2) + '. rec';. DBClose; (filnm1, filnm2);. ItemIndex: = index;;;

TMainForm.OnOpenFromFile;: string;. ...