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










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

 

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

”пражнение 2. —оздайте приложение, открывающее текстовый файл дл€ чтени€ и считывающее из него текст в окно Memo. ѕеред открытием файла следует проверить его наличие; в случае отсутстви€ файла должно выводитьс€ соответствующее сообщение.

—оздайте форму и задайте дл€ ее свойства Caption значение Ђ„тение текста из файла в окно Memoї. Ќа форме Form1 разместите компоненты Memo1, Label1 и Button1, задайте значени€ дл€ свойств Label1.Caption Ц Ђ“екст из файлаї, Button1.Caption Ц Ђѕрочитать текст из файлаї. ƒл€ удалени€ текста Memo1 из окна компонента Memo1 выберите в окне »нспектора объектов объект Memo1, затем на странице —войства произведите двойной щелчок на поле значени€ Strings свойства Lines дл€ формировани€ и редактировани€ текста. ѕосле этого в окне String List Editor удалите текст Memo1 и щелкните мышью на кнопке ќ .

ƒл€ обеспечени€ возможности просмотра в окне Memol длинных текстов с использованием вертикальной полосы прокрутки в окне »нспектора объектов выберите объект Memol и на странице —войства установите дл€ свойства ScroLLBars значение ssVertical. ¬ыровн€йте компоненты и зафиксируйте их положение на форме.

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

procedure TForm1.Button1Click(Sender: TObject);
var
F:TextFile; {описание файловой переменной}
Ch : Char; {описание переменной, в которую будет считыватьс€ символ из файла}
begin
AssignFile(F,'textl.txt'); {св€зь файловой переменной с файлом на диске}
{$1-} {директива компил€тора: отключить проверку ошибок ввода вывода}
Reset(F); {открыть файл дл€ чтени€}
{$1+}
if IOResult = 0 then begin {если операци€ открыть файл выполнена успешно}
while not Eof(f) do {пока не конец файла}
begin
Read(F,Ch); {прочитать из файла символ}
Memo1.Text:=Memo1.Text+Ch; {вывести символ в поле Memol}
end;
CloseFile(F); {закрыть файл}
end
else {IOResuR<>0 - операци€ открыть файл не выполнена}
ShowMessage('Ќет такого файла');
End;

 ак видно из текста процедуры, после св€зывани€ файловой переменной с именем файла при помощи специальной директивы компил€тора отключаетс€ контроль ошибок ввода-вывода дл€ того, чтобы проверить функцией IOResult успешность операции. ¬ случае успешности операции открыти€ файла на чтение производитс€ чтение файла по одному символу и вывод его в окно Memo1. ”словием прекращени€ чтени€ из файла €вл€етс€ достижение конца файла (Eof(f)=True). ѕосле этого файл закрываетс€. ≈сли открыть файл не удаетс€, то IOResult возвращает значение, отличное от нул€, при этом в отдельном окне выводитс€ соответствующее сообщение.

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

«акройте окно приложени€.
 
<< {SITELINK-S211}1{/SITELINK}, 2, {SITELINK-S213}3{/SITELINK}, {SITELINK-S214}4{/SITELINK}, {SITELINK-S215}5{/SITELINK} >>

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

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


 
     
   
 


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

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

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

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

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


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

 


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