Пример 7.1. Работа с типизированным файлом

Дано: файл F, компоненты которого являются целыми числами. Найти количество нечетных чисел в данном файле.

Вид компонентов на форме:

Программа обработки щелчка на кнопке "Создать файл"

procedure TForm1.Button1Click(Sender: TObject);

var f: textfile; i: integer;

begin assignfile(f,'c:\1\Frr.txt'); rewrite(f);

for i:=1 to 39 do writeln(f,IntToStr(i));

Closefile(f); end;

Программа обработки щелчка на кнопке "Вычислить"

procedure TForm1.Button2Click(Sender: TObject);

var f: textfile; ch:string; i,s: integer;

Begin

Label2.Caption:='нечетныe числa:';

assignfile(f,'c:\1\Frr.txt'); reset(f); s:=0;