= key; = Memo2-> Text; = str.Length ();
// Label1-> Caption = IntToStr (len);
}
// ---------------------------------------- -----------------------------------
void __ fastcall TForm1 :: Button2Click (TObject * Sender)
{-> Lines-> LoadFromFile ("C: лоад.txt");
}
// ---------------------------------------- -----------------------------------
void __ fastcall TForm1 :: Button3Click (TObject * Sender)
{save = "C: сейв.txt";
Memo2-> Lines-> SaveToFile (save);
}
// ---------------------------------------- -----------------------------------
// ---------------------------------------- -----------------------------------
__fastcall TForm1 :: Button4Click (TObject * Sender)
{> MessageBox ("розрахунково-графічна робота. виконав студент ІІДС 349 Міщенко А.С.", "About", MB_OK);
}
// ---------------------------------------- -----------------------------------
void __ fastcall TForm1 :: Button5Click (TObject * Sender)
{();
}
// ---------------------------------------- -----------------------------------
void __ fastcall TForm1 :: Button6Click (TObject * Sender)
{-> Text = ""; -> Text = "";
}
// ---------------------------------------- -----------------------------------
Дешифратор
// ---------------------------------------- -----------------------------------
# include
# pragma hdrstop
# include "Unit1.h"
# include "Unit2.h"
// ---------------------------------------- -----------------------------------
# pragma package (smart_init)
# pragma resource "*. dfm" * Form1; str1, str2, str3, abc, abc2; lenstr1, lenstr2;
// ---------------------------------------- -----------------------------------
__fastcall TForm1 :: TForm1 (TComponent * Owner)
: TForm (Owner)
{
}
// ---------------------------------------- -----------------------------------
void __ fastcall TForm1 :: Button2Click (TObject * Sender)
{();
}
// ---------------------------------------- -----------------------------------
void __ fastcall TForm1 :: Button1Click (TObject * Sender)
{
str1 = Memo1-> Lines-> Text;
lenstr1 = str1.Length ();
str2 = Memo2-> Lines-> Text;
lenstr2 = str2.Length ();
// Label2-> Caption = IntToStr (lenstr1);
// Label6-> Caption = IntToStr (lenstr2); i = 0, abc3 [33], abc4 [33];
for (i; i <33; i + +)
{abc3 [i] = 0;
abc4 [i] = 0;
StringGrid1-> Cells [i] [0] = abc [i +1];
StringGrid1-> Cells [i] [2] = abc [i +1];} j = 1;
for (j; j <34; j + +)
for (i = 1; i <= lenstr1; i + +)
if (str1 [i] == abc [j] | | str1 [i] == abc2 [j]) abc3 [j-1] + +; (j = 1; j <34 ; j + +)
for (i = 1; i <= lenstr2; i + +)
if (str2 [i] == abc [j] | | str2 [i] == abc2 [j]) abc4 [j-1] + +; (i = 0; i <33 ; i + +)
{StringGrid1-> Cells [i] [1] = abc3 [i];
StringGrid1-> Cells [i] [3] = abc4 [i];}
} __fastcall TForm1 :: Button3Click (TObject * Sender)
{int i, j, t1, t2;
AnsiString temp; (i = 0; i <33; i + +)
for (j = 0; j <33; j + +)
{t1 = StrToInt (StringGrid1-> Cells [i] [1]);
t2 = StrToInt (StringGrid1-> Cells [j] [1]);
if (t1 Cells [i] [0];
StringGrid1-> Cells [i] [0] = StringGrid1-> Cells [j] [0];
StringGrid1-> Cells [j] [0] = temp;
StringGrid1-> Cells [i] [1] = IntToStr (t2);
StringGrid1-> Cells [j] [1...
