«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

{LTS}

 

”пражнени€ по обработке файлов (упр 5.)

”пражнение 5. —оздайте приложение, которое открывает текстовый файл с использованием метода OpenDialog, считывает текст из него в объект Memo, затем сохран€ет измененный текст в файле с использованием метода SaveDialog и выводит текст на печать, использу€ метод PrintDialog.

—оздайте форму и разместите на ней компоненты Memo1, Button1, Button2 и Button3. «адайте дл€ свойства Form1.Caption значение Ђѕример с OpenDialog, SaveDialog, PrintDialogї, дл€ Button1.Caption Ц Ђќткрытьї, дл€ Button2.Caption Ц Ђ—охранитьї, дл€ Button3.Caption Ц Ђѕечататьї. ”далите текст ЂMemo1ї из окна Memo1. ƒл€ обеспечени€ возможности просмотра в окне Memo1 длинных текстов с использованием вертикальной полосы прокрутки установите дл€ свойства Memo1.Scrollbars значение ssVertical. ¬ыровн€йте и зафиксируйте визуальные компоненты на форме. ¬ыберите в палитре компонентов страницу Dialogs и поместите на форму компоненты OpenDialog, SaveDialog и PrintDialog. “ак как они не €вл€ютс€ визуальными компонентами, то их можно поместить в любое место формы. «адайте дл€ свойства SaveDialogl.Title значение Ђ—охранить текстовый файлї, а дл€ OpenDialogl.Title Ц Ђќткрыть текстовый файлї. Ёти текстовые строки будут отображатьс€ в заголовках диалоговых окон сохранени€ и открыти€ файла.

„тобы реализовать выбор типа файла при открытии файла в окне диалога, выберите в окне »нспектора объектов объект OpenDialog1, на странице —войства произведите двойной щелчок по списку значений свойства Filter. ¬ окне Filter Editor задайте фильтры дл€ выбора типа и расширени€ файла.

„тобы установить в качестве расширени€ файла по умолчанию первый вариант (*.txt), задайте дл€ свойства OpenDialog1.Filterlndex значение 1. ќтредактируйте фильтры SaveDialog1, как описано в предыдущем упражнении. „тобы в диалоговом окне ѕечать включить возможность выбора диапазона печатаемых страниц и печати выделенного фрагмента, задайте дл€ свойств PrintDialog1.Options.poPageNums и PrintDialog1.Options.poSelection значение True.

ѕосле этого раздел описани€ модулей будет выгл€деть следующим образом:

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Printers;

ќтредактируйте раздел описани€ переменных модул€ следующим образом:

var
Form1: TForm1; {описание формы}
FName : string; {переменна€, в которой хранитс€ им€ файла}
F: TextFile; {файлова€ переменна€}
S: string; {переменна€ дл€ хранени€ данных, прочитанных из файла}

ѕроцедура обработчика щелчка мышью на кнопке Button2 (—охранить) создаетс€, как описано в предыдущем упражнении. „тобы файл можно было сохран€ть с другим расширением, отредактируйте фрагмент, описывающий выбор типа файла, добавив строки удалени€ прежнего расширени€ файла:

case SaveDialog1.Fi1terlndex of {изменить расширение файла}
1 : if Copy(FName,Pos('.',FName),4)<>'.txt' then
begin
Delete(FName, Pos('.',FName),4); {удалить расширение файла}
FName:=FName+'.txt';
end;
3 : if Copy(FName,Pos('.',FName),4)<>'.doc' then
4 :
begin
Delete(FName, Pos('.',FName),4);
FName:=FName+'.doc';
end;
end;

ƒл€ создани€ процедуры обработчика щелчка мышью на кнопке ќткрыть выберите в окне »нспектора объектов объект Button1 и на странице —обыти€ произведите двойной щелчок на пустом поле списка в событии OnClick. ѕосле этого в окне –едактора кода будет сгенерирована заготовка процедуры обработчика событи€ procedure TForm1.Button1Click(Sender: TObject);

