examples/Delphi/ExTreeU.pas

(* ***** 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 ***** *)

unit ExTreeU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls,

  StConst, StBase, StTree;

type
  S10 = String[10];
  S15 = String[15];

  PersonRecord = record
    First : S10;
    Last  : S15;
    Age   : Integer;
  end;
  PPersonRecord = ^PersonRecord;

  TSTDlg = class(TForm)
    CreateBtn: TButton;
    ClearBtn: TButton;
    LB1: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    InsertBtn: TButton;
    DeleteBtn: TButton;
    FindBtn: TButton;
    SearchBtn: TButton;
    LoadBtn: TButton;
    SaveBtn: TButton;
    OD1: TOpenDialog;
    SD1: TSaveDialog;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CreateBtnClick(Sender: TObject);
    procedure ClearBtnClick(Sender: TObject);
    procedure InsertBtnClick(Sender: TObject);
    procedure DeleteBtnClick(Sender: TObject);
    procedure FindBtnClick(Sender: TObject);
    procedure SearchBtnClick(Sender: TObject);
    procedure LB1DblClick(Sender: TObject);
    procedure SaveBtnClick(Sender: TObject);
    procedure LoadBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetBusy(B : Boolean);
    procedure FillListBox;
    procedure FillControls(PR : PersonRecord);
    function GetControls(var PR : PersonRecord) : Boolean;
    procedure UpdateButtons(TOK : Boolean);
  end;

const
  MaxElem = 3000;

var
  STDlg: TSTDlg;
  FirstA : array[0..7] of S10;
  LastA  : array[0..7] of S15;
  MyTree : TStTree;


implementation

{$R *.DFM}

function MyLoadData(Reader : TReader) : Pointer; far;
begin
  GetMem(Result,SizeOf(PersonRecord));
  with PersonRecord(Result^), Reader do
  begin
    First := ReadString;
    Last  := ReadString;
    Age   := ReadInteger;
  end;
end;

procedure MyStoreData(Writer : TWriter; Data : Pointer); far;
var
  PR : PersonRecord;
begin
  PR := PersonRecord(Data^);
  with Writer do
  begin
    WriteString(PR.First);
    WriteString(PR.Last);
    WriteInteger(PR.Age);
  end;
end;


procedure MyDisposeData(Data : Pointer); far;
begin
  FreeMem(Data, SizeOf(PersonRecord));
end;

function MySortTree(Data1, Data2 : Pointer) : Integer; far;
var
  R1 : PPersonRecord absolute Data1;
  R2 : PPersonRecord absolute Data2;
begin
  Result := CompareText(R1^.Last, R2^.Last);
  if Result = 0 then
    CompareText(R1^.First, R2^.First);
  if Result = 0 then
    Result := (R1^.Age - R2^.Age);
end;

function MyTreeWalker(Contariner : TStContainer;
                      Node : TStNode;
                      OtherData : Pointer) : Boolean; far;
var
  R : PersonRecord;
  S : String;
begin
  R := PersonRecord(Node.Data^);
  S := R.Last + ', ' + R.First + ', ' + IntToStr(R.Age);
  STDlg.LB1.Items.Add(S);
  Result := True;
end;

function MyTreeSearcher(Contariner : TStContainer;
                        Node : TStNode;
                        OtherData : Pointer) : Boolean; far;

var
  S   : string;
  R1  : PersonRecord;
  R2  : PPersonRecord absolute OtherData;
begin
  R1 := PersonRecord(Node.Data^);
  if (CompareText(R1.Last, R2^.Last) = 0) then
  begin
    S := 'Match: ' + R1.First + ' ' + R1.Last + ', ' + IntToStr(R1.Age);
    if MessageDlg(S,mtInformation,[mbOK,mbCancel],0) = mrCancel then
      Result := False
    else
      Result := True;
  end else
    Result := True;
end;

procedure TSTDlg.SetBusy(B : Boolean);
begin
  if B then
    Screen.Cursor := crHourGlass
  else
    Screen.Cursor := crDefault;
