utton1Click (TObject * Sender)
Enabled = false; ("Варіант успішно змінено."); (); p align="justify">}
{-> Lines-> Clear (); -> Enabled = false; -> Enabled = false; ();
}
Enabled = true;
}
// ---------------------------------------- -----------------------------------
Лістинг файлу Unit9.cpp
// ---------------------------------------- -----------------------------------
# include
# pragma hdrstop
# include "Unit9.h"
# define Form1 Form9
// ---------------------------------------- -----------------------------------
# pragma package (smart_init)
# pragma resource "*. dfm" * Form9;
// ---------------------------------------- -----------------------------------
__fastcall TForm9 :: TForm9 (TComponent * Owner)
: TForm (Owner)
{
}
{k = Form1-> Memo1-> Lines-> Count; (int i = 0; i Memo1-> Lines- > Strings [i]; k = s.Length (); (int i = 1; i <= k; i + +) [i] = s [i] - (i * i + i)% 3-1; - > Memo1-> Lines-> Strings [i] = s;
}
}
{k = Form1-> Memo1-> Lines-> Count; (int i = 0; i Memo1-> Lines- > Strings [i]; k = s.Length (); (int i = 1; i <= k; i + +) [i] = s [i] + (i * i + i)% 3 +1; - > Memo1-> Lines-> Strings [i] = s;
}
}
{-> Memo1-> Lines-> LoadFromFile (s); ();
}
{(); -> Memo1-> Lines-> SaveToFile (s);
}
// ---------------------------------------- -
Лістинг файлу Unit10.cpp
// ---------------------------------------- -----------------------------------
# include
# pragma hdrstop
# include "Unit10.h"
// ---------------------------------------- -----------------------------------
# pragma package (smart_init)
# pragma resource "*. dfm" * Form10;
// ---------------------------------------- -----------------------------------
__fastcall TForm10 :: TForm10 (TComponent * Owner)
: TForm (Owner)
{
}
