Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС 2017
выпущен 15 марта!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Чтение и запись файлов

1) Направление выходного потока вашей программы в файл.
2) Направление выходного потока вашей программы на принтер.
3) Чтение из входного файла.

Направление выходного потока вашей программы в файл

...часто мои профессора, чтобы убедиться в моей честности и поверить в то, что программа создана моими руками, требуют ее полный листинг или упоминания обо мне в качестве одного из авторов. Далее они хотят, чтобы все генерируемые программой данные выводились в файл. Но как это сделать на Delphi или на простом Паскале???

Просто в Delphi ....


 program CrtApp;
 uses WinCrt;
 var outfile: TextFile;
 begin
 AssignFile(outfile, 'c:\outfile.txt');
 Rewrite(outfile);
 writeln(outfile, 'Привет из Delphi');
 writeln(outfile, 'Моя программа работает, и выводит ' +
 'данный текст, чтобы доказать это...');
 CloseFile(outfile);
 end.
 

Просто в Паскале.....


 Program HelloWorld;
 var
 outfile: text;
 begin
 assign(outfile, 'c:\output.txt');
 rewrite(outfile);
 writeln(outfile, 'Здравствуй, мир');
 writeln(outfile, 'Моя программа работает, и выводит
 данный текст, чтобы доказать это...');
 close(outfile);
 end.
 

Направление выходного потока вашей программы на принтер

В некоторых случаях может возникнуть необходимость печатать генерируемые программой данные непосредственно на принтер. Вот как это можно сделать:

В Delphi ...


 program CrtApp;
 uses WinCrt;
 var outfile: TextFile;
 begin
 assignfile(outfile, 'LPT1');
 rewrite(outfile);
 writeln(outfile, 'Привет из Delphi');
 writeln(outfile, 'Моя программа работает, и выводит ' +
 'данный текст, чтобы доказать это...');
 closefile(outfile);
 end.
 

В Паскале ...


 Program HelloWorld;
 var
 outfile: text;
 begin
 assign(outfile, 'LPT1');
 rewrite(outfile);
 writeln(outfile, 'Здравствуй, мир');
 writeln(outfile, 'Моя программа работает, и выводит
 данный текст, чтобы доказать это...');
 close(outfile);
 end.
 

Чтение из входного файла

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

В Delphi ...


 program CrtApp;
 uses WinCrt;
 var
 infile, outfile: TextFile;
 num_lines, x: integer;
 line: string;
 begin
 assignfile(infile, 'C:\INFILE.TXT');
 assignfile(outfile, 'C:\OUTFILE.TXT');
 reset(infile);  {перемещаем указатель}
 {в начало файла.}
 rewrite(outfile);  {очищаем содержимое файла}
 readln(infile, num_lines);
 for x:= 1 to num_lines do
 begin
 readln(infile, line);
 writeln(outfile, line);
 end;
 closefile(infile);
 closefile(outfile);
 end.
 

В Паскале ...


 Program ReadInput;
 var
 infile, outfile: text;
 num_lines, x: integer;
 line: string;
 begin
 assign(infile, 'C:\INFILE.TXT');
 assign(outfile, 'C:\OUTFILE.TXT');
 reset(infile);  {перемещаем указатель}
 {в начало файла.}
 rewrite(outfile);  {очищаем содержимое файла}
 readln(infile, num_lines);
 for x:= 1 to num_lines do
 begin
 readln(infile, line);
 writeln(outfile, line);
 end;
 close(infile);
 close(outfile);
 end.
 

{НАЧАЛО INFILE.TXT}
 2
 Здравствуй, мир
 Моя программа работает, и этот текст доказательство этому.
 {КОНЕЦ INFILE.TXT}
Для получения дополнительной информации обратитесь к Руководству Разработчика. Ознакомьтесь с описанием функций AssignFile, Assign, Reset, Rewrite, readln, writeln, Close, CloseFile.

Данный документ был написан автором под впечатлением просьбы умоляющего студента и чувством симпатии к нему, поскольку он сам недавно сидел на студенческой скамье..!!




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS