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










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

 

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

”пражнение 4. —оздайте приложение, создающее текстовый файл и сохран€ющее в нем текст из Memo, использу€ метод SaveDialog дл€ выбора папки и задани€ имени и расширени€ текстового файла.

—оздайте форму, на которой разместите компоненты Memo1, Label1 и Button1. «адайте дл€ свойства Form1.Caption значение Ђѕример с использованием SaveDialogї, дл€ Label1.Caption Ц значение Ђ¬ведите текстї, дл€ Button1.Caption Ц значение Ђ—охранитьї. ”далите текст ЂMemolї из окна Memo1. ¬ыровн€йте и зафиксируйте визуальные компоненты на форме. ¬ыберите в палитре компонентов страницу Dialogs и поместите на форму компонент SaveDialog. “ак как он не €вл€етс€ визуальным компонентом, то его можно поместить в любое место формы. «адайте дл€ свойства SaveDialog1.Title значение Ђ—охранить текстовый файлї, которое будет отображатьс€ в заголовке диалогового окна сохранени€ файла.

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

ўелкнув на кнопке 0 , закройте окно Filter Editor. ƒл€ установки расширени€ *.txt по умолчанию задайте значение 1 дл€ свойства SaveDialog1.Filter.

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

¬ведите в раздел описани€ переменных модул€ строковую переменную FName дл€ хранени€ имени файла:

var
Forml: TForml;
FName : string;

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

procedure TForm1.Button1Click(Sender: TObject);
begin
FName: = 'Textr';
SaveDialog1.FileName := FName;
{присвоить свойству FileName значение из переменной FName}
if SaveDialog1.Execute then
begin
FName:=SaveDialog1.FileName;
{открыть диалог и запомнить новое им€ файла}
case SaveDialogl.Filterlndex of
{изменить расширение файла}
1 : FName:=FName+'.txt';
2 : FName:=FName+'.doc':
end;
Memo1.Lines.SaveToFile(FName);
{записать в файл содержимое из свойства Lines объекта Memo}
end;
end;

 ак видно из текста процедуры, сначала переменной FName присваиваетс€ значение ЂText1ї, затем это значение присваиваетс€ свойству SaveDialog1.FileName. «атем приложение открывает диалоговое окно Ђ—охранить текстовый файлї, в котором задаетс€ им€ файла. »м€ файла из свойства SaveDialog1.FileName запоминаетс€ в переменной FName. ѕри помощи оператора case реализуетс€ выбор расширени€ файла в зависимости от значени€ свойства SaveDialog1.Filterlndex. ¬ заключительной части процедуры оператор Memo1.Lines.SaveToFile(FName); используетс€ дл€ записи в файл содержимого свойства Lines объекта Memo1.

—охраните, откомпилируйте и запустите на выполнение созданное приложение. ¬ведите текст в окне приложени€ и щелкните мышью на кнопке —охранить. Ѕудет открыто диалоговое окно —охранить текстовый файл.

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

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

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


 
     
   
 


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

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

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

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

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


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

 


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