ќтредактируйте текст процедуры следующим образом:

procedure TForm1.Button1Click(Sender: TObject): {открыть файл}
begin
if OpenDialog1.Execute then
begin
AssignFile(F, OpenDialog1.FileName); {выбор файла в диалоговом окне}
FName:OpenDialog1.FileName; {им€ выбранного файла}
Reset(F); {открыть существующий файл}
Readln(F, S); {прочитать содержимое файла в переменную S}
Memo1.Text := S; {присвоить значение S свойству Text объекта Memol}
CloseFile(F);
end;
end;

 ак видно из текста процедуры, в начале процедуры открываетс€ диалоговое окно, в котором выбираетс€ файл (FName:=OpenDialog1.FileName;), затем им€ файла св€зываетс€ с файловой переменной (AssignFile(F,OpenDialog1.FileName);), и файл открываетс€ дл€ чтени€ (Reset(F);). ѕосле этого содержимое открытого файла считываетс€ в переменную S (Readln(F, S);) и присваиваетс€ свойству Text объекта Memo1 (Memo1.Text:= S;). ѕосле завершени€ чтени€ содержимого файл закрываетс€ (CloseFile(F);).

ƒл€ создани€ процедуры обработчика щелчка мышью на кнопке ѕечатать выберите в окне »нспектора объектов объект Button3 и на странице —обыти€ произведите двойной щелчок на пустом поле списка в событии OnClick. ѕосле этого в окне –едактора кода будет сгенерирована заготовка процедуры обработчика событи€ procedure TForm1.Button3Click(Sender: TObject);, которую следует отредактировать следующим образом:

procedure TForm1.Button3Click(Sender: TObject);
begin
if PrintDialog1.Execute then
begin
AssignPrn(F); {объ€вить файловую переменную F - принтер}
Rewrite(F); {открыть доступ к принтеру}
Writeln(F,Memo1.Text); {вывести текст из Memol на принтер}
System.CloseFile(F); (закрыть доступ к принтеру}
end;
end;

—охраните, откомпилируйте и запустите на выполнение созданное приложение. ўелкните мышью на кнопке ќткрыть, в диалоговом окне ќткрыть текстовый файл выберите папку, задайте тип файла и выберите текстовый файл, после чего нажмите кнопку ќткрыть. ќтредактируйте текст в окне приложени€ и нажмите кнопку —охранить. ѕосле этого в диалоговом окне —охранить текстовый файл выберите в поле “ип файла расширение дл€ сохран€емого файла, задайте

его им€ и щелкните мышью на кнопке —охранить. ƒл€ вывода считанного из файла текста на печать щелкните мышью на кнопке ѕечатать. ¬ диалоговом окне ѕечать выберите принтер, укажите число копий, диапазон печатаемых страниц и нажмите ќ . ќткрыв в окне ѕроводника папку, в которой был сохранен файл, убедитесь, что в ней присутствует файл с указанным вами именем. ”бедитесь в том, что текст файла напечатан на выбранном вами принтере, и закройте окно приложени€.
 
<< {SITELINK-S211}1{/SITELINK}, {SITELINK-S212}2{/SITELINK}, {SITELINK-S213}3{/SITELINK}, {SITELINK-S214}4{/SITELINK}, 5 >>

”знать как сэкономить в кризис моно на сайте ekonom-it.ru

”пражнение по вводу и обработки элементов массива с использованием StringGrid ”пражнени€ по обработке файлов (упр 1.) ”пражнени€ по обработке файлов (упр 2.) ”пражнени€ по обработке файлов (упр 3.) ”пражнени€ по обработке файлов (упр 4.) ќписание типа Ђмассивї ќперации над элементами массива Ћинейна€ сортировка (сортировка отбором) —ортировка методом пузырька ”слови€ задач (без ответов) 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом