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










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

{LTS}

 

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

”пражнение 1. —оздайте приложение, которое создает текстовый файл text1.txt и записывает в него текст, введенный пользователем в окно Edit, после чего закрывает файл.

—оздайте форму и задайте дл€ ее свойства Caption значение Ђ—оздание файла и вывод в него текста из Editї. –азместите на форме компоненты Editl, Label1 и Button1. «адайте значени€ дл€ свойств Labell. Caption Ц Ђ¬ведите текстї, Buttonl.Caption Ц Ђ—охранитьї. ”далите текст Edit1 из соответствующего компонента. ¬ыровн€йте компоненты и зафиксируйте их положение на форме.

—охраните файлы модул€ (под именем main) и проекта (под именем Text-EditFile) в папке ќбработка текстовых файлов. ќткомпилируйте приложение и запустите его на выполнение. ”бедитесь в том, что приложение позвол€ет пользователю вводить текст в окно Edit1. ƒл€ того чтобы на диске создавалс€ текстовый файл, и текст из окна Edit1 записывалс€ в него, создайте процедуру обработчика событи€ щелчка мышью на кнопке Button1 Ђ—охранитьї и в ней реализуйте создание нового файла и запись в него текста. ƒл€ создани€ процедуры обработчика щелчка мышью на кнопке Button1 выберите в окне »нспектора объектов объект Button1, затем на странице —обытий произведите двойной щелчок на пустом поле списка в событии OnCLick. ѕосле этого в окне –едактора кода будет сгенерирована заготовка процедуры обработчика событи€ procedure TForm1.Button1CLick(Sender: TObject);.

ƒополните текст процедуры следующим кодом:

var
f:TextFile; {описание файловой переменной}
begin
AssignFile(f,'text1.txt'); {св€зь файловой переменной с файлом}
Rewrite(f); {создать новый файл}
Writeln(f, Edit1.Text); {записать в файл}
CloseFile(f); {закрыть файл}
end;

 ак видно из текста процедуры, знакомого вам по аналогичной теме из первой части книги об использовании среды программировани€ Turbo Pascal, в начале процедуры файлова€ переменна€ f св€зываетс€ с именем файла text1.txt, а затем на диске создаетс€ новый файл с этим именем. ѕосле этого выполн€етс€ запись значени€ свойства Text объекта Edit1, и файл закрываетс€. —охраните файл модул€ под именем Main, файл проекта Ц под именем TextEditFile1, откомпилируйте программу и запустите ее на выполнение.

¬ окне приложени€ введите текст и щелкните мышью на кнопке —охранить. «акройте окно приложени€ и откройте в окне ѕроводника Windows папку ќбработка текстовых файлов, в которой сохранены файлы проекта. ¬ списке файлов этой папки вы увидите и вновь созданный файл text1.txt.

ƒважды щелкните левой кнопкой мыши на имени файла text1.txt. Ѕудет открыто окно редактора Ѕлокнот с этим файлом. ”бедитесь, что это Ц тот самый текст, который вы только что вводили в окне приложени€. «акройте окна редактора Ѕлокнот и ѕроводника Windows.
 
<< 1, {SITELINK-S212}2{/SITELINK}, {SITELINK-S213}3{/SITELINK}, {SITELINK-S214}4{/SITELINK}, {SITELINK-S215}5{/SITELINK} >>

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

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


 
     
   
 


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

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

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

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

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


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

 


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