//---------------------------------------------------------------------------
// N.V.Shokhirev
// created: 20040726
// modified: 20050809
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "fTestDynArr.h"
#include "uTests.h"
//#include "dynarrays.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonRunClick(TObject *Sender)
{
  MemoResults->Clear();

  MemoResults->Lines->Text = MachepsTest();

  MemoResults->Lines->Add( Lim1DTest() );
  MemoResults->Lines->Add( Lim2DTest() );

  MemoResults->Lines->Add( FArr1DTest() );
  MemoResults->Lines->Add( FArr1DTest2() );
  MemoResults->Lines->Add( FArr1DTest3() );

  MemoResults->Lines->Add( FArr2DTest() );
  MemoResults->Lines->Add( FArr2DTestSwap() );

  MemoResults->Lines->Add( FArr1D2DTest() );

  MemoResults->Lines->Add( ObjTest() );
  MemoResults->Lines->Add( ObjTest2() );

  MemoResults->Lines->Add( MiscTests() );

  MemoResults->Lines->Add( IArr1DTest() );

  MemoResults->Lines->Add( LinAlgTest() );

  MemoResults->Lines->Add( DiffTests() );

  MemoResults->Lines->Add( FArr3DTest() );

  MemoResults->Lines->Add( ComplexTest() );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  randomize();
}
//---------------------------------------------------------------------------