Программирование в среде Delphi. Часть 3. Файлы. Садовская О.Б. - 8 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

8
При работе с текстовыми файлами используются логические
функции eof(<файловая переменная>) и eoln(<файловая переменная >).
Функция eof возвращает значение true, если достигнут конец файла ,
и false в противном случае. Функция eoln возвращает значение true,
если достигнут конец строки в текстовом файле, и false в противном
случае.
Текстовый файл можно создать в среде Delphi, выбрав в меню
команду File„New„Text. В открывшемся окне нужно набрать содер-
жимое текстового файла и сохранить файл с помощью команды
File„Save. Текстовый файл можно также создать программным спосо-
бом . Рассмотрим несколько возможных вариантов программы для соз-
дания текстового файла .
Задача 1. Создать текстовый файл и заполнить его информацией,
введённой в редакторе Memo. Окно работающего приложения :
Создание текстового файла с использованием метода SaveToFile:
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.SaveToFile('c:\Files\z1.txt');
end;
Создание текстового файла без использования метода SaveToFile:
procedure TForm1.Button1Click(Sender: TObject);
var f : textfile; n, i : integer;
begin
assignfile(f, 'c:\Files\z1.txt');
rewrite(f);
n:=memo1.Lines.Count;
for i:=0 to n-1 do writeln(f, memo1.lines.strings[i]);
closefile(f);
end;
Приведённый здесь текст программы содержит имя создаваемого
файла (c:\Files\z1.txt) . Поэтому, чтобы создать другой файл , нужно 
                                            8
       П ри ра б от е с текст овым и ф а йла м и использу ю т ся логические
ф у н кции eof(<ф а йлова я перем ен н а я >) и eoln(<ф а йлова я перем ен н а я >).
Ф у н кция eof возвра ща ет зн а чен ие true, если д остигн у т кон ец ф а йла ,
и false в противн ом слу ча е. Ф у н кция eoln возвра ща ет зн а чен ие true,
если д остигн у т кон ец ст роки в т екст овом ф а йле, и false в противн ом
слу ча е.
       Т екст овый ф а йл м ож н о созд а т ь в сред е Delphi, выб ра в в м ен ю
ком а н д у File„New„Text. В от крывш ем ся окн е н у ж н о н а б ра т ь сод ер-
ж им ое т екст ового ф а йла и сохра н ит ь ф а йл с пом ощью ком а н д ы
File„Save. Т екст овый ф а йл м ож н о т а кж е созд а т ь програ м м н ым спосо-
б ом . Ра ссм отрим н есколько возм ож н ых ва риа н тов програ м м ы д ля соз-
д а н ия т екст ового ф а йла .
       За д а ча 1. Созд а т ь т екст овый ф а йл и за полн ит ь его ин ф орм а цией,
введ ён н ой в ред а кторе Memo. Окн о ра б от а ю щего прилож ен ия :




     Созд а н ие т екст ового ф а йла с использова н ием м етод а SaveToFile:
     procedure TForm1.Button1Click(Sender: TObject);
     begin
     memo1.Lines.SaveToFile('c:\Files\z1.txt');
     end;

      Созд а н ие т екст ового ф а йла б ез использова н ия м етод а SaveToFile:
      procedure TForm1.Button1Click(Sender: TObject);
      var f : textfile; n, i : integer;
      begin
      assignfile(f, 'c:\Files\z1.txt');
      rewrite(f);
      n:=memo1.Lines.Count;
      for i:=0 to n-1 do writeln(f, memo1.lines.strings[i]);
      closefile(f);
      end;
      П ривед ён н ый зд есь т екст програ м м ы сод ерж ит им я созд а ва ем ого
ф а йла (c:\Files\z1.txt) . П оэ т ом у , чт об ы созд а т ь д ру гой ф а йл, н у ж н о

Страницы