![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
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.
|