examples/CBuilder/Ex1DArrU.cpp

// ***** 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 *****
//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop

#include <stdlib.h>
#include "Ex1DArrU.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "StLArr"

#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  //RegisterClass should be used, but it is not there in C++Builder 1.0
  RegisterClassAlias(__classid(TStLArray), "TStLArray");
  UpdateButtons(false);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  delete MyLArray;
}
//---------------------------------------------------------------------------
void TForm1::SetBusy(Boolean B)
{
  if (B) {
    Screen->Cursor = crHourGlass;
  }
  else {
    Screen->Cursor = crDefault;
  }
};
//---------------------------------------------------------------------------
int __fastcall MyArraySort(const void* El1, const void* El2)
{
  ARecord R1, R2;
  int Res;

  R1 = *(ARecord*) El1;
  R2 = *(ARecord*) El2;

  Res = (R1.X - R2.X);
  if (Res == 0) {
    Res = (R1.Y - R2.Y);
    if (Res == 0) {
      Res = floor(R1.Mag - R2.Mag);
      if (Res == 0) {
        Res = CompareText(R1.Name1, R2.Name1);
        if (Res == 0)
          Res = CompareText(R1.Name2, R2.Name2);
      }
    }
  }
  return Res;
};
//---------------------------------------------------------------------------
void TForm1::FillControls()
{
  Edit1->Text = ARec.Name1;
  Edit2->Text = ARec.Name2;
  Edit3->Text = IntToStr((int)ARec.X);
  Edit4->Text = IntToStr((int)ARec.Y);
  Edit5->Text = FloatToStr(ARec.Mag);
};
//---------------------------------------------------------------------------
void TForm1::FillListBox()
{
  int Step;

  SetBusy(true);
  LB1->Clear();
  LB1->Perform(WM_SETREDRAW, 0, 0);

  for (Step = 0; Step < MyLArray->Count; Step++) {
    MyLArray->Get(Step, &ARec);
    LB1->Items->Add(IntToStr((int)ARec.X) + ", " + IntToStr((int)ARec.Y));
  };

  LB1->Perform(WM_SETREDRAW,1,0);
  LB1->Update();
  MyLArray->Get(0, &ARec);
  SetBusy(false);
};
//---------------------------------------------------------------------------
bool TForm1::CheckControls(ARecord& AR)
{
  if ((Edit1->Text == "") || (Edit2->Text == "") ||
     (Edit3->Text == "") ||
     (Edit4->Text == "") ||
     (Edit5->Text == ""))
    return false;

  AR.Name1 = Edit1->Text;
  AR.Name2 = Edit2->Text;
  AR.X = StrToInt(Edit3->Text);
  AR.Y = StrToInt(Edit4->Text);
  AR.Mag = StrToFloat(Edit5->Text);

  return true;
};
//---------------------------------------------------------------------------
void TForm1::UpdateButtons(bool AOK)
{
  ClearBtn->Enabled = AOK;
  FillBtn->Enabled  = AOK;
  GetBtn->Enabled   = AOK;
  PutBtn->Enabled   = AOK;
  SortBtn->Enabled  = AOK;
  SaveBtn->Enabled  = AOK;
};
//---------------------------------------------------------------------------
void __fastcall TForm1::LB1DblClick(TObject *Sender)
{
  MyLArray->Get(LB1->ItemIndex, &ARec);
  ElemNum->Text = IntToStr(LB1->ItemIndex);
  FillControls();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CreateBtnClick(TObject *Sender)
{
  int Step;
  int I;
  int Value;

  LB1->Clear();
  SetBusy(true);

  if (MyLArray)
    delete MyLArray;

  UpdateButtons(false);
  MyLArray = new TStLArray(5000, sizeof(ARec));

  MyLArray->ElementsStorable = true;
  MyLArray->Clear();

  Randomize();
  LB1->Perform(WM_SETREDRAW,0,0);
  Value = MyLArray->Count;

  for (Step = 0; Step < Value-1; Step++) {
    ARec.Name1 = "";
    ARec.Name2 = "";
    for (I = 1; I <= 10; I++) {
      ARec.Name1 = ARec.Name1 + (char)(random(26) + 'A');
      ARec.Name2 = ARec.Name2 + (char)(random(26) + 'A');
    };

    ARec.X = floor(random(1000));
    ARec.Y = floor(random(1000));
    ARec.Mag = sqrt(random(25000));

    MyLArray->Put(Step, &ARec);
    LB1->Items->Add(IntToStr((int)ARec.X) + ", " + IntToStr((int)ARec.Y));
  };
  LB1->Perform(WM_SETREDRAW,1,0);
  LB1->Update();

  ElemNum->Text = "0";
  MyLArray->Get(0, &ARec);
  FillControls();
  UpdateButtons(true);
  SetBusy(false);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClearBtnClick(TObject *Sender)
{
  MyLArray->Clear();
  LB1->Clear();

  ElemNum->Text = "0";
  MyLArray->Get(0, &ARec);
  FillControls();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FillBtnClick(TObject *Sender)
{
  if (!CheckControls(ARec)) {
    ShowMessage("One or more invalid entries");
    return;
  };

  MyLArray->Fill(&ARec);

  FillListBox();
  ElemNum->Text = "0";
  MyLArray->Get(0, &ARec);
  FillControls();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::GetBtnClick(TObject *Sender)
{
  long E;

  if (ElemNum->Text == "")
    ElemNum->Text = "0";

  E = StrToInt(ElemNum->Text);
  MyLArray->Get(E, &ARec);

  FillControls();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PutBtnClick(TObject *Sender)
{
  long E;

  if (ElemNum->Text == "")
    ElemNum->Text = "0";

  if (!CheckControls(ARec)) {
    ShowMessage("One or more invalid entries");
    return;
  };

  E = StrToInt(ElemNum->Text);
  MyLArray->Put(E, &ARec);
  LB1->Items->Strings[E] = (IntToStr((int)ARec.X) + ", " + IntToStr((int)ARec.Y));

  MyLArray->Get(E, &ARec);
  FillControls();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SortBtnClick(TObject *Sender)
{
  SetBusy(true);
  MyLArray->Sort(MyArraySort);
  SetBusy(false);

  FillListBox();
  FillControls();
  SetBusy(false);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LoadBtnClick(TObject *Sender)
{
  if (OD1->Execute()) {
    if (!MyLArray) {
      UpdateButtons(false);
      MyLArray = new TStLArray(5000, sizeof(ARec));
      MyLArray->ElementsStorable = true;
    };

    MyLArray->Clear();
    MyLArray->LoadFromFile(OD1->FileName);

    FillListBox();
    FillControls();
    UpdateButtons(true);
  };
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SaveBtnClick(TObject *Sender)
{
  if (SD1->Execute())
    MyLArray->StoreToFile(SD1->FileName);
}
//---------------------------------------------------------------------------
1	torben	2671	// *** BEGIN LICENSE BLOCK ***
2			// * Version: MPL 1.1
3			// *
4			// * The contents of this file are subject to the Mozilla Public License Version
5			// * 1.1 (the "License"); you may not use this file except in compliance with
6			// * the License. You may obtain a copy of the License at
7			// * http://www.mozilla.org/MPL/
8			// *
9			// * Software distributed under the License is distributed on an "AS IS" basis,
10			// * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
11			// * for the specific language governing rights and limitations under the
12			// * License.
13			// *
14			// * The Original Code is TurboPower SysTools
15			// *
16			// * The Initial Developer of the Original Code is
17			// * TurboPower Software
18			// *
19			// * Portions created by the Initial Developer are Copyright (C) 1996-2002
20			// * the Initial Developer. All Rights Reserved.
21			// *
22			// * Contributor(s):
23			// *
24			// * *** END LICENSE BLOCK ***
25			//---------------------------------------------------------------------------
26			#include <vcl\vcl.h>
27			#pragma hdrstop
28
29			#include <stdlib.h>
30			#include "Ex1DArrU.h"
31			//---------------------------------------------------------------------------
32			#pragma package(smart_init)
33			#pragma link "StLArr"
34
35			#pragma resource "*.dfm"
36			TForm1 *Form1;
37			//---------------------------------------------------------------------------
38			__fastcall TForm1::TForm1(TComponent* Owner)
39			: TForm(Owner)
40			{
41			}
42			//---------------------------------------------------------------------------
43			void __fastcall TForm1::FormCreate(TObject *Sender)
44			{
45			//RegisterClass should be used, but it is not there in C++Builder 1.0
46			RegisterClassAlias(__classid(TStLArray), "TStLArray");
47			UpdateButtons(false);
48			}
49			//---------------------------------------------------------------------------
50			void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
51			{
52			delete MyLArray;
53			}
54			//---------------------------------------------------------------------------
55			void TForm1::SetBusy(Boolean B)
56			{
57			if (B) {
58			Screen->Cursor = crHourGlass;
59			}
60			else {
61			Screen->Cursor = crDefault;
62			}
63			};
64			//---------------------------------------------------------------------------
65			int __fastcall MyArraySort(const void* El1, const void* El2)
66			{
67			ARecord R1, R2;
68			int Res;
69
70			R1 = (ARecord) El1;
71			R2 = (ARecord) El2;
72
73			Res = (R1.X - R2.X);
74			if (Res == 0) {
75			Res = (R1.Y - R2.Y);
76			if (Res == 0) {
77			Res = floor(R1.Mag - R2.Mag);
78			if (Res == 0) {
79			Res = CompareText(R1.Name1, R2.Name1);
80			if (Res == 0)
81			Res = CompareText(R1.Name2, R2.Name2);
82			}
83			}
84			}
85			return Res;
86			};
87			//---------------------------------------------------------------------------
88			void TForm1::FillControls()
89			{
90			Edit1->Text = ARec.Name1;
91			Edit2->Text = ARec.Name2;
92			Edit3->Text = IntToStr((int)ARec.X);
93			Edit4->Text = IntToStr((int)ARec.Y);
94			Edit5->Text = FloatToStr(ARec.Mag);
95			};
96			//---------------------------------------------------------------------------
97			void TForm1::FillListBox()
98			{
99			int Step;
100
101			SetBusy(true);
102			LB1->Clear();
103			LB1->Perform(WM_SETREDRAW, 0, 0);
104
105			for (Step = 0; Step < MyLArray->Count; Step++) {
106			MyLArray->Get(Step, &ARec);
107			LB1->Items->Add(IntToStr((int)ARec.X) + ", " + IntToStr((int)ARec.Y));
108			};
109
110			LB1->Perform(WM_SETREDRAW,1,0);
111			LB1->Update();
112			MyLArray->Get(0, &ARec);
113			SetBusy(false);
114			};
115			//---------------------------------------------------------------------------
116			bool TForm1::CheckControls(ARecord& AR)
117			{
118			if ((Edit1->Text == "") \|\| (Edit2->Text == "") \|\|
119			(Edit3->Text == "") \|\|
120			(Edit4->Text == "") \|\|
121			(Edit5->Text == ""))
122			return false;
123
124			AR.Name1 = Edit1->Text;
125			AR.Name2 = Edit2->Text;
126			AR.X = StrToInt(Edit3->Text);
127			AR.Y = StrToInt(Edit4->Text);
128			AR.Mag = StrToFloat(Edit5->Text);
129
130			return true;
131			};
132			//---------------------------------------------------------------------------
133			void TForm1::UpdateButtons(bool AOK)
134			{
135			ClearBtn->Enabled = AOK;
136			FillBtn->Enabled = AOK;
137			GetBtn->Enabled = AOK;
138			PutBtn->Enabled = AOK;
139			SortBtn->Enabled = AOK;
140			SaveBtn->Enabled = AOK;
141			};
142			//---------------------------------------------------------------------------
143			void __fastcall TForm1::LB1DblClick(TObject *Sender)
144			{
145			MyLArray->Get(LB1->ItemIndex, &ARec);
146			ElemNum->Text = IntToStr(LB1->ItemIndex);
147			FillControls();
148			}
149			//---------------------------------------------------------------------------
150			void __fastcall TForm1::CreateBtnClick(TObject *Sender)
151			{
152			int Step;
153			int I;
154			int Value;
155
156			LB1->Clear();
157			SetBusy(true);
158
159			if (MyLArray)
160			delete MyLArray;
161
162			UpdateButtons(false);
163			MyLArray = new TStLArray(5000, sizeof(ARec));
164
165			MyLArray->ElementsStorable = true;
166			MyLArray->Clear();
167
168			Randomize();
169			LB1->Perform(WM_SETREDRAW,0,0);
170			Value = MyLArray->Count;
171
172			for (Step = 0; Step < Value-1; Step++) {
173			ARec.Name1 = "";
174			ARec.Name2 = "";
175			for (I = 1; I <= 10; I++) {
176			ARec.Name1 = ARec.Name1 + (char)(random(26) + 'A');
177			ARec.Name2 = ARec.Name2 + (char)(random(26) + 'A');
178			};
179
180			ARec.X = floor(random(1000));
181			ARec.Y = floor(random(1000));
182			ARec.Mag = sqrt(random(25000));
183
184			MyLArray->Put(Step, &ARec);
185			LB1->Items->Add(IntToStr((int)ARec.X) + ", " + IntToStr((int)ARec.Y));
186			};
187			LB1->Perform(WM_SETREDRAW,1,0);
188			LB1->Update();
189
190			ElemNum->Text = "0";
191			MyLArray->Get(0, &ARec);
192			FillControls();
193			UpdateButtons(true);
194			SetBusy(false);
195			}
196			//---------------------------------------------------------------------------
197			void __fastcall TForm1::ClearBtnClick(TObject *Sender)
198			{
199			MyLArray->Clear();
200			LB1->Clear();
201
202			ElemNum->Text = "0";
203			MyLArray->Get(0, &ARec);
204			FillControls();
205			}
206			//---------------------------------------------------------------------------
207			void __fastcall TForm1::FillBtnClick(TObject *Sender)
208			{
209			if (!CheckControls(ARec)) {
210			ShowMessage("One or more invalid entries");
211			return;
212			};
213
214			MyLArray->Fill(&ARec);
215
216			FillListBox();
217			ElemNum->Text = "0";
218			MyLArray->Get(0, &ARec);
219			FillControls();
220			}
221			//---------------------------------------------------------------------------
222			void __fastcall TForm1::GetBtnClick(TObject *Sender)
223			{
224			long E;
225
226			if (ElemNum->Text == "")
227			ElemNum->Text = "0";
228
229			E = StrToInt(ElemNum->Text);
230			MyLArray->Get(E, &ARec);
231
232			FillControls();
233			}
234			//---------------------------------------------------------------------------
235			void __fastcall TForm1::PutBtnClick(TObject *Sender)
236			{
237			long E;
238
239			if (ElemNum->Text == "")
240			ElemNum->Text = "0";
241
242			if (!CheckControls(ARec)) {
243			ShowMessage("One or more invalid entries");
244			return;
245			};
246
247			E = StrToInt(ElemNum->Text);
248			MyLArray->Put(E, &ARec);
249			LB1->Items->Strings[E] = (IntToStr((int)ARec.X) + ", " + IntToStr((int)ARec.Y));
250
251			MyLArray->Get(E, &ARec);
252			FillControls();
253			}
254			//---------------------------------------------------------------------------
255			void __fastcall TForm1::SortBtnClick(TObject *Sender)
256			{
257			SetBusy(true);
258			MyLArray->Sort(MyArraySort);
259			SetBusy(false);
260
261			FillListBox();
262			FillControls();
263			SetBusy(false);
264			}
265			//---------------------------------------------------------------------------
266			void __fastcall TForm1::LoadBtnClick(TObject *Sender)
267			{
268			if (OD1->Execute()) {
269			if (!MyLArray) {
270			UpdateButtons(false);
271			MyLArray = new TStLArray(5000, sizeof(ARec));
272			MyLArray->ElementsStorable = true;
273			};
274
275			MyLArray->Clear();
276			MyLArray->LoadFromFile(OD1->FileName);
277
278			FillListBox();
279			FillControls();
280			UpdateButtons(true);
281			};
282			}
283			//---------------------------------------------------------------------------
284			void __fastcall TForm1::SaveBtnClick(TObject *Sender)
285			{
286			if (SD1->Execute())
287			MyLArray->StoreToFile(SD1->FileName);
288			}
289			//---------------------------------------------------------------------------