From 1f30285efb32c833218e3600b639930cce3cb518 Mon Sep 17 00:00:00 2001
From: Simon's Cat <777petruh@mail.ru>
Date: Fri, 22 Mar 2024 23:50:54 +0900
Subject: [PATCH] =?UTF-8?q?=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=BB=D0=B5?=
 =?UTF-8?q?=D0=BD=D0=B8=D0=B5=20=D0=BD=D0=BE=D0=B2=D1=8B=D1=85=20=D1=84?=
 =?UTF-8?q?=D1=83=D0=BD=D0=BA=D1=86=D0=B8=D0=B9?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Добавлена загрузка doc
Добавлено удаление слов
---
 Project1.dproj                                |   2 +-
 Unit1.dfm                                     |  73 +++++++++++--
 Unit1.pas                                     |  97 ++++++++++++++++--
 Win32/Debug/New                               | Bin 12288 -> 49152 bytes
 ...0\274\320\265\320\275\320\270\321\217.txt" |   2 +-
 5 files changed, 158 insertions(+), 16 deletions(-)

diff --git a/Project1.dproj b/Project1.dproj
index 7eaba75..1bcf491 100644
--- a/Project1.dproj
+++ b/Project1.dproj
@@ -4,7 +4,7 @@
         <ProjectVersion>20.1</ProjectVersion>
         <FrameworkType>VCL</FrameworkType>
         <Base>True</Base>
-        <Config Condition="'$(Config)'==''">Debug</Config>
+        <Config Condition="'$(Config)'==''">Release</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
         <TargetedPlatforms>1</TargetedPlatforms>
         <AppType>Application</AppType>
diff --git a/Unit1.dfm b/Unit1.dfm
index f6c31ba..5fc6e2b 100644
--- a/Unit1.dfm
+++ b/Unit1.dfm
@@ -221,32 +221,48 @@ object Form1: TForm1
           AlignWithMargins = True
           Left = 4
           Top = 4
-          Width = 185
+          Width = 158
           Height = 25
           Align = alLeft
           Caption = #1055#1086#1083#1091#1095#1080#1090#1100' '#1074#1089#1077' '#1076#1072#1085#1085#1099#1077
           TabOrder = 0
           OnClick = Button9Click
+          ExplicitLeft = 195
         end
         object DBNavigator1: TDBNavigator
-          Left = 413
+          Left = 469
           Top = 1
           Width = 240
           Height = 31
           DataSource = DataSource1
           Align = alLeft
           TabOrder = 1
+          ExplicitLeft = 472
+          ExplicitTop = -4
         end
         object CheckBox1: TCheckBox
-          Left = 192
+          Left = 165
           Top = 1
-          Width = 221
+          Width = 140
           Height = 31
           Align = alLeft
           Caption = #1074#1082#1083'. '#1088#1077#1076#1072#1082#1090#1080#1088'. '#1089#1090#1088#1086#1082
           TabOrder = 2
           OnClick = CheckBox1Click
         end
+        object Button10: TButton
+          AlignWithMargins = True
+          Left = 308
+          Top = 4
+          Width = 158
+          Height = 25
+          Align = alLeft
+          Caption = #1044#1086#1073#1072#1074#1080#1090#1100' Word '#1074' '#1073#1072#1079#1091
+          TabOrder = 3
+          Visible = False
+          OnClick = Button10Click
+          ExplicitLeft = 428
+        end
       end
       object DBRichEdit1: TDBRichEdit
         Left = 0
@@ -327,6 +343,7 @@ object Form1: TForm1
     Align = alRight
     Caption = 'Panel9'
     TabOrder = 2
+    Visible = False
     object Button6: TButton
       Left = 1
       Top = 26
@@ -419,7 +436,7 @@ object Form1: TForm1
     Connection = FDConnection1
     SQL.Strings = (
       'select * from main where Text_for_seach like :S1')
-    Left = 469
+    Left = 389
     Top = 400
     ParamData = <
       item
@@ -432,6 +449,7 @@ object Form1: TForm1
     Top = 312
     object N1: TMenuItem
       Caption = #1059#1076#1072#1083#1080#1090#1100' '#1089#1083#1086#1074#1086' '#1080#1079' '#1087#1088#1086#1074#1077#1088#1082#1080' '#1074' '#1073#1072#1079#1077
+      OnClick = N1Click
     end
   end
   object DataSource1: TDataSource
@@ -445,7 +463,50 @@ object Form1: TForm1
     Connection = FDConnection1
     SQL.Strings = (
       'select * from main ')
