examples/CBuilder/ExDictU.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 "ExDictU.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "StDict"

#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
bool __fastcall DDWalker(TStContainer* Container, TStNode* Node, void * OtherData)
{
  TStDictNode* N = (TStDictNode*) Node;
  ShortString *S = (ShortString*) N->Data;
  Form1->LB1->Items->Add(((TStDictNode*)Node)->Name + " = " + *S);
  return true;
}
//---------------------------------------------------------------------------
void * __fastcall MyLoadData(Classes::TReader* Reader)
{
  ShortString * S;
  S = new ShortString;
  *S = Reader->ReadString();
  return (void *) S;
}
//---------------------------------------------------------------------------
void __fastcall MyStoreData(Classes::TWriter* Writer, void * Data)
{
  ShortString *S = (ShortString*) Data;
  Writer->WriteString(*S);
}
//---------------------------------------------------------------------------
void TForm1::FillListBox(void)
{
  LB1->Clear();
  LB1->Perform(WM_SETREDRAW, 0, 0);

  MyDD->Iterate(DDWalker, 0);

  LB1->Perform(WM_SETREDRAW, 1, 0);
  LB1->Update();
}
//---------------------------------------------------------------------------
void TForm1::UpdateButtons(bool DOK)
{
  ClearBtn->Enabled  = DOK;
  AddBtn->Enabled    = DOK;
  UpdateBtn->Enabled = DOK;
  ExistsBtn->Enabled = DOK;
  DelBtn->Enabled    = DOK;
  SaveBtn->Enabled   = DOK;
  LB1->Enabled       = DOK;
}
//---------------------------------------------------------------------------
String TForm1::RandomData(void)
{
  int Len = random(100)+1;
  String S = "";
  for (int I = 1; I <= Len; I++)
    S = S + (char)(random(26) + 'A');
  return S;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  RegisterClassAlias(__classid(TStDictionary), "TStDictionary");
  RegisterClassAlias(__classid(TStDictNode), "TStDictNode");
  UpdateButtons(false);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  delete MyDD;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LB1Click(TObject *Sender)
{
  String S1, S2;
  int P, Len;

  S1 = LB1->Items->Strings[LB1->ItemIndex];
  S2 = S1;
  Len = S1.Length();
  P = S1.Pos("=");

  S1.Delete(P-1, Len-P+2);
  Edit1->Text = S1;

  S2.Delete(1, P+1);
  Edit2->Text = S2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LB1DblClick(TObject *Sender)
{
  void * P;

  if (MyDD->Exists(Edit1->Text, P)) {
    MyDD->Delete(Edit1->Text);
    FillListBox();
  }
  LB1->ItemIndex = 0;
  LB1Click(LB1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CreateBtnClick(TObject *Sender)
{
  ShortString *S;

  randomize;
  if (MyDD)
    delete MyDD;

  UpdateButtons(false);
  MyDD = new TStDictionary(127);
  MyDD->LoadData = MyLoadData;
  MyDD->StoreData = MyStoreData;
  MyDD->Hash = AnsiELFHashText;

  for (int I = 1; I <= 100; I++) {
    S = new ShortString;
    *S = RandomData();
    MyDD->Add("Item" + IntToStr(I), S);
  }
  FillListBox();
  UpdateButtons(true);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClearBtnClick(TObject *Sender)
{
  LB1->Clear();
  MyDD->Clear();
  Edit1->Clear();
  Edit2->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::AddBtnClick(TObject *Sender)
{
  ShortString Name;
  ShortString *PS;

  if ((Edit1->Text == "") || (Edit2->Text == "")) {
    ShowMessage("Name and/or data missing");
    return;
  }

  PS = new ShortString;
  *PS = Edit2->Text;
  Name = Edit1->Text;

  MyDD->Add(Name, PS);

  FillListBox();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::UpdateBtnClick(TObject *Sender)
{
  void * P;

  if ((Edit1->Text == "") || (Edit2->Text == "")) {
    ShowMessage("Name and/or data missing");
    return;
  }

  if (MyDD->Exists(Edit1->Text, P)) {
    *((ShortString*)P) = Edit2->Text;
    MyDD->Update(Edit1->Text, P);
  } else {
    ShowMessage(Edit1->Text + " not found");
    return;
  }
  FillListBox();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ExistsBtnClick(TObject *Sender)
{
  void *S;

  if (Edit1->Text == "") {
    ShowMessage("No name entry");
    return;
  }

  if (MyDD->Exists(Edit1->Text, S)) {
    Edit2->Clear();
    Edit2->Text = *((ShortString*)S);
    Edit2->Update();
  } else
    ShowMessage("No matching entry found");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DelBtnClick(TObject *Sender)
{
  void * P;

  if (Edit1->Text == "") {
    ShowMessage("No name entered");
    return;
  }

  if (MyDD->Exists(Edit1->Text, P)) {
    MyDD->Delete(Edit1->Text);
    FillListBox();
  } else
    ShowMessage("Entry not found");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LoadBtnClick(TObject *Sender)
{
  if (OD1->Execute()) {
    if (!MyDD) {
      UpdateButtons(false);
      MyDD = new TStDictionary(127);
      MyDD->LoadData = MyLoadData;
      MyDD->StoreData = MyStoreData;
    }

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

    FillListBox();
    UpdateButtons(true);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SaveBtnClick(TObject *Sender)
{
  if (SD1->Execute())
    MyDD->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			#include <stdlib.h>
29			#include "ExDictU.h"
30			//---------------------------------------------------------------------------
31			#pragma package(smart_init)
32			#pragma link "StDict"
33
34			#pragma resource "*.dfm"
35			TForm1 *Form1;
36			//---------------------------------------------------------------------------
37			__fastcall TForm1::TForm1(TComponent* Owner)
38			: TForm(Owner)
39			{
40			}
41			//---------------------------------------------------------------------------
42			bool __fastcall DDWalker(TStContainer* Container, TStNode* Node, void * OtherData)
43			{
44			TStDictNode* N = (TStDictNode*) Node;
45			ShortString S = (ShortString) N->Data;
46			Form1->LB1->Items->Add(((TStDictNode)Node)->Name + " = " + S);
47			return true;
48			}
49			//---------------------------------------------------------------------------
50			void * __fastcall MyLoadData(Classes::TReader* Reader)
51			{
52			ShortString * S;
53			S = new ShortString;
54			*S = Reader->ReadString();
55			return (void *) S;
56			}
57			//---------------------------------------------------------------------------
58			void __fastcall MyStoreData(Classes::TWriter* Writer, void * Data)
59			{
60			ShortString S = (ShortString) Data;
61			Writer->WriteString(*S);
62			}
63			//---------------------------------------------------------------------------
64			void TForm1::FillListBox(void)
65			{
66			LB1->Clear();
67			LB1->Perform(WM_SETREDRAW, 0, 0);
68
69			MyDD->Iterate(DDWalker, 0);
70
71			LB1->Perform(WM_SETREDRAW, 1, 0);
72			LB1->Update();
73			}
74			//---------------------------------------------------------------------------
75			void TForm1::UpdateButtons(bool DOK)
76			{
77			ClearBtn->Enabled = DOK;
78			AddBtn->Enabled = DOK;
79			UpdateBtn->Enabled = DOK;
80			ExistsBtn->Enabled = DOK;
81			DelBtn->Enabled = DOK;
82			SaveBtn->Enabled = DOK;
83			LB1->Enabled = DOK;
84			}
85			//---------------------------------------------------------------------------
86			String TForm1::RandomData(void)
87			{
88			int Len = random(100)+1;
89			String S = "";
90			for (int I = 1; I <= Len; I++)
91			S = S + (char)(random(26) + 'A');
92			return S;
93			}
94			//---------------------------------------------------------------------------
95			void __fastcall TForm1::FormCreate(TObject *Sender)
96			{
97			RegisterClassAlias(__classid(TStDictionary), "TStDictionary");
98			RegisterClassAlias(__classid(TStDictNode), "TStDictNode");
99			UpdateButtons(false);
100			}
101			//---------------------------------------------------------------------------
102			void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
103			{
104			delete MyDD;
105			}
106			//---------------------------------------------------------------------------
107			void __fastcall TForm1::LB1Click(TObject *Sender)
108			{
109			String S1, S2;
110			int P, Len;
111
112			S1 = LB1->Items->Strings[LB1->ItemIndex];
113			S2 = S1;
114			Len = S1.Length();
115			P = S1.Pos("=");
116
117			S1.Delete(P-1, Len-P+2);
118			Edit1->Text = S1;
119
120			S2.Delete(1, P+1);
121			Edit2->Text = S2;
122			}
123			//---------------------------------------------------------------------------
124			void __fastcall TForm1::LB1DblClick(TObject *Sender)
125			{
126			void * P;
127
128			if (MyDD->Exists(Edit1->Text, P)) {
129			MyDD->Delete(Edit1->Text);
130			FillListBox();
131			}
132			LB1->ItemIndex = 0;
133			LB1Click(LB1);
134			}
135			//---------------------------------------------------------------------------
136			void __fastcall TForm1::CreateBtnClick(TObject *Sender)
137			{
138			ShortString *S;
139
140			randomize;
141			if (MyDD)
142			delete MyDD;
143
144			UpdateButtons(false);
145			MyDD = new TStDictionary(127);
146			MyDD->LoadData = MyLoadData;
147			MyDD->StoreData = MyStoreData;
148			MyDD->Hash = AnsiELFHashText;
149
150			for (int I = 1; I <= 100; I++) {
151			S = new ShortString;
152			*S = RandomData();
153			MyDD->Add("Item" + IntToStr(I), S);
154			}
155			FillListBox();
156			UpdateButtons(true);
157			}
158			//---------------------------------------------------------------------------
159			void __fastcall TForm1::ClearBtnClick(TObject *Sender)
160			{
161			LB1->Clear();
162			MyDD->Clear();
163			Edit1->Clear();
164			Edit2->Clear();
165			}
166			//---------------------------------------------------------------------------
167			void __fastcall TForm1::AddBtnClick(TObject *Sender)
168			{
169			ShortString Name;
170			ShortString *PS;
171
172			if ((Edit1->Text == "") \|\| (Edit2->Text == "")) {
173			ShowMessage("Name and/or data missing");
174			return;
175			}
176
177			PS = new ShortString;
178			*PS = Edit2->Text;
179			Name = Edit1->Text;
180
181			MyDD->Add(Name, PS);
182
183			FillListBox();
184			}
185			//---------------------------------------------------------------------------
186			void __fastcall TForm1::UpdateBtnClick(TObject *Sender)
187			{
188			void * P;
189
190			if ((Edit1->Text == "") \|\| (Edit2->Text == "")) {
191			ShowMessage("Name and/or data missing");
192			return;
193			}
194
195			if (MyDD->Exists(Edit1->Text, P)) {
196			((ShortString)P) = Edit2->Text;
197			MyDD->Update(Edit1->Text, P);
198			} else {
199			ShowMessage(Edit1->Text + " not found");
200			return;
201			}
202			FillListBox();
203			}
204			//---------------------------------------------------------------------------
205			void __fastcall TForm1::ExistsBtnClick(TObject *Sender)
206			{
207			void *S;
208
209			if (Edit1->Text == "") {
210			ShowMessage("No name entry");
211			return;
212			}
213
214			if (MyDD->Exists(Edit1->Text, S)) {
215			Edit2->Clear();
216			Edit2->Text = ((ShortString)S);
217			Edit2->Update();
218			} else
219			ShowMessage("No matching entry found");
220			}
221			//---------------------------------------------------------------------------
222			void __fastcall TForm1::DelBtnClick(TObject *Sender)
223			{
224			void * P;
225
226			if (Edit1->Text == "") {
227			ShowMessage("No name entered");
228			return;
229			}
230
231			if (MyDD->Exists(Edit1->Text, P)) {
232			MyDD->Delete(Edit1->Text);
233			FillListBox();
234			} else
235			ShowMessage("Entry not found");
236			}
237			//---------------------------------------------------------------------------
238			void __fastcall TForm1::LoadBtnClick(TObject *Sender)
239			{
240			if (OD1->Execute()) {
241			if (!MyDD) {
242			UpdateButtons(false);
243			MyDD = new TStDictionary(127);
244			MyDD->LoadData = MyLoadData;
245			MyDD->StoreData = MyStoreData;
246			}
247
248			MyDD->Clear();
249			MyDD->LoadFromFile(OD1->FileName);
250
251			FillListBox();
252			UpdateButtons(true);
253			}
254			}
255			//---------------------------------------------------------------------------
256			void __fastcall TForm1::SaveBtnClick(TObject *Sender)
257			{
258			if (SD1->Execute())
259			MyDD->StoreToFile(SD1->FileName);
260			}
261			//---------------------------------------------------------------------------