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










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

{LTS}

 

–абота с файлами

ѕример. –азработать приложение, которое создает текстовый файл с расширением .txt (путь к файлу указываетс€ в окне ввода). ¬ данный файл записываетс€ текст, введенный пользователем с помощью многострочного редактора Memo (кнопка Ђ—охранитьї), а также предусмотреть возможность добавлени€ данных в конец существующего файла (кнопка Ђƒобавитьї). Ќеобходимо также предусмотреть просмотр содержимого файла, путь которого указываетс€ в поле Edit (кнопка Ђќткрытьї). ѕри выполнении данного задани€ необходимо также использовать компоненты OpenDialog и SaveDialog Ц дл€ открыти€ и сохранени€ файлов.
 

‘ункции и процедуры дл€ работы с файлами:

1. ќткрытие файла дл€ записи

Ц перезапись (запись нового файла поверх существующего или создание нового файла) Ц используетс€ процедура

rewrite(файлова€_переменна€)

Ц добавление в конец файла Ц используетс€ процедура

append(файлова€_переменна€)

2. «апись в файл

Write(файлова€_переменна€, список_переменных)

Writeln(файлова€_переменна€, список_переменных)

–азличие между инструкци€ми в том, что инструкци€ writeln после вывода всех значений, записывает в файл символ Ђнова€ строкаї.

3. «акрытие файла. ѕеред завершением работы все открытые файлы необходимо закрыть с помощью процедуры

CloseFile (файлова€_переменна€)

4. ќткрытие файла дл€ чтени€. »спользуетс€ процедура Reset(файлова€_переменна€)

5. „тение данных из файла

read(файлова€_переменна€, список_переменных)

readln(файлова€_переменна€, список_переменных)

ќтличие между этими процедурами в том, что при вызове инструкции readln указатель чтени€ из файла автоматически перемещаетс€ в начало следующей строки файла.

6. ќпределение конца файла. »спользуетс€ функци€ EOF(файлова€_переменна€). «начение функции равно false, если прочитанный элемент данных не €вл€етс€ последним в файле. ≈сли прочитанный элемент файла €вл€етс€ последним, то значение EOF равно true.

While not eof(f) do begin Е end;

ѕримеры некоторых процедур:

procedure TForm2.Button1Click(Sender: TObject);

begin

// нопка сохранить

fname:=Edit1.Text;

AssignFile(f,fname);

rewrite(f);

For i:=1 to Memo1.lines.Count do

writeln(f, memo1.lines[i-1]);

closefile(f);

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

// нопка добавить в конец файла

fname:=Edit1.Text;

AssignFile(f,fname);

append(f);

writeln(f, memo1.text);

closefile(f);

end;


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

ѕрограммы на Delphi ”правл€ющие конструкции среды программировани€ Delphi 7 –абота с классами в €зыке визуального программировани€ Delphi 7 ќбработка исключений в Delphi 7 –абота с одномерными и двумерными массивами –абота с базами данных в Delphi ’арактеристика программного продукта ∆изненный цикл программных продуктов ќбща€ характеристика CASE-средств “рансл€торы и их виды 


 
     
   
 


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

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

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

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

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


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

 


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