Последние записи
- Регулярные выражения findall — найти позиции вхождения подстроки в строку
- Удалить повторяющиеся элементы из массива (VBA в Excel)
- Сравнить значения в TRxDBGrid
- Определить слова наибольшей и наименьшей длины (VBA в Microsoft Office Excel)
- Массив с Фибоначчи. Создание массива с произведением элементов Фибоначчи — Microsoft Office Excel
- Импорт таблицы Word на лист Excel
- Изменение имени файла в C# (си шарп)
- Поле и вычисления в запросе (SQL в Access)
- Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
- Раскрашивание ячеек в DBGrid
29th
Авг
Сохранение при выходе из программы
Posted by Chas under Delphi
Работаю над текстовым редактором. Сохранение по идее должно идти по такой схеме:
«Если RichEdit заполнен, то Спрашиваем, иначе просто Выход»
Stilet
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if (trim(RichEdit.Lines.Text)<>'') and
(MessageDlg('Документ не сохранен. Сохранить документ?', mtInformation, [mbYes, mbNo], 0) = mrYes ) and
(SaveDialog1.Execute) then
richedit1.Lines.SaveToFile(SaveDialog1.FileName)
end;Похожие статьи
