Unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Buttons, ComCtrls, Menus, ImgList, ExtCtrls, jpeg,

ToolWin, ActnMan, ActnCtrls, ActnMenus, ShellAPI,

Math;

type

TForm1 = class(TForm)

Memo3: TMemo; Label1: TLabel; Memo4: TMemo; Memo5: TMemo; Memo6: TMemo; Label2: TLabel;

Label3: TLabel; Memo8: TMemo; Memo9: TMemo;

Label4: TLabel; Memo11: TMemo; Label8: TLabel; Memo13: TMemo; Memo14: TMemo; Label10: TLabel; MainMenu1: TMainMenu;

N1: TMenuItem; N2: TMenuItem; Cleartext1: TMenuItem; N3: TMenuItem;

Memo1: TMemo;

N8: TMenuItem;

N10: TMenuItem;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

N4: TMenuItem;

N6: TMenuItem;

N5: TMenuItem;

N7: TMenuItem;

procedure Cleartext1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

private

{ Private declarations }

public

{ Public declarations }

end;

type TWord = record {Тип слово - содержит строку и кол-во встреченных раз}

Count: Word;

Value: String;

end;

const N = 10000; {max-ое кол-во слов в предложении (для частоты) }

Digits: set of char=['0'..'9'];

var

Form1: TForm1;

f: text;

implementation

uses Unit5, Unit6, Unit7, Unit8, Unit9;

{$R *.dfm}

{загрузка текста}

procedure TForm1.N2Click(Sender: TObject);

var buf: string;

f_name: string;

begin

if OpenDialog1.Execute and fileexists(opendialog1.filename) then

begin

Memo1.Clear;

Memo1.Enabled: =true;

f_name: =OpenDialog1.FileName;

assignfile(f, f_name);

reset(f);

while not EOF(f) do

begin

readln(f, buf);

if buf < > '' then Memo1.Lines.add(buf);

end;

ShowMessage(' Текст загружен ');

closefile(f);

end

else messageDlg('Текст не загружен', mtInformation, [mbok], 0);

end;

{очистка текста}

procedure TForm1.Cleartext1Click(Sender: TObject);

var i: integer;

begin

for i: =0 to Memo1.Lines.Count -1 do

Memo1.Lines.Delete(Memo1.Lines.Count -1);

Memo1.Enabled: =false;

Form8.Memo1.Clear;

Form8.Memo2.Clear;

Form8.BitBtn1.Enabled: =true;

Form8.BitBtn1.Caption: ='Анализ текста';

end;

{Частичный разбор предложения}

procedure TForm1.N8Click(Sender: TObject);

begin

if Memo1.Text < > '' then

begin

Form7.Visible: =true;

Form7.SetFocus;

end

else messageDlg('Загрузите текстовый файл', mtInformation, [mbok], 0);

end;

procedure TForm1.N10Click(Sender: TObject);

begin

if Memo1.Text < > '' then

begin

Form8.Visible: =true;

Form8.SetFocus;

end

else messageDlg('Загрузите текстовый файл', mtInformation, [mbok], 0);

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Application.Initialize;

Form6: = TForm6.Create(Application);

Form6.Show;

Form1.Visible: =false;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

if Memo1.Text < > '' then

begin

Form9.Visible: =true;

Form9.SetFocus;

end

else messageDlg('Загрузите текстовый файл', mtInformation, [mbok], 0);

end;

{Вызов справки}

procedure TForm1.N7Click(Sender: TObject);

begin

winhelp(self.Handle, 'хелп.hlp', help_contents, 0);

end;

{Горячие клавиши}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if Memo1.Text < > '' then

begin

if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then

begin

Form8.Visible: =true;

Form8.SetFocus;

end;

if (ssCtrl in Shift) and (chr(Key) in ['C', 'c']) then

begin

Form7.Visible: =true;

Form7.SetFocus;

end;

if (ssCtrl in Shift) and (chr(Key) in ['S', 's']) then

begin

Form9.Visible: =true;

Form9.SetFocus;

end;

end

else messageDlg('Загрузите текстовый файл', mtInformation, [mbok], 0);

end;

end.