// --------------------------------------------- ------------------------------
void __fastcall TForm3 :: SpeedButton4Click (TObject * Sender)
{
if (SaveDialog1-> Execute ())
Memo1-> Lines-> SaveToFile (SaveDialog1-> FileName);
StatusBar1-> Panels-> Items [0] -> Text = SaveDialog1-> FileName;
}
// --------------------------------------------- ------------------------------
void __fastcall TForm3 :: SpeedButton6Click (TObject * Sender)
{
Memo1-> CutToClipboard ();
}
// --------------------------------------------- ------------------------------
void __fastcall TForm3 :: SpeedButton7Click (TObject * Sender)
{
Memo1-> CopyToClipboard ();
}
// --------------------------------------------- ------------------------------
void __fastcall TForm3 :: SpeedButton8Click (TObject * Sender)
{
Memo1-> PasteFromClipboard ();
}
// --------------------------------------------- ------------------------------
void __fastcall TForm3 :: SpeedButton9Click (TObject * Sender)
{
Form7 = new TForm7 (Application);
Form7-> Show ();
}
// --------------------------------------------- ------------------------------
Лістинг форми В«Створення розкладуВ»
# include
# pragma hdrstop
# include "Unit7.h"
// --------------------------------------------- ------------------------
# pragma resource "*. dfm"
TForm6 * Form6;
// --------------------------------------------- ------------------------
__fastcall TForm6 :: TForm6 (TComponent * AOwner)
: TForm (AOwner)
{
}
// --------------------------------------------- ------------------------
void __fastcall TForm6 :: CancelBtnClick (TObject * Sender)
{
Table1-> Cancel ();
Form6-> Close ();
}
// --------------------------------------------- ------------------------------
void __fastcall TForm6 :: OKBtnClick (TObject * Sender)
{
Table1-> Post ();
Form6-> Close ();
}
// --------------------------------------------- ------------------------------
void __fastcall TForm6 :: Button1Click (TObject * Sender)
{
Table1-> Bof;
while (Table1-> Eof)
{Table1-> Next ();
}
TForm * GridForm = new TForm ((TComponent *) NULL);
GridForm-> Caption = "Розклад";
GridForm-> Width = 300;
GridForm-> Height = 300;
TStringGrid * Grid = new TStringGrid (GridForm);
Grid-> ColCount = Table1-> FieldCount;
Grid-> RowCount = Table1-> FieldCount;
Grid-> Parent = GridForm;
Grid-> Align = alClient;
GridForm-> Show ();
Grid-> FixedCols = 1;
Grid-> FixedRows ...
