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










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

 

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

”пражнение 3. —оздайте приложение, открывающее текстовый файл дл€ дополнени€ и затем добавл€ющее в него введенный текст.

—оздайте форму и задайте дл€ ее свойства Caption значение Ђƒобавление текста в файлї. Ќа форме Forml разместите компоненты Button1, Memo1, Label1, присвойте значени€ свойствам Label1.Caption Ц Ђ“екст из файлаї, Button1.Caption Ц Ђѕрочитать текст из файлаї. ѕод Label1 разместите Label2 и задайте дл€ свойства Label2.Caption значение Ђƒобавл€емый текстї. Ќиже Label2 разместите на форме Edit1. ѕод объектом Edit1 разместите кнопку Button2 и задайте дл€ свойства Button1.Caption значение Ђƒобавить текст в файлї. ”далите текст из окон компонентов Memo1, Edit1. ƒл€ обеспечени€ возможности просмотра в окне Memo1 длинных текстов с использованием вертикальной полосы прокрутки в окне »нспектора объектов выберите объект Memo1 и на странице —войства установите дл€ свойства ScrollBars значение ssVertical. ¬ыровн€йте компоненты и зафиксируйте их положение на форме.

—оздайте обработчики нажатий кнопок ѕрочитать текст из файла и ƒобавить текст в файл. ѕроцедура обработки событи€ нажати€ кнопки ѕрочитать текст из файла была описана в предыдущем упражнении. ƒл€ создани€ процедуры обработчика событи€ нажати€ кнопки ƒобавить текст в файл выберите в окне »нспектора объектов объект Button2, на странице —обыти€ произведите двойной щелчок на пустом поле списка в событии OnClick. ѕосле этого в окне –едактора кода будет сгенерирована заготовка процедуры обработчика событи€. „тобы эта процедура выполн€ла открытие существующего текстового файла и добавл€ла в него текст, €вл€ющийс€ значением свойства Text объекта Edit1, отредактируйте текст процедуры следующим образом:

procedure TForm1.Button2Click(Sender: TObject);
var
f:TextFile; {описание файловой переменной}
begin
AssignFile(f,'textl.txt'):
Append(f); {открыть существующий файл дл€ добавлени€ в его конец}
Writeln(f,Editl.Text); {записать в файл значение свойства Text объекта Editl}
CloseFile(f); {закрыть файл}
end;

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

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

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

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


 
     
   
 


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

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

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

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

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


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

 


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