-    Left = 541
+    Left = 461
+    Top = 400
+  end
+  object OpenDialog1: TOpenDialog
+    Filter = #1060#1072#1081#1083#1099' Word|*.doc*'
+    Left = 837
+    Top = 392
+  end
+  object FDQuery3: TFDQuery
+    BeforePost = FDQuery2BeforePost
+    FieldOptions.BlobDisplayValue = dvFullText
+    Connection = FDConnection1
+    SQL.Strings = (
+      'insert into main values (:s1,:s2,:s3) ')
+    Left = 533
+    Top = 400
+    ParamData = <
+      item
+        Name = 'S1'
+        ParamType = ptInput
+      end
+      item
+        Name = 'S2'
+        ParamType = ptInput
+      end
+      item
+        Name = 'S3'
+        ParamType = ptInput
+      end>
+  end
+  object FDQuery4: TFDQuery
+    BeforePost = FDQuery2BeforePost
+    FieldOptions.BlobDisplayValue = dvFullText
+    Connection = FDConnection1
+    SQL.Strings = (
+      
+        'UPDATE main SET Text_for_seach = REPLACE (Text_for_seach, :S1, '#39 +
+        #39');')
+    Left = 605
     Top = 400
+    ParamData = <
+      item
+        Name = 'S1'
+        ParamType = ptInput
+      end>
   end
 end
diff --git a/Unit1.pas b/Unit1.pas
index 7f6b951..11234ad 100644
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -11,7 +11,7 @@ interface
   FireDAC.DApt.Intf, FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet,
   FireDAC.Comp.Client, FireDAC.Phys.SQLite, FireDAC.Phys.SQLiteDef,
   FireDAC.Stan.ExprFuncs, FireDAC.Phys.SQLiteWrapper.Stat, Vcl.Menus, Vcl.Grids,
-  Vcl.DBGrids, Vcl.DBCtrls, Vcl.Buttons;
+  Vcl.DBGrids, Vcl.DBCtrls, Vcl.Buttons,ComObj;
 
 type
   TForm1 = class(TForm)
@@ -56,6 +56,10 @@   TForm1 = class(TForm)
     Panel1: TPanel;
     ProgressBar1: TProgressBar;
     Button7: TButton;
+    Button10: TButton;
+    OpenDialog1: TOpenDialog;
+    FDQuery3: TFDQuery;
+    FDQuery4: TFDQuery;
     procedure FormResize(Sender: TObject);
     Function Find_in_DB(FindString:string; ADD_in_result:boolean ):boolean;
     procedure Button1Click(Sender: TObject);
@@ -76,6 +80,8 @@   TForm1 = class(TForm)
     procedure FDQuery2BeforePost(DataSet: TDataSet);
     procedure CheckBox1Click(Sender: TObject);
     procedure CheckBox2Click(Sender: TObject);
+    procedure Button10Click(Sender: TObject);
+    procedure N1Click(Sender: TObject);
   private
     { Private declarations }
   public
@@ -160,7 +166,7 @@ implementation
 var Znaki:string;
 i:integer;
 begin
-Znaki:='!?:;".,<>—…0123456789-−«#»%()';
+Znaki:='!?:;".,<>—…0123456789-−«#»%()\/';
 ProgBar.Position:=0;
 ProgBar.Max:=length(Znaki);
 
@@ -190,7 +196,7 @@ implementation
 SpisokSort.Free;
 
 T:=Tstringlist.Create;
-T.LoadFromFile('Союзы.txt');
+T.LoadFromFile(ExtractFilePath(Application.ExeName)+'Союзы.txt');
 ProgBar.Position:=0;
 ProgBar.Max:=t.Count-1;
 for i := 0 to t.Count-1 do
@@ -198,7 +204,7 @@ implementation
   s:=StringReplace(s,#13#10+T[i]+#13#10,#13#10,[rfReplaceAll, rfIgnoreCase]);
   ProgBar.Position:=i;
   end;
-T.LoadFromFile('Предлоги.txt');
+T.LoadFromFile(ExtractFilePath(Application.ExeName)+'Предлоги.txt');
 ProgBar.Position:=0;
 ProgBar.Max:=t.Count-1;
 for i := 0 to t.Count-1 do
@@ -206,7 +212,7 @@ implementation
   s:=StringReplace(s,#13#10+T[i]+#13#10,#13#10,[rfReplaceAll, rfIgnoreCase]);
   ProgBar.Position:=i;
   end;
-T.LoadFromFile('Местоимения.txt');
+T.LoadFromFile(ExtractFilePath(Application.ExeName)+'Местоимения.txt');
 ProgBar.Position:=0;
 ProgBar.Max:=t.Count-1;
 for i := 0 to t.Count-1 do
@@ -279,12 +285,13 @@ procedure TForm1.FDQuery2BeforePost(DataSet: TDataSet);
     FDQuery1.First;
     while not FDQuery1.eof do
     begin
-
+      s:='';
       Memos[j]:=TRichEdit.Create(ScrollBox1);
       Memos[j].Parent:=ScrollBox1;
       Memos[j].Align:=alTop;
       Memos[j].ScrollBars:=ssVertical;
-      Memos[j].Lines.Text:=FDQuery1.FieldByName('Text_All').AsString;
+      If FDQuery1.FieldByName('punkt').AsString.Length>0 then s:='▒▒▒ '+FDQuery1.FieldByName('punkt').AsString+' ▒▒▒'+#10;
+      Memos[j].Lines.Text:=s+FDQuery1.FieldByName('Text_All').AsString;
       Memos[j].OnSelectionChange:=RichEdit1SelectionChange;
       Memos[j].PopupMenu:=PopupMenu1;
       Memos[j].StyleElements:=[seClient,seBorder];
@@ -306,6 +313,73 @@ procedure TForm1.FDQuery2BeforePost(DataSet: TDataSet);
 
 end;
 
+procedure TForm1.Button10Click(Sender: TObject);
+var  Word,CurTable:OleVariant;
+ s:string;
+begin
+If opendialog1.Execute then
+  begin
+      StatusBar1.Panels[2].Text:='Начало загрузки';
+      Word:=CreateOleObject('Word.Application'); // создаём приложение Word
+      Word.Visible:=false; // делаем приложение видимым
+      Word.DisplayAlerts := false;
+      try
+        //Открываем ворд
+            Word.Documents.Open(opendialog1.FileName);
+          ///Получить число таблиц таблицу
+         var tablecount:integer:= Word.ActiveDocument.Tables.Count;
+         If tablecount=0 then
+             begin
+             ///Получить весь текст
+             s:=Word.ActiveDocument.range.text;
+             //s:=s.Replace(#13,'');
+             //s:=s.Replace(#1,'');
+             FDQuery3.ParamByname('S1').DataType := ftString;
+             FDQuery3.ParamByname('S1').Clear;
+             FDQuery3.ParamByname('S2').AsString:=ansilowercase(s);
+             FDQuery3.ParamByname('S3').AsString:=ansilowercase(s);
+             FDQuery3.ExecSQL;
+             end
+             else
+             begin
+              for var i := 1 to tablecount do
+              begin
+              s:=Word.ActiveDocument.range.text;
+               CurTable:=Word.ActiveDocument.Tables.Item(i);
+               var iCols:integer := CurTable.Rows.Count;
+               //var iRows:integer := CurTable.Columns.Count;
+
+               for var j := 1 to iCols do
+               begin
+                  try
+                   FDQuery3.ParamByname('S1').AsString:=ansilowercase(CurTable.cell(j,1).range.text);
+                   FDQuery3.ParamByname('S2').AsString:=ansilowercase(CurTable.cell(j,2).range.text);
+                   FDQuery3.ParamByname('S3').AsString:=ansilowercase(CurTable.cell(j,2).range.text);
+                   FDQuery3.ExecSQL;
+                  except
+
+                  end;
+               end;
+
+
+              end;
+
+             end;
+
+
+
+
+      finally
+         Word.ActiveDocument.close;
+         Word.Application.Quit;
+         StatusBar1.Panels[2].Text:='Готово';
+         Showmessage('Готово');
+      end;
+      Word := Unassigned;
+
+  end;
+end;
+
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 
@@ -503,7 +577,7 @@ procedure TForm1.Button8Click(Sender: TObject);
 
 procedure TForm1.Button9Click(Sender: TObject);
 begin
-
+FDQuery2.Close;
 FDQuery2.Open();
 DBRichEdit1.DataField:='Text_for_seach';
 DBRichEdit2.DataField:='Text_All';
@@ -512,6 +586,7 @@ procedure TForm1.Button9Click(Sender: TObject);
 procedure TForm1.CheckBox1Click(Sender: TObject);
 begin
 If CheckBox1.Checked then dbgrid1.Options := dbgrid1.Options + [dgEditing] else dbgrid1.Options := dbgrid1.Options - [dgEditing];
+If CheckBox1.Checked then button10.Visible:=CheckBox1.Checked else  button10.Visible:=CheckBox1.Checked;
 end;
 
 procedure TForm1.CheckBox2Click(Sender: TObject);
@@ -535,6 +610,12 @@ procedure TForm1.FormResize(Sender: TObject);
 Panel8.Width:=Form1.Width div 2;
 end;
 
+procedure TForm1.N1Click(Sender: TObject);
+begin
+FDQuery4.ParamByname('S1').AsString:=ansilowercase(RichEdit1.SelText);
+FDQuery4.ExecSQL;
+end;
+
 procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 var
diff --git a/Win32/Debug/New b/Win32/Debug/New
index 6ac85b370d04a07588886c0ffa72247550c4fa13..2901e62aba087d8a93e9ece886ee5682d55eb3a5 100644
GIT binary patch
literal 49152
zcmeHQTW?jz6}AbN)Qy!^QPihOrw?sf30noirBPKmt$3)EO1&VpeX<Vb7$0nWTJQ-M
z^})mmP(iVjKhalXFc>iA4>ZX>Z+)p+<thK65AFATYi94+`|NX$jc?c)2gmy|duGj=
zHS0bzzx&Mx^_f~_ym9Gbb*6Hx?^}KS{e2^qN?%{!N&LQn-*4jgHT?GDcRzmp5AS>Z
zoa`IEkPM<!|C@jB!@u|wF%U5jF%U5jF%U5jF%U5jF%U5jF%U5jF%U7(83VuXKlGiq
z-|oNh?V0M?soJlq^=ba@`^9fhzklX*<;?p(|KN0mPbxqBb#r=hrgG-=AI==EoT*)%
z8HH&-dbw5|n+PAiKQ*P>A00rO{crx4Eq?=lzUrUr|7FR4hx-qA25vXJ`Lb{S!M-mK
zeR(KZOjeT@t=VL?b)$8sl02;>kCTPgtz@b7QEP6n^)X&Q=S{MlJWUpcE8!CryMgDc
z$x;P3&ypn;#_uv8%;LLS$?|Xo70y}>t-0h`Yrb_81z7KMyqQO%_;La5-$<5Gy&7T>
zzIvQ2;v2TG*rDy^<O!QvK+*f?#cT!DJY)He(6UYRj^8{-;itG-1`gEXaN6Z$MHN_O
z570PK@B%n;^*=C}h&c3v?eYIh6=8D$x61^hk~{=L3^D2ux}4Pj+@N<4i64))_k3rp
z&SkvC6_A7Gfyrfn{1MtA<_zG<AbZVWY5gsEL9C%z_yqKL@Ybc*4!(8!z^(Jii=)@7
z<Mpw|<<Z)B?bL~pYt@NHV|c7_ad6;z^J@KiWAwxN#oDo>Bh|)~Jsz))H!n6WjMgTa
zr%sJbG-fVV>+aR1`c!l1T79BEQ$KQa<m}||rRLzkSaq^K$;Z>plgItTiRPvH=(*}-
z<4?`wCr9ejXB$^l_-uW;F+EzpT)R*^c`O9xYIC}Y**)4AuO2%dd~m5cSv%Jl8n0cc
z9ea0Vs(yJ!^<1gW3^h?{bE1Ci<jDC9#Ix0N)pO0EvHJPukrR37uhu7Oqm%XXjq%!v
zpsMq=YooPm&8v;GjiV<<R1>>3)fj7>tB&HM#=9rN7OvFBnpcME_@Z|7X!v3rHB2{0
zr)o2elSjh7O*XIBuQi6QRi_(Ae;oAfLT#pgzB+WRdA)fo!~dn)h2~gw=xXi5+Nq;K
z>GRDGtJiCzXPXn%6UR~g^tqbhv@z0X&P+8LlQw>>+aQYB);uU|F^;{X+`T#WmE6#O
zI=JuPTc3XS(*wziBjQI74_ELv<@dZ3<5_9V<N5))aPnAJs|m}J#W_}rJ7Z+4?&^8#
zuC7*-75)W*%_R?T^$0BLF_;wJl5JCX+{E=W5aG>)U$5W^*_mB~G!GlgBlrF&S#WoN
zL$KW!V_Z$1@?N5VB_JsXt*#70)JDeKnuEw$NS^SHZJ-V@OS{J%c)q@agmZmcV%^F8
z)*Z+MLcN$ghKTalWWbb#d?S{xI+xuOvTl3#5U@dFxI19MT>%&AQ`7~RmQmBPuwY-V
zpvGIOAHC!VSb4zDQF*~JP_KNAeDd5ws2(}YS&P7ejg*5$xJvtgyPyr>jO|kzx?ZA$
z(+7MXgh^l9CoJvDQsM%-yI?U(!dylNi|IJqn^ly&-}<Y{ExEs-1X7Cont~K%G~N(-
zs1JCt5{3t0N!UX<6OK0i5WRS^L^=ed(ga#_xSj(oqU{zTrhao<b+Z0vtvjTU0Qyzk
zFM<XL!&8h8-`k9UV0Yy){%FAoY++^5pmpy-4WKE|llva@pnLQ&cxH3zA=+UZqz<Fh
zd0@rbRqtG#&(#kPf#J|f<rNRsC0a?L#T|M>c&I|?8^ew-A*@L2N}iykgPOAp5M}oo
zmG<812^BlxGQhI6L=AG*x8xwB8cDq<@}bCwA|Hx;$Z@sp;zQr--~ZM-??4&KX-WPD
zX4315=Yv7Xc!eYecbkXIhFwgND3t?30isYs<SyA;>yu$vV6-9mm^>68(-@mgR(gIY
z9=ZhXD4W@fFItj%Km)jI!{XA^e=@7P>j#4X56T{G^<~Kh=oG#ysAUP}sL4;?@3Ml{
zXME_);gY&oMB+$VnCWfMG3HP^+ekkp69~YE={lII4XcFJ@Ib4YTFX-cE^*nqEA5cr
zwZU9k!xI!Mw8mOfT{LLy34k!kFa5WB({x!-d_(=9Vebass}80>!)t=-pUbrYL9FgC
zqLEa9lTLyb>30xf<P#~rlqZDfP^(l)K$)ZzNmc++QdL`7XdOk=7rz5hm$bnV^utp8
zLYOK-WqSXbph}4irI$IrutJLcQSUL5m=>6tQ1GPMU?fBQvCyDR1Wzy+fRu=Ycxsw*
z1i2wAHpDToxhD-C$XL!dA|N}>Hh_+ifez{_3BUj);_ZEOkE%XE#b0xnwL#3Hf+77}
z98=$G+@Xr2qg407L_`N}er#2Dsjbpd;G72=LHEiV@6yT6AC$c*?Qj4^HmV*+U0Fl;
z<rCvjv{un8SsLioJu(UraW}4<s|TYLSk)LEvKnVMlMfc=5osGbwOUyP5tAjz2}%Z+
z(k85fl-t>CFlXu@>o(g46ioEU^=d|hW{t|dXOu(TpOC;ZSDW`}-+N4<-J9SwWVxDY
zwB&q^X$R0ba^Xj)2&O&_KZ1*=nP-+}2Mj;Z@gt*Ub3v+FQuc~En6|oP4%@6d=F>#)
z0V24mICcIRjR`YIFp1eGye9OmJ3R{Ht3{yrF()tn(R8IZ73Qj;U4u=Q_E5utxk#VL
z9oHEzgb5cA1LuT;F@=Z2Tc|Vv?Q4*L6_5qKl^LtAHP3-N2{X;n;%ia@gn0!(FJe6A
zTlXM0;R(n{s;x#81%{1mbE4J}M<8vDDBEfv$Q)Pj5V^M{%+z7};#Y^(+y6npPG1N0
zCea4ih439J8zAp&aBwNufc-8#wO(qn(eVJYR^-o-rJD)W;c58BSKB@eB2ltT%|l;}
zEB~lC3)(Qo&qX9{L5H%UB!@f!-LUDY#sM>Bg&4S>uTHR~P|Bx9@?&2KcBg_iIgH~h
z10SSzu(Q@(P@RDwcbJbIpu&!!my%{kD4GP&<?vVh0^o}S<%2&Rfed{r*>@t9@@_#-
z;z+w8Bx`1H#f^LkjKbL>ika6Z<mD;16s(=wG}Vj*2}&?lK{=C>ORo|00E4<xA_e>F
z(JD9zi5IlOzlP4WLQDxn;!mdpU9T&eed+)x0IZS~lWOUHL&u;JA>7qYn%OMC2i-_B
zEJ(1?N6vHB-F<vKe<XV0j>hl9HGd1-(0|P4AkFeK)lb|`)RzHlGk!(wQ-}7!%dT*n
zq$J3asgOWk5Gag^sY%I1pC9p-e@o(~o0oi=J!S{!bOu@Bg-vK`ArRrWB;KU}=p$$2
zIDt99PHe6MFd$Ja@8u3?0PIkKI|@npXCBki<BiL0feOG_DZnu^p2UHXff)~pK9D@n
z)N%1?OeV4e!pLAY1!t}RW3`&jdG(TP1iB*!op$40ARbH*CJ3HF>Y|pPUijI1KBYsI
z<OA)De4gR~|6t>T0Ko&?GZC9OFRno1bXuT*SihgD_d!!nsr(Q)k|#J&1)35&C)YG}
z9Z=^@e41C8p|ZG-g(u)lJxcK<j+}dnZd-KSD;;Q%Em3wqMg484&3!FH8VEiP6th40
zNCE)>a)<yOEeWSjlzoZ8Bzu*<Ni3->CoJ_^>Uac;veQrN7q~J<dHOW0fVN`p9&?-u
z71@d;HXKRfic<7ptT8x2BrEKaGJ9)(%@rZs&mKqw2GEgj5RF6yUaNf!+sA0~Ii8YQ
zr2=^A4ed_-rJ=5?l&PsEHxxh%EeRR|oE0j_(H5OZ(FG1tcA651D=YN_HAz)fk_6Ql
z$M;l5qln3oqbwpSFhp=&RPadbm^o!{ay5ktG)IfVkyxNRjDnE^JezyM+z^alRt9ZQ
zxCKwb-s5?RNiRMo1B6zo?}~-Oj8aqkUl68&R077y7LxOVdz6M}OgIClk0H&V@@WK&
z-l@U6gdO%&Gg4Z8p^T9@hcjn6q$w&)q8S|M3A*~J2?snBFaa#m(`}X|NR#X-fQSMY
zPZgF0fkDwlgK3HU)Z}Q<5&{OG!H5W9Xk-nbX^@bNtJKH^;?d`DQmqadr$!?R*rJ9|
zxERhwtFmA?63}S6G%J1zpiS#uqRNCyIM+o}^kH>|*)ijiZ|P$p$@KiXv}uyG_#kX@
zAbo9}sBmV8p*R-mE#R;=pffkOi1Vy5SoflaoMV?o)(8SRW5eu(0QwJv1}^t48D!&f
zZEe}$5Wl1f5Sl3l6mNL&3i|gw@~B9PcnY%vLnD@wl6P4_>ot12B@TX0ZkxNkJp66I
zmVViR+{zk(XCG=DrxfRC@~o6skk5;?h+nSHr9S|=a0-bO!mO!R#HU}zq@eRrI}w*7
zcMcHbpl%Bv?3h!3z_<da);T;ghA-4p<=z`!{Q+^{ZFKAJm^*&}TGc`}j(%(<xC`7$
zB{%4|mk*12BzZojD@0zV-z;pFzaE^1{I|26z8(ktPT1$xfxHdACtUM^$$}9o_~x0r
z&v9FW(p94F1!~YbbS|`)^9Sv?2KI6a7=;M6iH&L7-4(H2qlY;ZmT6biU)waBvVvQy
zhL!44W!6(Ru0>{Cu40jywkiMRMPr@?&FeBovWrx*uZ>2w-3poGr*tF4JPR;X#vZp^
zZ%etILR6jAH(zc&Y8+TDBXllqstA;H4fz1kIa**b&m!hotU1pl=2_5jOLQ?5h~!aB
zr-H>|u_OyvbPr}bf1_NR^z+%5G0%btX2MMwDq@}mSbEH}fWgdM85b>(|KFatbc!@E
z2s?+Nm>&5dJC|nx^ZzwSVug^vN)&(0xd@<*0eU>&)%ke?P^4mlULZJ1a!{h=Fb%bL
z-Wq}`$~-d<ykaL?pQ2}>7RP0b^LRnECTZ^>X4Kzj&3W#m92jc&cvIkPD82nTdS%q<
zEC<V=+nOXj?<w7FS$gI!XQ~DVub7BO&2BAedX-9rKJZUq13n4uP7(+5^y4lm%!F|{
zC5{+(^DZg*BoK7XMfj2AluPW()&<4PKPp36<{vTkswe(Q`;2*iB<~I7{iS}ZRr#&R
zYnf5u^MW{gm{Z182Z-qGv9!Oe^XT%P&H6(x!?0xcPBU}1bBQcN&yxMtkOD|wsbeQz
zh%-6YQo}lD(_uim$FTAYU~4h~O9DDjCgu7Ck~$?XZbl+tNy{-Ny`Gpf?EhSbm=d7q
zQe@gcos7y1N6ZfVjZD<?<=Zo+kU)Tu){c7NOO!Y7f@VaPCu-(66E(xqR5jZ3LeVVO
zfpJz)|B~mk_+5-CwtI7Pm<1;>`@UpP2OyUAR9w3aIx8$tFI%B)fw{6bF16b%X69OP
zu{tx(U1YNdt46Wh798Q18_WSqA&4<W$|YesuH6QU2R$h8OU^DHpL6~)afcikzkAm=
z99_dPrbzx+;`=la>K9+H!CM;FZgU-yB3|8m%5m*B`0cJ(yA7wX*Byr2ox)s^Nyo4<
zd9ZO~AWG1|z3eHVHNxDiLN7DJ-&SQ5me$O6TgvEnFz`$FTqv1*$xJcq{?f(gV1|*2
z^H<D|;dBTXZBo42mm$)L0n{M5g}tDf94t{_@^JB;-xY1%mOv{HTU)7w7>3T=xk0?7
ze$6G|*c1YdzSK&~bZ%_Ric6|u1w$GDY{<{Tv-$S-ebx8ozYc!3@1MBXqd)&?V*met
z|GDS>{{wR9bA>e>AHX+=&+S&gCnQlgLO4}Hu|BuMQ!SKb?hmUkL0PZ*#{X$w!M@o~
zTdw^|$Fvv(SIniu*8dtHl62hvKkokzX%hGU_a|4x{r_7xuw!`K|DQX!$Nm4~{{P%R
zKkokzEI^@%`~M>~l$c-uLVuT#^+&Z9`zjfRs0-tY>kSa=)0MM<?OG;UJcoqaaKT37
z=_bMz!bIsE9qI0@6TM}`Kk}i-hZtPh5<b*@|9?9z3&v9a>;LP+zxWd|5HS!j5HS!j
z5HS!juwD#&@q+^g`@R_ZVyI`F@bkZ*<mZ1(OMX7Z`=8+c^RvAAe)@(<RPLDGEr~UL
zb_wnM<Mg(*=gvOi78lru%N-ub;1kmG%=$vKPd0>ml$xe4M{mpbK6O!mS2VWigA^s;
z`S|BrI<TRv?5&Mv?nD$5aVsBmw(~DK#!Zz4R!CDM^}<zvp#ia$Zd0pF@3Iu#jYcmu
z*1fljEs2}HT$VWE(&^3soTUo<aZymV9V~O0{i+Zj7Ytr+c(+(G3$+N`mFM!7tq0iH
z2**9jf-Rl7mApc{Iy<Ih+gVaODS{~s^zSgo0Dm|2EI5Ern1$sVj*(yHQs<dl;fq4R
zzd<3t-LnYog$XLVbxvUf;{Jc`aD_C1rer=aSE7wxkvq}0Uvu35FC!_;k(b_-S$W)X
ztxmSuC?z&-QcBKgDO0(%M_Q>w&IE=X&snskD`jh3l%2;&2DSv?nlLVQ*@O+KgS9R+
zj^h4*j0r$%qoG6f3#bOZDb6kGwrTq|rz}UgyU<m*t5G~>F`lys`4i7s>~z>pIuFGH
zl@*$8u4D@>>A1onbX2$@b8O!Fl>hFZV@fhm%x!mO{g>ba_$aqHEAIan?!e}Rd0eYg
zwvNeGq?)icuZ1lx@EOc;tq%8E_&T1m=$!of@b?gYd7KUy7Pm9eaX&oqEbayr&jAch
z2Mj&Mbav+MA+F*%fIQWdGidK_2;?`)>kx*KzsH?*9nS&Od81fvwuViBHu)UD)V9md
z(s&*q7jeOdpF2y@ypJ%lcRIr3kF*mUYY*{k&R};B^~7@lWw`}s3~nIUv-WcVv!TUR
zZi^Tn$_Y;vgxd&Ec8vPui}pMpFlc)NF6nqqVEf8l9|74Er*u3gFb#W~r(_SgrFCAQ
zpNBNh%>526Q)fa_!%9PuMFtW0)p_bLqtf~Ggw{Q>3kXA;ylD9hyd|6A$=_*$L$03f
z^-D|H++4@>PMj~8j*$*ZES%aQmYsj*SDMQp&us$HqcE7iPT;1(iGK*?$Qrrr2UFv%
z{cbSOu=x)ZBtjS#E1@-O-H{9yj<4^)SWV6tn~bqZ9brReCXLhcG8gsAKP%l<Z<}M2
zI~tQL<@uP01!WLCdZRpkdt#0{w`h}&ibXb)qWRcu<E|`i9bw{vq!3ihP2A)&#>$Re
z>cNu%M6iobkHYI>;Iv|)L2@N8$ss+HhBiP4fx`5(f>en601n5q#p2mwlsjedv$zkS
z$>}oO#Mq(~YqwilCkoo_u|*yZ6DA|sp)gyrCMT|u!3Hgm-f{mw)8gX(e`%6696$2Z
X1m@$cslRmEbX$ERL%#SeJdpnfy6k_C

literal 12288
zcmeHLOK;p%6rS`Eq)1Ug6=G|;37{mJM_v`12`CGsB0(Dji;+g2nd=#6CgW&gH;<}P
z(}<?1l_GW9Er@NBCM4wf7wjbqcKi^&?_AqslK>J6B#=kB_Pytx$9KMSt`+;im-lQ}
z8J5#qG+m>VdpkEUkSiNTE|<H5aXlOZxO3dVh<;rE-S19re8C@v*1)YFbNI`C83P#u
z83P#u83P#u83P#u83P#u83P#u83P#uf6l<y18=?e?z;mU@3>~Iqdqt7F2}V`@6XN7
z&l&TxpWK@>C^0_x!t1tOV}9<N`B7tDt-4jb+E<sAS#KqUvz?ACKjgdl^=rT7Zv8s=
z3vSsjV?Z<TdiL7j?H_Kwy6ImO9#wj-Rj8QVWm_)wrDmZxS*SFWW#ubf$Fu9s;*#l7
z&@sEO2VwgCt$$+LEaWHdKB`zw*L7<hO!5`0Yj-MEy=C^6m0QeD7!Op_QN~xFef;?G
z@X({mN0p}Ps-EdOJ>$MzZ>dHxZxr(5`SD_LYHQ{C;O(s*F3)dnHT{d?nrQ*-a#dMs
zW~#hqwj5_1;D?9Sy;XbNsXnw9RjF7uosJe;rsXX<3su$fW@gGQ$6Yk-aI0r`ys<UA
zWxIBvSgy6ld*1L+-E7-!io4$QWF%~PJ-ga4+s=|VIbF89HD^_nYj)S^R_$fApr%Vn
zFsokI!%43?mRXui81&4xYB*z-T2ZBma>rhF#m|cAj(KqEwd~S#x!H$UGaF{Z8>`z*
zuP~KHziPKswQV;YOHCzQHPu>Gt$C|X%_&Zm#S_!&ICZCCR$=5!OeG_%sJgc@X2U`i
zi^&ZO9=cw&qg-dYkj$;^t=ntP*qYgOiuput3(B>d=GdCI?v?ud_tb({H^)}hLp4)O
zXg9rw=DMoZyp}mN3HRNG(wsVF$8$T5)7JG1p8H3^lVICF@b|LXhn@TXti6#c{i^{y
zgkI_Am%ry9`TL^=?&tnR@Wek4Hn_s<z&{PPF@NKq_&ffg%+5vk4RlX1_WT`4_o0bZ
zI6Dho%Iw@f<sA*S>A%73C&W4Q_3klj&-{bn8RREu!e?TA3du(BG@PR~M-8CZ@ppmg
zDI>`WI0V}+qMpIeG1rK3EE*e#0<@5Agb0C)^I$XBg0G*sVhs2o2GI<jif6sr(%B%l
z1N!!NgBRFmPJ8}gupQ6A8u02J@&W$f<tUWw`#aGL*iPdWSP13dB9_7zFdZSr5p*N3
zr|`HXk&z`Up!I>DRk=V+omJ$KlCub*WE3)|BZ388sSp{~i5##>#1PIHpUi}Kpb_>*
zl!GuCdHa^ykuGZnbT9FUIS}UheXu7PvIctR9Gbhqcd|MN@8E!)5?Z4psU!79#o-UU
zXbsH+SQ7T2$BvM$6q`L<(Zy18cG6+6iTNga5wQazX1_ldpY(qcykLhU(4WhC4?RE(
z$6$>6`b6vjqt-|L!Nn%{-9axhH+Iiiybn3L5&aa}qaS3A91}8qruGqsG1witQ@6p2
zjw{)PG0!BA2!ZBMYmqO_1F!TYy%M9r3L3<-4?VGwZsF;ae1w$^=wJ`m5H(L35cStm
zmCM<Rggj_peU^13R1W?n5?IQfJ=wE|&*$vflRbO>)o0K912=AujQAIY)PF{)MfAFB
zjvAE_ylstGrOJphG4diQU^atMOG&s=7)9P=JxFP7O;Z=+ZnR^Gp7t+x4QeEJ8Ch)l
zJM=P%k&MN)AXUI+F&;cyb$Svku(7O5QsSS$fOSHjdB!<lhX|mV(4Y+&>BoRX_^Dso
znYv_6{E|(|Lx_bw)r{b#g#Oa#C;>Wh8Rkc<QWxCmJ4OZ#vSEogWG`7IYmv?>(g3zJ
zS8)wkbH*mdI7(Elh)LZMT1z7&3h9+gT+7at*ki9zzT}#fNU<UItSfhjER58z3?*0K
zWxqt3q&%{JVxAD&VihKZL1xW5GjsMxDV9c6iemNkSsM=S+{In*Fk*idTC*ptbi^p5
z(1Ub6JBLF~m*l{jGas=ROkpLZN8)}GZp0G0Qo)#G`X|54ou1^}2y^6>gWV?iO6Kfo
z$;6^IQAYfeEsZSl#eU;Sl{0@OyNs@PiGljGrIejPk9wD!(-UJ6KlAN-4o|J1<~%y1
z&=wgjI6|iWU>$0Ue`=&7vqFr@XrVnTb%hpDQ;T={?B_=2lUT4Lr;L5j&oNP-L~hKK
zIg$5t*7P6sR^JPKlf#6!c&@pO&N{KCJx0Al`zT*#LSJzNsW%y6@1^YHP9Q4!5SwtG
zVl_HPQXOihcPWXoqp!cLUtD1_%t7Rm>6IPY&m%lLf;!HlvSjv#hxGMv_HR00Y2+0t
o`$Q0bhR8k<gdaGvPXzr>0@){m?DJ&yc{2MviO-k+{m+xX1EvRung9R*

diff --git "a/Win32/Release/\320\234\320\265\321\201\321\202\320\276\320\270\320\274\320\265\320\275\320\270\321\217.txt" "b/Win32/Release/\320\234\320\265\321\201\321\202\320\276\320\270\320\274\320\265\320\275\320\270\321\217.txt"
index 04cd1bf..0a4cd9b 100644
--- "a/Win32/Release/\320\234\320\265\321\201\321\202\320\276\320\270\320\274\320\265\320\275\320\270\321\217.txt"
+++ "b/Win32/Release/\320\234\320\265\321\201\321\202\320\276\320\270\320\274\320\265\320\275\320\270\321\217.txt"
@@ -1 +1 @@
-�
��
��
��
��
���
���
���
����
���
����
���
���
����
���
��
��
��
���
���
����
�����
�����
�������
����
������
���
�����
������
�����
����
������
���
���
�����
�����
���
�������
�����
�����
������
������
�������
�����
���������
���-��
���-���
���-������
���-����
���-��
���-���
���-������
���-����
�����-��
�����-����
�����-������
�����
�����
���������
��
��
��
��
�
\ No newline at end of file
+�
��
��
��
��
���
���
���
����
���
����
���
���
����
���
��
��
��
���
���
����
�����
�����
�������
����
������
���
�����
������
�����
����
������
���
���
�����
�����
���
�������
�����
�����
������
������
�������
�����
���������
���-��
���-���
���-������
���-����
���-��
���-���
���-������
���-����
�����-��
�����-����
�����-������
�����
�����
���������
\ No newline at end of file