Add Set Demo example
This commit is contained in:
Timothy Warren
parent
c280226e4d
commit
39728691b3
95
set_demo/dualdigitsset.pas
Normal file
95
set_demo/dualdigitsset.pas
Normal file
@ -0,0 +1,95 @@
|
||||
unit dualdigitsset;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
SysUtils;
|
||||
|
||||
type
|
||||
TDigits = 0..9;
|
||||
TDigitSet = set of TDigits;
|
||||
|
||||
{ TDualAZSet }
|
||||
|
||||
TDualAZSet = class
|
||||
private
|
||||
FsetA, FsetZ: TDigitSet;
|
||||
function GetDiffAZAsText: string;
|
||||
function GetDiffZAAsText: string;
|
||||
function GetIntersectionAsText: string;
|
||||
function GetSetAasText: string;
|
||||
function GetSetZasText: string;
|
||||
function GetSymDiffAsText: string;
|
||||
function GetUnionAsText: string;
|
||||
function SetAsString(s: TDigitSet): string;
|
||||
public
|
||||
property DiffAZAsText: string read GetDiffAZAsText;
|
||||
property DiffZAAsText: string read GetDiffZAAsText;
|
||||
property IntersectionAsText: string read GetIntersectionAsText;
|
||||
property SetA: TDigitSet read FsetA write FsetA;
|
||||
property SetAasText: string read GetSetAasText;
|
||||
property SetZ: TDigitSet read FsetZ write FsetZ;
|
||||
property SetZasText: string read GetSetZasText;
|
||||
property SymDiffAsText: string read GetSymDiffAsText;
|
||||
property UnionAsText: string read GetUnionAsText;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
{ TDualAZSet }
|
||||
|
||||
function TDualAZSet.GetDiffAZAsText: string;
|
||||
begin
|
||||
Result := SetAsString(FsetA - FsetZ);
|
||||
end;
|
||||
|
||||
function TDualAZSet.GetDiffZAAsText: string;
|
||||
begin
|
||||
Result := SetAsString(FsetZ - FsetA);
|
||||
end;
|
||||
|
||||
function TDualAZSet.GetIntersectionAsText: string;
|
||||
begin
|
||||
Result := SetAsString(FsetA * FsetZ);
|
||||
end;
|
||||
|
||||
function TDualAZSet.GetSetAasText: string;
|
||||
begin
|
||||
Result := SetAsString(FsetA);
|
||||
end;
|
||||
|
||||
function TDualAZSet.GetSetZasText: string;
|
||||
begin
|
||||
Result := SetAsString(FsetZ);
|
||||
end;
|
||||
|
||||
function TDualAZSet.GetSymDiffAsText: string;
|
||||
begin
|
||||
Result := SetAsString(FsetA + FsetZ - FsetA * FsetZ);
|
||||
end;
|
||||
|
||||
function TDualAZSet.GetUnionAsText: string;
|
||||
begin
|
||||
Result := SetAsString(FsetA + FsetZ);
|
||||
end;
|
||||
|
||||
function TDualAZSet.SetAsString(s: TDigitSet): string;
|
||||
var d: TDigits;
|
||||
begin
|
||||
Result := EmptyStr;
|
||||
for d in TDigitSet do
|
||||
if (d in s) then
|
||||
begin
|
||||
if Length(Result) > 0
|
||||
then AppendStr(Result, ',');
|
||||
|
||||
AppendStr(Result, IntToStr(d));
|
||||
end;
|
||||
|
||||
Result := Format('[%s]', [Result]);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
BIN
set_demo/setdemo.ico
Normal file
BIN
set_demo/setdemo.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 134 KiB |
83
set_demo/setdemo.lpi
Normal file
83
set_demo/setdemo.lpi
Normal file
@ -0,0 +1,83 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<Version Value="11"/>
|
||||
<General>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<MainUnit Value="0"/>
|
||||
<Title Value="Integer set demo"/>
|
||||
<Scaled Value="True"/>
|
||||
<ResourceType Value="res"/>
|
||||
<UseXPManifest Value="True"/>
|
||||
<XPManifest>
|
||||
<DpiAware Value="True"/>
|
||||
</XPManifest>
|
||||
<Icon Value="0"/>
|
||||
</General>
|
||||
<BuildModes Count="1">
|
||||
<Item1 Name="Default" Default="True"/>
|
||||
</BuildModes>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<UseFileFilters Value="True"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<FormatVersion Value="2"/>
|
||||
<Modes Count="0"/>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="1">
|
||||
<Item1>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item1>
|
||||
</RequiredPackages>
|
||||
<Units Count="3">
|
||||
<Unit0>
|
||||
<Filename Value="setdemo.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="setdemo_main.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ComponentName Value="MainForm"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="dualdigitsset.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit2>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="11"/>
|
||||
<Target>
|
||||
<Filename Value="setdemo"/>
|
||||
</Target>
|
||||
<SearchPaths>
|
||||
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||
</SearchPaths>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<DebugInfoType Value="dsDwarf2"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
<Exceptions Count="3">
|
||||
<Item1>
|
||||
<Name Value="EAbort"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<Name Value="ECodetoolError"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<Name Value="EFOpenError"/>
|
||||
</Item3>
|
||||
</Exceptions>
|
||||
</Debugging>
|
||||
</CONFIG>
|
||||
23
set_demo/setdemo.lpr
Normal file
23
set_demo/setdemo.lpr
Normal file
@ -0,0 +1,23 @@
|
||||
program setdemo;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
uses
|
||||
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||
cthreads,
|
||||
{$ENDIF}{$ENDIF}
|
||||
Interfaces, // this includes the LCL widgetset
|
||||
Forms, setdemo_main, dualdigitsset
|
||||
{ you can add units after this };
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
RequireDerivedFormResource:=True;
|
||||
Application.Title:='Integer set demo';
|
||||
// Application.Scaled:=True;
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TMainForm, MainForm);
|
||||
Application.Run;
|
||||
end.
|
||||
|
||||
159
set_demo/setdemo_main.lfm
Normal file
159
set_demo/setdemo_main.lfm
Normal file
@ -0,0 +1,159 @@
|
||||
object MainForm: TMainForm
|
||||
Left = 668
|
||||
Height = 380
|
||||
Top = 250
|
||||
Width = 400
|
||||
Caption = 'Visualising two sets of digits.'
|
||||
ClientHeight = 380
|
||||
ClientWidth = 400
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
LCLVersion = '2.0.12.0'
|
||||
object pnlA: TPanel
|
||||
Left = 0
|
||||
Height = 80
|
||||
Top = 0
|
||||
Width = 400
|
||||
Align = alTop
|
||||
ClientHeight = 80
|
||||
ClientWidth = 400
|
||||
Color = clGradientActiveCaption
|
||||
Font.Style = [fsBold]
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
object editSetA: TLabeledEdit
|
||||
Left = 235
|
||||
Height = 22
|
||||
Top = 40
|
||||
Width = 150
|
||||
EditLabel.Height = 16
|
||||
EditLabel.Width = 34
|
||||
EditLabel.Caption = 'Set A'
|
||||
EditLabel.ParentColor = False
|
||||
LabelPosition = lpLeft
|
||||
LabelSpacing = 5
|
||||
ReadOnly = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
end
|
||||
end
|
||||
object pnlZ: TPanel
|
||||
Left = 0
|
||||
Height = 80
|
||||
Top = 80
|
||||
Width = 400
|
||||
Align = alTop
|
||||
ClientHeight = 80
|
||||
ClientWidth = 400
|
||||
Color = clGradientInactiveCaption
|
||||
Font.Style = [fsBold]
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
object editSetZ: TLabeledEdit
|
||||
Left = 235
|
||||
Height = 22
|
||||
Top = 40
|
||||
Width = 150
|
||||
EditLabel.Height = 16
|
||||
EditLabel.Width = 34
|
||||
EditLabel.Caption = 'Set Z'
|
||||
EditLabel.ParentColor = False
|
||||
LabelPosition = lpLeft
|
||||
LabelSpacing = 5
|
||||
ReadOnly = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
end
|
||||
end
|
||||
object pnlResultSets: TPanel
|
||||
Left = 0
|
||||
Height = 220
|
||||
Top = 160
|
||||
Width = 400
|
||||
Align = alClient
|
||||
ClientHeight = 220
|
||||
ClientWidth = 400
|
||||
Color = clScrollBar
|
||||
Font.Style = [fsBold]
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
object editUnion: TLabeledEdit
|
||||
Left = 235
|
||||
Height = 22
|
||||
Top = 10
|
||||
Width = 150
|
||||
EditLabel.Height = 16
|
||||
EditLabel.Width = 139
|
||||
EditLabel.Caption = 'Union of A && Z (A + Z)'
|
||||
EditLabel.ParentColor = False
|
||||
LabelPosition = lpLeft
|
||||
LabelSpacing = 5
|
||||
ReadOnly = True
|
||||
TabOrder = 4
|
||||
TabStop = False
|
||||
end
|
||||
object editIntersection: TLabeledEdit
|
||||
Left = 235
|
||||
Height = 22
|
||||
Top = 50
|
||||
Width = 150
|
||||
EditLabel.Height = 16
|
||||
EditLabel.Width = 177
|
||||
EditLabel.Caption = 'Intersection of A && Z (A * Z)'
|
||||
EditLabel.ParentColor = False
|
||||
LabelPosition = lpLeft
|
||||
LabelSpacing = 5
|
||||
ReadOnly = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
end
|
||||
object editSymmetricDiff: TLabeledEdit
|
||||
Left = 235
|
||||
Height = 22
|
||||
Top = 90
|
||||
Width = 150
|
||||
EditLabel.Height = 16
|
||||
EditLabel.Width = 155
|
||||
EditLabel.Caption = 'Symmetric Diff. of A && Z'
|
||||
EditLabel.ParentColor = False
|
||||
LabelPosition = lpLeft
|
||||
LabelSpacing = 5
|
||||
ReadOnly = True
|
||||
TabOrder = 3
|
||||
TabStop = False
|
||||
end
|
||||
object editDiffAZ: TLabeledEdit
|
||||
Left = 235
|
||||
Height = 22
|
||||
Top = 130
|
||||
Width = 150
|
||||
EditLabel.Height = 16
|
||||
EditLabel.Width = 167
|
||||
EditLabel.Caption = 'Difference of A && Z (A - Z)'
|
||||
EditLabel.ParentColor = False
|
||||
LabelPosition = lpLeft
|
||||
LabelSpacing = 5
|
||||
ReadOnly = True
|
||||
TabOrder = 2
|
||||
TabStop = False
|
||||
end
|
||||
object editDiffZA: TLabeledEdit
|
||||
Left = 235
|
||||
Height = 22
|
||||
Top = 170
|
||||
Width = 150
|
||||
EditLabel.Height = 16
|
||||
EditLabel.Width = 167
|
||||
EditLabel.Caption = 'Difference of Z && A (Z - A)'
|
||||
EditLabel.ParentColor = False
|
||||
LabelPosition = lpLeft
|
||||
LabelSpacing = 5
|
||||
ReadOnly = True
|
||||
TabOrder = 1
|
||||
TabStop = False
|
||||
end
|
||||
end
|
||||
end
|
||||
122
set_demo/setdemo_main.pas
Normal file
122
set_demo/setdemo_main.pas
Normal file
@ -0,0 +1,122 @@
|
||||
unit setdemo_main;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Buttons, Forms, Controls, Graphics, Dialogs, ExtCtrls,
|
||||
dualdigitsset, SysUtils, Classes, strutils;
|
||||
|
||||
type
|
||||
TButtonArr = array[TDigits] of TSpeedButton;
|
||||
|
||||
{ TMainForm }
|
||||
TMainForm = class(TForm)
|
||||
editSetA: TLabeledEdit;
|
||||
editSetZ: TLabeledEdit;
|
||||
editUnion: TLabeledEdit;
|
||||
editIntersection: TLabeledEdit;
|
||||
editSymmetricDiff: TLabeledEdit;
|
||||
editDiffAZ: TLabeledEdit;
|
||||
editDiffZA: TLabeledEdit;
|
||||
pnlA: TPanel;
|
||||
pnlResultSets: TPanel;
|
||||
pnlZ: TPanel;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
private
|
||||
ds: TDualAZSet;
|
||||
function CreateButtons(setID: Char): TButtonArr;
|
||||
procedure ButtonClick(Sender: TObject);
|
||||
procedure UpdateSetExpressions;
|
||||
public
|
||||
end;
|
||||
|
||||
var
|
||||
MainForm: TMainForm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.lfm}
|
||||
|
||||
{ TMainForm }
|
||||
|
||||
procedure TMainForm.FormCreate(Sender: TObject);
|
||||
begin
|
||||
ds := TDualAZSet.Create;
|
||||
CreateButtons('A');
|
||||
CreateButtons('Z');
|
||||
end;
|
||||
|
||||
procedure TMainForm.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
ds.Free;
|
||||
end;
|
||||
|
||||
function TMainForm.CreateButtons(setID: Char): TButtonArr;
|
||||
const
|
||||
spacing = 10;
|
||||
aLeft = 40;
|
||||
var
|
||||
i: integer;
|
||||
b: TSpeedButton;
|
||||
begin
|
||||
for i := Low(TDigits) to High(TDigits) do
|
||||
begin
|
||||
b := TSpeedButton.Create(Self);
|
||||
b.Top := spacing;
|
||||
b.Left := aLeft + i * (b.Width + spacing);
|
||||
b.Caption := IntToStr(i);
|
||||
b.Tag := i;
|
||||
b.Name := Format('%s%d', [setID, i]);
|
||||
|
||||
case setId of
|
||||
'A': b.Parent := pnlA;
|
||||
'Z': b.Parent := pnlZ;
|
||||
end;
|
||||
|
||||
b.OnClick := @ButtonClick;
|
||||
Result[i] := b;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMainForm.ButtonClick(Sender: TObject);
|
||||
var b: TSpeedButton;
|
||||
begin
|
||||
// We only care about SpeedButtons. Just return for others.
|
||||
if not (Sender is TSpeedButton) then Exit;
|
||||
|
||||
b := TSpeedButton(Sender);
|
||||
case b.Name[1] of
|
||||
'A': begin
|
||||
if (b.Tag in ds.SetA)
|
||||
then ds.SetA := ds.SetA - [b.Tag]
|
||||
else ds.SetA := ds.SetA + [b.Tag];
|
||||
|
||||
editSetA.Caption := ds.SetAasText;
|
||||
end;
|
||||
|
||||
'Z': begin
|
||||
if (b.Tag in ds.SetZ)
|
||||
then ds.SetZ := ds.SetZ - [b.Tag]
|
||||
else ds.SetZ := ds.SetZ + [b.Tag];
|
||||
|
||||
editSetZ.Caption := ds.SetZasText;
|
||||
end;
|
||||
end;
|
||||
|
||||
UpdateSetExpressions;
|
||||
end;
|
||||
|
||||
procedure TMainForm.UpdateSetExpressions;
|
||||
begin
|
||||
editUnion.Caption := ds.UnionAsText;
|
||||
editSymmetricDiff.Caption := ds.SymDiffAsText;
|
||||
editIntersection.Caption := ds.IntersectionAsText;
|
||||
editDiffAZ.Caption := ds.DiffAZasText;
|
||||
editDiffZA.Caption := ds.DiffZAasText;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user