end;

procedure TSTDlg.FillListBox;
begin
  LB1.Clear;
  LB1.Perform(WM_SETREDRAW,0,0);
  SetBusy(True);

  MyTree.Iterate(MyTreeWalker,True,nil);

  LB1.Perform(WM_SETREDRAW,1,0);
  LB1.Update;
  SetBusy(False);
end;

procedure TSTDlg.FillControls(PR : PersonRecord);
begin
  Edit1.Text := PR.First;
  Edit2.Text := PR.Last;
  Edit3.Text := IntToStr(PR.Age);
end;

function TSTDlg.GetControls(var PR : PersonRecord) : Boolean;
var
  I,
  Code : Integer;
begin
  Result := False;
  if (Edit1.Text = '') OR
     (Edit2.Text = '') OR
     (Edit3.Text = '') then
    Exit;

  PR.First := Edit1.Text;
  PR.Last  := Edit2.Text;

  Val(Edit3.Text,I,Code);
  if (Code <> 0) then
    Exit
  else
    PR.Age := I;
  Result := True;
end;


procedure TSTDlg.UpdateButtons(TOK : Boolean);
begin
  ClearBtn.Enabled  := TOK;
  InsertBtn.Enabled := TOK;
  DeleteBtn.Enabled := TOK;
  FindBtn.Enabled   := TOK;
  SearchBtn.Enabled := TOK;
  SaveBtn.Enabled   := TOK;
end;


procedure TSTDlg.FormCreate(Sender: TObject);
begin
  RegisterClasses([TStTree,TStTreeNode]);
  UpdateButtons(False);
end;


procedure TSTDlg.FormActivate(Sender: TObject);
begin
  FirstA[0] := 'Fred';
  FirstA[1] := 'Mike';
  FirstA[2] := 'Barney';
  FirstA[3] := 'Horatio';
  FirstA[4] := 'Mickey';
  FirstA[5] := 'Arthur';
  FirstA[6] := 'Santa';
  FirstA[7] := 'John Q. ';

  LastA[0] := 'Flintstone';
  LastA[1] := 'Hammer';
  LastA[2] := 'Rubble';
  LastA[3] := 'Hornblower';
  LastA[4] := 'Spilane';
  LastA[5] := 'Miller';
  LastA[6] := 'Claus';
  LastA[7] := 'Public';
end;

procedure TSTDlg.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  MyTree.Free;
end;

procedure TSTDlg.CreateBtnClick(Sender: TObject);
var
  I  : Integer;
  PR : PPersonRecord;
  TN : TStTreeNode;
