metoda (803169), страница 2
Текст из файла (страница 2)
Затем откройте этот файл на новой вкладке с именем F1.txt окна редактора текстов следующим образом: введите команду Файл/Открыть…, в появившемся окне диалога Openвыберите в раскрывающемся списке Тип файлов: строку Any file(*.*), в списке файлов выберите F1и щелкните на кнопке Открыть. В дальнейшем, если будет выполняться сохранение в файле, в среде будет появляться сообщение, предлагающее обновить текст на вкладке F1.txt.6. Создание обработчика события файл СохранитьСоздайте самостоятельно обработчик procedure TForm1. MenuItem5Click(Sender: TObject) события щелчка на пункте меню Файл\Сохранить, используя условный оператор.
Если текст ещё не сохранялся в файле (S=''), то следует вызвать MenuItem6Click(Self) - обработчик, созданный дляпункта меню Файл.Сохранить как… в предыдущем пункте задания, иначе – просто выполнив оператор Memo1.Lines.SaveToFile(S) – сохранение всего редактируемого текста в файле с именем, хранящемся в S. Считать, что текст не модифицировался (Memo1.Modified получит значение false;) .procedure TForm1.N3Click(Sender: TObject);begin//Обработчик щелчка на пункте меню ФАЙЛ.ОТКРЫТЬ...if Memo1.Modified then begin //если текст Memo1 был// изменён, то предложить диалог для выбора файлаcase MessageDlg('Текст был изменен. Сохранить данные'+' в файле по выбору?', mtConfirmation,[mbYes, mbNo, mbCancel], 0) ofmrYes}: begin // сохранить текст в файле, выбрав его//в диалоге ФАЙЛ.СОХРАНИТЬ КАК...NMenuItem 6Click(Self);//перейти к диалогу ФАЙЛ.ОТКРЫТЬend;mrCancel: exit;//выйти из диалога ФАЙЛ.ОТКРЫТЬ//в редактор без сохраненияmrNo:;//не сохранять текст в файле и//перейти к диалогу ФАЙЛ.
ОТКРЫТЬend; //caseend;//if Memo1.Modified//Открытие окна диалога ФАЙЛ.ОТКРЫТЬ для выбора папки//и файла, текст из которого следует//поместить в Memo1 - рабочую область редактора.if Form1.OpenDialog1.Execute then begin //если выбран файлS:=OpenDialog1.FileName;//то S присвоить имя файла,Memo1.Lines.LoadFromFile(S);//загрузить текст из файла в Memo1Memo1.Modified:=false;//считать, что текст не модифицирован,//а в заголовок формы добавить спецификацию файлаForm1.Caption:='Form1' + ' ' + S;end;//if Form1.OpenDialog1.Executeend; Рисунок 7. Обработчик события Файл ОТКРЫТЬ.РРисунок 7 Обработчик события открытия файла7.
Создание обработчика события файл ОткрытьСоздайтеобработчикprocedurеTForm1.MenuItem3Click(Sender: TObject) события щелчка на пункте менюФайл\Открыть…, для чего сделайте двойной щелчок на соответствующей строке дереваобъектов и в появившейся заглушке добавьте операторы и комментарии, имея в виду следующее.Если редактируемый текст не был изменён (Memo1. Modified ложно), то сразу перейти кдиалогу открытия файла, иначе следует предложить пользователю разрабатываемой программы выбрать в диалоге (см.
справку по функции MessageDlg) вариант продолжения работы с измененным текстом:- I) или сохранить его в файле по выбору, вызвав MenuItem6Click(Self) и затем открыть новыйфайл;- II) или не сохранять текст и открыть новый файл;- III) или отменить выполнение команды, выйдя из метода по exit и продолжить редактирование текста, как если бы команда открытия файла вообще не вводилась .
(см. текст обработчикарисунок 7).5Диалог для выбора открываемого файла запускается командой OpenDialog1.Execute (смсправку по классу TOpenDialog). Если открываемый файл не был выбран (в окне диалога Открыть была нажата кнопка Отмена), то следует просто выйти из обработчика (вернуться к редактированию прежнего текста), иначе следует загрузить выбранный файл на редактирование,переменной S присвоить спецификацию этого файла и отобразить её в заголовке окна форма, атакже свойству Memo1.Modified присвоить значение false – признак того, что загруженный наредактирование текст не изменён.8.
Создание обработчика события файл ВыходСоздайте самостоятельно обработчик procedure TForm1.MenuItem7Click(Sender: TObject) события щелчка на пункте меню Файл.Выход, для чего сделайте двойной щелчок на соответствующейстроке дерева объектов и в появившемся шаблоне добавьте операторы и комментарии, имея в виду следующее.
Если редактируемый текст не был изменён (Memo1.Modified ложно), то сразу завершите работу программы оператором close, иначе следует предложить пользователю разрабатываемой программывыбрать в диалоге (см. справку по функции MessageDlg) вариант продолжения работы с измененнымтекстом:- I) или сохранить его в файле (пользователь нажал кнопку Yes) по выбору, вызвавMenuItem6Click(Self) и затем завершить работу программы;- II) или не сохранять текст (пользователь нажал кнопку No) и завершить работу программы;- III) или отменить выполнение команды (пользователь нажал кнопку Cancel), выйдя из методапо exit и продолжить редактирование текста, как если бы команда завершить работу программывообще не вводилась..
Например, вызов функцииMessageDLG('Сохранить файл?',mtInformation,[mbCancel,mbYes,mbNo],0)обеспечит диалог вида8. Создание обработчика события файл СоздатьСоздайте самостоятельно обработчик procedure TForm1. MenuItem2Click(Sender: TObject) событиящелчка на пункте меню Файл.Создать, для чего сделайте двойной щелчок на соответствующей строкедерева объектов и в появившемся шаблоне добавьте операторы и комментарии. Окно Memo1 нужноочистить без всяких условий, задав Memo1.Text значение пустой строки, имя файла S должно иметьзначение пустой строки,( файл не сохранен), а оператором присваивания в заголовке формы Form1.Captionзадать название Form1.8.
Создание обработчика события файл СохранитьСоздайте самостоятельно обработчик procedure TForm1. MenuItem5Click(Sender: TObject)события щелчка на пункте меню Файл\Сохранить, для чего сделайте двойной щелчок на соответствующейстроке дерева объектов и в появившемся шаблоне добавьте операторы и комментарии.В условном операторе записать условие, если текст еще не сохранялся в файле (S=''), то следуетпередать управление обработчику команды Файл/Сохранить как…, выполнив операторMenuItem6Click(Self),иначе–сохранитьтекстMemo1вфайлеоператоромMemo1.Lines.SaveToFile(S).
Затем установить оператором Memo1.Modified:=false признак, что текст вMemo1 не модифицирован.9. Создание обработчика события файл Закрыть6Создайте самостоятельно обработчик procedure TForm1. MenuItem4Click(Sender: TObject) событиящелчка на пункте меню Файл.Закрыть, для чего сделайте двойной щелчок на соответствующей строкедерева объектов и в появившемся шаблоне добавьте операторы и комментарии, имея в виду, что если текстбыл изменен, то нужно в диалоге (см. справку по функции MessageDlg) выяснить, что желаетпользователь. Если он нажмёт кнопку Cancel, то есть хочет вернуться к редактированию текста, то следуетпросто выйти из обработчика. Если он нажмёт кнопку No, то нужно удалить текст, вывести в заголовококна название формы ‘Form1’ и присвоить S пустое значение. Если пользователь нажмёт кнопку Yes, тонужно выполнить те же действия, что и при нажатии кноки No, но предварительно сохранить текст оператором Memo1.Lines.SaveToFile(S), если S≠'', илисохранить текст в файле по выбору, вызвавN6Click(Self), если S=''.Задания на обработку TextFileОбщее для всех заданий1.
Программа должна иметь меню Файл с подпунктами: Файл.Создать, Файл.Открыть…,Файл.Закрыть, Файл.Сохранить, Файл.Сохранить как…, Файл.Выход и соответствующие им диалоги, а также пункт меню Работа, с двумя индивидуальными для каждого задания подпунктами.2. Исходный (создаваемый с использованием меню Файл) файл должен иметь следующую структурустрок (в скобках указаны длины полей и выранивание): Номер строки (4, правое), пробелы (2), Группа(8, левое), пробелы (2), Фамилия (12, левое), Оценка 1 (3, правое), Оценка 2 (3, правое), Оценка 3 (3,правое),например, 13.
Исходный файл должен храниться в каталоге проекта программы и иметь данные по трём группам,для каждой из которых должно быть число строк, достаточное для проверки работ по подпунктам менюРабота, но не менее 10 для каждой группы. Сделать Memo1 шириной >= длине строки файла и с вертикальной полосой прокрутки (в Инспекторе объектов свойствву ScrollBars дать значение ssVertical присоздании макета формы).4. Если в задании какие-либо данные отсутствуют или сказано, что они должны быть введены/выбраны в диалогах, то предполагается использование OpenDialog, SaveDialog, MessageDlg или InputQueryВ некоторых заданиях будет предложено отбирать строки файлов по маске. Маской являетсястрока, содержащая символы замещения: * (звёздочка) – представляет любую, в том числе и пустую,последовательность символов; ? (знак вопроса) – представляет любой один, и только один символ.Например, маске *т? удовлетворяет любая последовательность символов, предпоследним символом которой является буква «т», после которого должен стоять ровно один любой символ.
Такой маске будут,в частности, соответствовать слова та, эта, приметы, но не такт, этак, приметный.Добавляемые подпункты меню Работа по вариантам1. - Отличники – для выбранного файла отобразить список фамилий студентов заданной в диалогегруппы, имеющих все оценки 5.- Средние баллы – для выбранного файла отобразить средние баллы по каждому экзамену для студентов всех групп.2. - Средний балл группы – для выбранного файла отобразить для заданной в диалоге группы средний балл по всем экзаменам.- Должники – отобразить строки файла, представляющие студентов всех групп, в фамилии которыхсодержится заданная в диалоге строка и имеющих оценки 2.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
