diff options
Diffstat (limited to 'bindings/bcppmake/MainTest.cpp')
-rw-r--r-- | bindings/bcppmake/MainTest.cpp | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/bindings/bcppmake/MainTest.cpp b/bindings/bcppmake/MainTest.cpp deleted file mode 100644 index 46c0b65..0000000 --- a/bindings/bcppmake/MainTest.cpp +++ /dev/null @@ -1,37 +0,0 @@ -//--------------------------------------------------------------------------- - -#include <vcl.h> -#pragma hdrstop - -#include "MainTest.h" -extern "C" { -#include <flatapi.h> -} -//using namespace sword; -//--------------------------------------------------------------------------- -#pragma package(smart_init) -#pragma resource "*.dfm" -TForm1 *Form1; -//--------------------------------------------------------------------------- -__fastcall TForm1::TForm1(TComponent* Owner) - : TForm(Owner) -{ -} -//--------------------------------------------------------------------------- -void __fastcall TForm1::FormShow(TObject *Sender) -{ - SWHANDLE mgr = SWMgr_new(); - SWHANDLE it = SWMgr_getModulesIterator(mgr); - SWHANDLE module = 0; - String modlist; - do { - module = ModList_iterator_val(it); - if (module) { - modlist += SWModule_getName(module) + (String)"\r\n"; - ModList_iterator_next(it); - } - } while (module); - Memo1->Text = modlist; - SWMgr_delete(mgr); -} -//--------------------------------------------------------------------------- |