begin
  if Assigned(MyTree) then
    MyTree.Free;

  UpdateButtons(False);
  MyTree:= TStTree.Create(TStTreeNode);

  MyTree.Compare := MySortTree;
  MyTree.DisposeData := MyDisposeData;
  MyTree.LoadData := MyLoadData;
  MyTree.StoreData := MyStoreData;

  SetBusy(True);
  for I := 0 to MaxElem-1 do
  begin
    if (I mod 250 = 0) then Randomize;
    GetMem(PR, SizeOf(PersonRecord));
    with PR^ do
    repeat
      First := FirstA[Random(8)];
      Last := LastA[Random(8)];
      Age := Random(10000);

      {search for duplicate entry, if found - don't try to add}
      TN := MyTree.Find(PR);
      if TN = nil then
        MyTree.Insert(PR);
    until TN = nil;
  end;
  FillListBox;
  SetBusy(False);
  UpdateButtons(True);
end;

procedure TSTDlg.ClearBtnClick(Sender: TObject);
begin
  MyTree.Clear;
  LB1.Clear;
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
end;

procedure TSTDlg.InsertBtnClick(Sender: TObject);
var
  PR : PPersonRecord;
begin
  GetMem(PR, SizeOf(PersonRecord));
  if NOT (GetControls(PR^)) then
  begin
    FreeMem(PR, SizeOf(PersonRecord));
    ShowMessage('One or more fields invalid');
    Exit;
  end else
  begin
    MyTree.Insert(PR);
    FillListBox;
  end;
end;

procedure TSTDlg.DeleteBtnClick(Sender: TObject);
var
  PR : PersonRecord;
  TN : TStTreeNode;
begin
  if NOT (GetControls(PR)) then
  begin
    ShowMessage('One or more invalid entry fields');
    Exit;
  end;
  TN := MyTree.Find(@PR);
  if (TN <> nil) then
  begin
    MyTree.Delete(@PR);
    FillListBox;
  end else
    ShowMessage('Record not found');
end;

procedure TSTDlg.FindBtnClick(Sender: TObject);
var
  PR : PersonRecord;
  TN : TStTreeNode;
begin
  if NOT (GetControls(PR)) then
  begin
    ShowMessage('One or more invalid entry fields');
    Exit;
  end;

  TN := MyTree.Find(@PR);
  if (TN <> nil) then
    ShowMessage('Record was found');
end;

procedure TSTDlg.SearchBtnClick(Sender: TObject);
var
  PR : PersonRecord;
begin
  PR.Last := Edit2.Text;
  MyTree.Iterate(MyTreeSearcher, True, @PR);
end;

procedure TSTDlg.LB1DblClick(Sender: TObject);
var
  I,
  L  : Integer;
  PR : PersonRecord;
  S  : string;
  TN : TStTreeNode;

begin
  S := LB1.Items[LB1.ItemIndex];
  L := Length(S);
  I := pos(',', S);

  PR.Last := S;
  Delete(PR.Last, I, L-I+1);
  Delete(S, 1, I+1);

  PR.First := S;
  L := Length(PR.First);
  I := pos(',', PR.First);

  Delete(PR.First, I, L-I+1);
  Delete(S, 1, I+1);
  PR.Age := StrToInt(S);

  TN := MyTree.Find(@PR);
  if TN <> nil then
  begin
    MyTree.Delete(@PR);
    FillListBox;
  end;
end;

procedure TSTDlg.LoadBtnClick(Sender: TObject);
begin
  if OD1.Execute then
  begin
    if (NOT Assigned(MyTree)) then
    begin
      UpdateButtons(False);
      MyTree:= TStTree.Create(TStTreeNode);
      MyTree.Compare := MySortTree;
      MyTree.DisposeData := MyDisposeData;
      MyTree.LoadData := MyLoadData;
      MyTree.StoreData := MyStoreData;
    end;

    MyTree.Clear;
    MyTree.LoadFromFile(OD1.FileName);
    FillListBox;
    UpdateButtons(True);
  end;
end;

procedure TSTDlg.SaveBtnClick(Sender: TObject);
begin
  if SD1.Execute then
    MyTree.StoreToFile(SD1.FileName);
end;

end.
1	(* *** 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	unit ExTreeU;
27
28	interface
29
30	uses
31	Windows, Messages, SysUtils, Classes, Graphics, Controls,
32	Forms, Dialogs, StdCtrls,
33
34	StConst, StBase, StTree;
35
36	type
37	S10 = String[10];
38	S15 = String[15];
39
40	PersonRecord = record
41	First : S10;
42	Last : S15;
43	Age : Integer;
44	end;
45	PPersonRecord = ^PersonRecord;
46
47	TSTDlg = class(TForm)
48	CreateBtn: TButton;
49	ClearBtn: TButton;
50	LB1: TListBox;
51	Label1: TLabel;
52	Label2: TLabel;
53	Label3: TLabel;
54	Edit1: TEdit;
55	Edit2: TEdit;
56	Edit3: TEdit;
57	InsertBtn: TButton;
58	DeleteBtn: TButton;
59	FindBtn: TButton;
60	SearchBtn: TButton;
61	LoadBtn: TButton;
62	SaveBtn: TButton;
63	OD1: TOpenDialog;
64	SD1: TSaveDialog;
65	procedure FormActivate(Sender: TObject);
66	procedure FormClose(Sender: TObject; var Action: TCloseAction);
67	procedure CreateBtnClick(Sender: TObject);
68	procedure ClearBtnClick(Sender: TObject);
69	procedure InsertBtnClick(Sender: TObject);
70	procedure DeleteBtnClick(Sender: TObject);
71	procedure FindBtnClick(Sender: TObject);
72	procedure SearchBtnClick(Sender: TObject);
73	procedure LB1DblClick(Sender: TObject);
74	procedure SaveBtnClick(Sender: TObject);
75	procedure LoadBtnClick(Sender: TObject);
76	procedure FormCreate(Sender: TObject);
77	private
78	{ Private declarations }
79	public
80	{ Public declarations }
81	procedure SetBusy(B : Boolean);
82	procedure FillListBox;
83	procedure FillControls(PR : PersonRecord);
84	function GetControls(var PR : PersonRecord) : Boolean;
85	procedure UpdateButtons(TOK : Boolean);
86	end;
87
88	const
89	MaxElem = 3000;
90
91	var
92	STDlg: TSTDlg;
93	FirstA : array[0..7] of S10;
94	LastA : array[0..7] of S15;
95	MyTree : TStTree;
96
97
98	implementation
99
100	{$R *.DFM}
101
102	function MyLoadData(Reader : TReader) : Pointer; far;
103	begin
104	GetMem(Result,SizeOf(PersonRecord));
105	with PersonRecord(Result^), Reader do
106	begin
107	First := ReadString;
108	Last := ReadString;
109	Age := ReadInteger;
110	end;
111	end;
112
113	procedure MyStoreData(Writer : TWriter; Data : Pointer); far;
114	var
115	PR : PersonRecord;
116	begin
117	PR := PersonRecord(Data^);
118	with Writer do
119	begin
120	WriteString(PR.First);
121	WriteString(PR.Last);
122	WriteInteger(PR.Age);
123	end;
124	end;
125
126
127	procedure MyDisposeData(Data : Pointer); far;
128	begin
129	FreeMem(Data, SizeOf(PersonRecord));
130	end;
131
132	function MySortTree(Data1, Data2 : Pointer) : Integer; far;
133	var
134	R1 : PPersonRecord absolute Data1;
135	R2 : PPersonRecord absolute Data2;
136	begin
137	Result := CompareText(R1^.Last, R2^.Last);
138	if Result = 0 then
139	CompareText(R1^.First, R2^.First);
140	if Result = 0 then
141	Result := (R1^.Age - R2^.Age);
142	end;
143
144	function MyTreeWalker(Contariner : TStContainer;
145	Node : TStNode;
146	OtherData : Pointer) : Boolean; far;
147	var
148	R : PersonRecord;
149	S : String;
150	begin
151	R := PersonRecord(Node.Data^);
152	S := R.Last + ', ' + R.First + ', ' + IntToStr(R.Age);
153	STDlg.LB1.Items.Add(S);
154	Result := True;
155	end;
156
157	function MyTreeSearcher(Contariner : TStContainer;
158	Node : TStNode;
159	OtherData : Pointer) : Boolean; far;
160
161	var
162	S : string;
163	R1 : PersonRecord;
164	R2 : PPersonRecord absolute OtherData;
165	begin
166	R1 := PersonRecord(Node.Data^);
167	if (CompareText(R1.Last, R2^.Last) = 0) then
168	begin
169	S := 'Match: ' + R1.First + ' ' + R1.Last + ', ' + IntToStr(R1.Age);
170	if MessageDlg(S,mtInformation,[mbOK,mbCancel],0) = mrCancel then
171	Result := False
172	else
173	Result := True;
174	end else
175	Result := True;
176	end;
177
178	procedure TSTDlg.SetBusy(B : Boolean);
179	begin
180	if B then
181	Screen.Cursor := crHourGlass
182	else
183	Screen.Cursor := crDefault;
184	end;
185
186	procedure TSTDlg.FillListBox;
187	begin
188	LB1.Clear;
189	LB1.Perform(WM_SETREDRAW,0,0);
190	SetBusy(True);
191
192	MyTree.Iterate(MyTreeWalker,True,nil);
193
194	LB1.Perform(WM_SETREDRAW,1,0);
195	LB1.Update;
196	SetBusy(False);
197	end;
198
199	procedure TSTDlg.FillControls(PR : PersonRecord);
200	begin
201	Edit1.Text := PR.First;
202	Edit2.Text := PR.Last;
203	Edit3.Text := IntToStr(PR.Age);
204	end;
205
206	function TSTDlg.GetControls(var PR : PersonRecord) : Boolean;
207	var
208	I,
209	Code : Integer;
210	begin
211	Result := False;
212	if (Edit1.Text = '') OR
213	(Edit2.Text = '') OR
214	(Edit3.Text = '') then
215	Exit;
216
217	PR.First := Edit1.Text;
218	PR.Last := Edit2.Text;
219
220	Val(Edit3.Text,I,Code);
221	if (Code <> 0) then
222	Exit
223	else
224	PR.Age := I;
225	Result := True;
226	end;
227
228
229	procedure TSTDlg.UpdateButtons(TOK : Boolean);
230	begin
231	ClearBtn.Enabled := TOK;
232	InsertBtn.Enabled := TOK;
233	DeleteBtn.Enabled := TOK;
234	FindBtn.Enabled := TOK;
235	SearchBtn.Enabled := TOK;
236	SaveBtn.Enabled := TOK;
237	end;
238
239
240	procedure TSTDlg.FormCreate(Sender: TObject);
241	begin
242	RegisterClasses([TStTree,TStTreeNode]);
243	UpdateButtons(False);
244	end;
245
246
247	procedure TSTDlg.FormActivate(Sender: TObject);
248	begin
249	FirstA[0] := 'Fred';
250	FirstA[1] := 'Mike';
251	FirstA[2] := 'Barney';
252	FirstA[3] := 'Horatio';
253	FirstA[4] := 'Mickey';
254	FirstA[5] := 'Arthur';
255	FirstA[6] := 'Santa';
256	FirstA[7] := 'John Q. ';
257
258	LastA[0] := 'Flintstone';
259	LastA[1] := 'Hammer';
260	LastA[2] := 'Rubble';
261	LastA[3] := 'Hornblower';
262	LastA[4] := 'Spilane';
263	LastA[5] := 'Miller';
264	LastA[6] := 'Claus';
265	LastA[7] := 'Public';
266	end;
267
268	procedure TSTDlg.FormClose(Sender: TObject; var Action: TCloseAction);
269	begin
270	MyTree.Free;
271	end;
272
273	procedure TSTDlg.CreateBtnClick(Sender: TObject);
274	var
275	I : Integer;
276	PR : PPersonRecord;
277	TN : TStTreeNode;
278	begin
279	if Assigned(MyTree) then
280	MyTree.Free;
281
282	UpdateButtons(False);
283	MyTree:= TStTree.Create(TStTreeNode);
284
285	MyTree.Compare := MySortTree;
286	MyTree.DisposeData := MyDisposeData;
287	MyTree.LoadData := MyLoadData;
288	MyTree.StoreData := MyStoreData;
289
290	SetBusy(True);
291	for I := 0 to MaxElem-1 do
292	begin
293	if (I mod 250 = 0) then Randomize;
294	GetMem(PR, SizeOf(PersonRecord));
295	with PR^ do
296	repeat
297	First := FirstA[Random(8)];
298	Last := LastA[Random(8)];
299	Age := Random(10000);
300
301	{search for duplicate entry, if found - don't try to add}
302	TN := MyTree.Find(PR);
303	if TN = nil then
304	MyTree.Insert(PR);
305	until TN = nil;
306	end;
307	FillListBox;
308	SetBusy(False);
309	UpdateButtons(True);
310	end;
311
312	procedure TSTDlg.ClearBtnClick(Sender: TObject);
313	begin
314	MyTree.Clear;
315	LB1.Clear;
316	Edit1.Text := '';
317	Edit2.Text := '';
318	Edit3.Text := '';
319	end;
320
321	procedure TSTDlg.InsertBtnClick(Sender: TObject);
322	var
323	PR : PPersonRecord;
324	begin
325	GetMem(PR, SizeOf(PersonRecord));
326	if NOT (GetControls(PR^)) then
327	begin
328	FreeMem(PR, SizeOf(PersonRecord));
329	ShowMessage('One or more fields invalid');
330	Exit;
331	end else
332	begin
333	MyTree.Insert(PR);
334	FillListBox;
335	end;
336	end;
337
338	procedure TSTDlg.DeleteBtnClick(Sender: TObject);
339	var
340	PR : PersonRecord;
341	TN : TStTreeNode;
342	begin
343	if NOT (GetControls(PR)) then
344	begin
345	ShowMessage('One or more invalid entry fields');
346	Exit;
347	end;
348	TN := MyTree.Find(@PR);
349	if (TN <> nil) then
350	begin
351	MyTree.Delete(@PR);
352	FillListBox;
353	end else
354	ShowMessage('Record not found');
355	end;
356
357	procedure TSTDlg.FindBtnClick(Sender: TObject);
358	var
359	PR : PersonRecord;
360	TN : TStTreeNode;
361	begin
362	if NOT (GetControls(PR)) then
363	begin
364	ShowMessage('One or more invalid entry fields');
365	Exit;
366	end;
367
368	TN := MyTree.Find(@PR);
369	if (TN <> nil) then
370	ShowMessage('Record was found');
371	end;
372
373	procedure TSTDlg.SearchBtnClick(Sender: TObject);
374	var
375	PR : PersonRecord;
376	begin
377	PR.Last := Edit2.Text;
378	MyTree.Iterate(MyTreeSearcher, True, @PR);
379	end;
380
381	procedure TSTDlg.LB1DblClick(Sender: TObject);
382	var
383	I,
384	L : Integer;
385	PR : PersonRecord;
386	S : string;
387	TN : TStTreeNode;
388
389	begin
390	S := LB1.Items[LB1.ItemIndex];
391	L := Length(S);
392	I := pos(',', S);
393
394	PR.Last := S;
395	Delete(PR.Last, I, L-I+1);
396	Delete(S, 1, I+1);
397
398	PR.First := S;
399	L := Length(PR.First);
400	I := pos(',', PR.First);
401
402	Delete(PR.First, I, L-I+1);
403	Delete(S, 1, I+1);
404	PR.Age := StrToInt(S);
405
406	TN := MyTree.Find(@PR);
407	if TN <> nil then
408	begin
409	MyTree.Delete(@PR);
410	FillListBox;
411	end;
412	end;
413
414	procedure TSTDlg.LoadBtnClick(Sender: TObject);
415	begin
416	if OD1.Execute then
417	begin
418	if (NOT Assigned(MyTree)) then
419	begin
420	UpdateButtons(False);
421	MyTree:= TStTree.Create(TStTreeNode);
422	MyTree.Compare := MySortTree;
423	MyTree.DisposeData := MyDisposeData;
424	MyTree.LoadData := MyLoadData;
425	MyTree.StoreData := MyStoreData;
426	end;
427
428	MyTree.Clear;
429	MyTree.LoadFromFile(OD1.FileName);
430	FillListBox;
431	UpdateButtons(True);
432	end;
433	end;
434
435	procedure TSTDlg.SaveBtnClick(Sender: TObject);
436	begin
437	if SD1.Execute then
438	MyTree.StoreToFile(SD1.FileName);
439	end;
440
441	end.