-- PACKAGE TForm3 * Form3;
// ---------------------------------------- -----------------------------------
# endif
Unit3.cpp
// ---------------------------------------- -----------------------------------
# include
# pragma hdrstop
# include "Unit3.h"
// ---------------------------------------- -----------------------------------
# pragma package (smart_init)
# pragma resource "*. dfm" * Form3;
// ---------------------------------------- -----------------------------------
__fastcall TForm3 :: TForm3 (TComponent * Owner)
: TForm (Owner)
{
}
{-> Close (); -> SQL-> Clear (); -> SQL = Memo1-> Lines; -> Open ();
}
{-> Close (); -> SQL-> Clear (); -> Lines-> Clear ();
}
{-> Close (); -> Close ();
}
// ---------------------------------------- -----------------------------------