Задача 15

• Составить и оформить в виде отдельного модуля подпрограмму подсчета в текстовом файле количества повторений символа (х)

• Формальные параметры: fl : Tfl; x:char

• Составить программу в которой c помощью компонента SaveDialog организован доступ к файлу, обращение к подпрограмме с подсчетом количества открывающихся и закрывающихся скобок. В качестве файла взять любую программу с расширением .pas

var

Form1: TForm1;

FNT:String;

fl:TFl;

Implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

edit1.Clear; Edit2.Clear;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

If SaveDialog1.Execute then

begin

FNT:=SaveDialog1.FileName;

AssignFile(fl,fnt);

reset(fl);

end;

Edit1.Text:=IntToStr(Resh(fl,'('));

seek(fl,0);

Edit2.Text:=IntToStr(Resh(fl,')'));

closeFile(fl);

end;

end.

unit Unit2;

Interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

Type TFl=File of char;

Function Resh(Var Fl:Tfl; x:char):integer;

Implementation

Function Resh;

Var n:integer; ch:char;

begin

n:=0;

While not(Eof(fl)) do

begin

read(fl,ch);

if Ch=x then n:=n+1;

end;

result:=n;

end;

end.