// ***** BEGIN LICENSE BLOCK ***** // * Version: MPL 1.1 // * // * The contents of this file are subject to the Mozilla Public License Version // * 1.1 (the "License"); you may not use this file except in compliance with // * the License. You may obtain a copy of the License at // * http://www.mozilla.org/MPL/ // * // * Software distributed under the License is distributed on an "AS IS" basis, // * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License // * for the specific language governing rights and limitations under the // * License. // * // * The Original Code is TurboPower SysTools // * // * The Initial Developer of the Original Code is // * TurboPower Software // * // * Portions created by the Initial Developer are Copyright (C) 1996-2002 // * the Initial Developer. All Rights Reserved. // * // * Contributor(s): // * // * ***** END LICENSE BLOCK ***** //--------------------------------------------------------------------------- #ifndef Ex2DArrUH #define Ex2DArrUH //--------------------------------------------------------------------------- #include #include #include #include #include #include "math.h" #include "StLArr.hpp" #include "StUtils.hpp" #define MAXROWS (long) (1000) #define MAXCOLS (long) (10) //--------------------------------------------------------------------------- class PACKAGE TForm1 : public TForm { __published: // IDE-managed Components TLabel *Label5; TLabel *Label6; TListBox *ArrayLB; TButton *CreateBtn; TEdit *LMValue; TEdit *LMRow; TEdit *LMCol; TButton *ClearBtn; TButton *FillBtn; TButton *PutBtn; TButton *PutRowBtn; TButton *GetBtn; TButton *GetRowBtn; TButton *SortBtn; TButton *LoadBtn; TButton *SaveBtn; TOpenDialog *OD1; TSaveDialog *SD1; void __fastcall FormCreate(TObject *Sender); void __fastcall FormClose(TObject *Sender, TCloseAction &Action); void __fastcall CreateBtnClick(TObject *Sender); void __fastcall ClearBtnClick(TObject *Sender); void __fastcall FillBtnClick(TObject *Sender); void __fastcall PutBtnClick(TObject *Sender); void __fastcall PutRowBtnClick(TObject *Sender); void __fastcall GetBtnClick(TObject *Sender); void __fastcall GetRowBtnClick(TObject *Sender); void __fastcall SortBtnClick(TObject *Sender); void __fastcall LoadBtnClick(TObject *Sender); void __fastcall SaveBtnClick(TObject *Sender); void __fastcall ArrayLBDblClick(TObject *Sender); private: // User declarations public: // User declarations TStLMatrix *MyLMatrix; long LIArray[MAXCOLS]; __fastcall TForm1(TComponent* Owner); void SetBusy(bool B); void FillListBox(); void UpdateButtons(bool AOK); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif