examples/Delphi/Ex3DArrU.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 Ex3DArrU;

interface

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

  StConst, StBase, StLArr;

type
  TMy3D = class(TStLArray)
  protected
    XMax,
    YMax,
    ZMax    : LongInt;
  public
    constructor Create(X, Y, Z : Cardinal);
    destructor Destroy; override;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Edit4: TEdit;
    Label4: TLabel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    My3D : TMy3D;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
const
  MaxX = 50;
  MaxY = 50;
  MaxZ = 50;

constructor TMy3D.Create(X, Y, Z : Cardinal);
var
  row,
  col,
  up,
  Value : LongInt;
  A     : TStLMatrix;
begin
  XMax := X;
  YMax := Y;
  ZMax := Z;

  inherited Create(ZMax, SizeOf(TStLMatrix));
  for up := 0 to ZMax-1 do
  begin
    A := TStLMatrix.Create(XMax, YMax, SizeOf(LongInt));
    for row := 0 to YMax-1 do
      for col := 0 to XMax-1 do begin
        Value := up+100*col+10000*row;
        A.Put(row, col, Value);
      end;
    Put(up, A);
  end;
end;

destructor TMy3D.Destroy;
var
  Up : LongInt;
  A  : TStLMatrix;
begin
  for Up := 0 to ZMax-1 do
  begin
    Get(Up, A);
    if Assigned(A) then
      A.Free;
  end;
  inherited Destroy;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  My3D := TMy3D.Create(MaxX, MaxY, MaxZ);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  My3D.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  XV,
  YV,
  ZV,
  Value  : LongInt;
  Z      : TStLMatrix;
begin
  XV := StrToInt(Edit1.Text);
  YV := StrToInt(Edit2.Text);
  ZV := StrToInt(Edit3.Text);
  if (XV < 0) or (XV >= MaxX) then begin
    Edit1.Text := '0';
    XV := StrToInt(Edit1.Text);
  end;
  if (YV < 0) or (YV >= MaxY) then begin
    Edit2.Text := '0';
    YV := StrToInt(Edit2.Text);
  end;
  if (ZV < 0) or (ZV >= MaxZ) then begin
    Edit3.Text := '0';
    ZV := StrToInt(Edit3.Text);
  end;

  My3D.Get(ZV, Z);
  Z.Get(XV, YV, Value);
  Edit4.Text := IntToStr(Value);
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 Ex3DArrU;
27
28	interface
29
30	uses
31	Windows, Messages, SysUtils, Classes, Graphics, Controls,
32	Forms, Dialogs, StdCtrls,
33
34	StConst, StBase, StLArr;
35
36	type
37	TMy3D = class(TStLArray)
38	protected
39	XMax,
40	YMax,
41	ZMax : LongInt;
42	public
43	constructor Create(X, Y, Z : Cardinal);
44	destructor Destroy; override;
45	end;
46
47	TForm1 = class(TForm)
48	Button1: TButton;
49	Edit4: TEdit;
50	Label4: TLabel;
51	GroupBox1: TGroupBox;
52	Label1: TLabel;
53	Edit1: TEdit;
54	Label2: TLabel;
55	Edit2: TEdit;
56	Label3: TLabel;
57	Edit3: TEdit;
58	procedure FormCreate(Sender: TObject);
59	procedure FormClose(Sender: TObject; var Action: TCloseAction);
60	procedure Button1Click(Sender: TObject);
61	private
62	{ Private declarations }
63	public
64	{ Public declarations }
65	My3D : TMy3D;
66	end;
67
68	var
69	Form1: TForm1;
70
71	implementation
72
73	{$R *.DFM}
74	const
75	MaxX = 50;
76	MaxY = 50;
77	MaxZ = 50;
78
79	constructor TMy3D.Create(X, Y, Z : Cardinal);
80	var
81	row,
82	col,
83	up,
84	Value : LongInt;
85	A : TStLMatrix;
86	begin
87	XMax := X;
88	YMax := Y;
89	ZMax := Z;
90
91	inherited Create(ZMax, SizeOf(TStLMatrix));
92	for up := 0 to ZMax-1 do
93	begin
94	A := TStLMatrix.Create(XMax, YMax, SizeOf(LongInt));
95	for row := 0 to YMax-1 do
96	for col := 0 to XMax-1 do begin
97	Value := up+100col+10000row;
98	A.Put(row, col, Value);
99	end;
100	Put(up, A);
101	end;
102	end;
103
104	destructor TMy3D.Destroy;
105	var
106	Up : LongInt;
107	A : TStLMatrix;
108	begin
109	for Up := 0 to ZMax-1 do
110	begin
111	Get(Up, A);
112	if Assigned(A) then
113	A.Free;
114	end;
115	inherited Destroy;
116	end;
117
118	procedure TForm1.FormCreate(Sender: TObject);
119	begin
120	My3D := TMy3D.Create(MaxX, MaxY, MaxZ);
121	end;
122
123	procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
124	begin
125	My3D.Free;
126	end;
127
128	procedure TForm1.Button1Click(Sender: TObject);
129	var
130	XV,
131	YV,
132	ZV,
133	Value : LongInt;
134	Z : TStLMatrix;
135	begin
136	XV := StrToInt(Edit1.Text);
137	YV := StrToInt(Edit2.Text);
138	ZV := StrToInt(Edit3.Text);
139	if (XV < 0) or (XV >= MaxX) then begin
140	Edit1.Text := '0';
141	XV := StrToInt(Edit1.Text);
142	end;
143	if (YV < 0) or (YV >= MaxY) then begin
144	Edit2.Text := '0';
145	YV := StrToInt(Edit2.Text);
146	end;
147	if (ZV < 0) or (ZV >= MaxZ) then begin
148	Edit3.Text := '0';
149	ZV := StrToInt(Edit3.Text);
150	end;
151
152	My3D.Get(ZV, Z);
153	Z.Get(XV, YV, Value);
154	Edit4.Text := IntToStr(Value);
155	end;
156
157	end.