Skip to content

Commit

Permalink
Add files via upload
Browse files Browse the repository at this point in the history
  • Loading branch information
Limagito authored Dec 30, 2018
1 parent a2c5b31 commit 34d5fc9
Show file tree
Hide file tree
Showing 23 changed files with 3,494 additions and 0 deletions.
14 changes: 14 additions & 0 deletions Demos/Cromis.AnyArrray/SpeedMain.dpr
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,14 @@
program SpeedMain;

uses
Forms,
SpeedTest.Main in 'SpeedTest.Main.pas' {fMain};

{$R *.res}

begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TfMain, fMain);
Application.Run;
end.
107 changes: 107 additions & 0 deletions Demos/Cromis.AnyArrray/SpeedMain.dproj
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,107 @@
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{167764AB-1C0E-47C6-94DC-5BC94C3D582C}</ProjectGuid>
<ProjectVersion>12.0</ProjectVersion>
<MainSource>SpeedMain.dpr</MainSource>
<Config Condition="'$(Config)'==''">Debug</Config>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_Optimize>false</DCC_Optimize>
<DCC_DependencyCheckOutputName>SpeedMain.exe</DCC_DependencyCheckOutputName>
<DCC_ImageBase>00400000</DCC_ImageBase>
<DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;$(DCC_UnitAlias)</DCC_UnitAlias>
<DCC_Platform>x86</DCC_Platform>
<DCC_E>false</DCC_E>
<DCC_N>false</DCC_N>
<DCC_S>false</DCC_S>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_DebugInformation>false</DCC_DebugInformation>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="SpeedMain.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="SpeedTest.Main.pas">
<Form>fMain</Form>
</DCCReference>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Release">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">SpeedMain.dpr</Source>
</Source>
<Parameters>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">1060</VersionInfo>
<VersionInfo Name="CodePage">1250</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"/>
<VersionInfoKeys Name="FileDescription"/>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"/>
<VersionInfoKeys Name="LegalCopyright"/>
<VersionInfoKeys Name="LegalTrademarks"/>
<VersionInfoKeys Name="OriginalFilename"/>
<VersionInfoKeys Name="ProductName"/>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"/>
</VersionInfoKeys>
</Delphi.Personality>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
</Project>
Binary file added Demos/Cromis.AnyArrray/SpeedMain.res
View file
Binary file not shown.
125 changes: 125 additions & 0 deletions Demos/Cromis.AnyArrray/SpeedTest.Main.dfm
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,125 @@
object fMain: TfMain
Left = 0
Top = 0
Caption = 'Dynamic array implementations comparison'
ClientHeight = 562
ClientWidth = 784
Color = clBtnFace
Constraints.MinHeight = 600
Constraints.MinWidth = 800
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object lbSpeedResults: TListBox
AlignWithMargins = True
Left = 3
Top = 3
Width = 473
Height = 484
Align = alLeft
ItemHeight = 13
TabOrder = 0
end
object lbSliceData: TListBox
AlignWithMargins = True
Left = 482
Top = 3
Width = 299
Height = 484
Align = alClient
ItemHeight = 13
TabOrder = 1
end
object sbSpeedTest: TStatusBar
AlignWithMargins = True
Left = 3
Top = 540
Width = 778
Height = 19
Panels = <>
end
object pnCommands: TPanel
AlignWithMargins = True
Left = 3
Top = 493
Width = 778
Height = 41
Align = alBottom
TabOrder = 3
object lbSliceBufferMpl: TLabel
Left = 629
Top = 11
Width = 71
Height = 13
Caption = 'SliceBufferMpl:'
end
object lbSliceSize: TLabel
Left = 503
Top = 11
Width = 44
Height = 13
Caption = 'SliceSize:'
end
object btnTestLargeSize: TButton
Left = 6
Top = 6
Width = 99
Height = 25
Caption = 'Test large size'
TabOrder = 0
OnClick = btnTestLargeSizeClick
end
object btnTestSmallSize: TButton
Left = 111
Top = 6
Width = 99
Height = 25
Caption = 'Test small size'
TabOrder = 1
OnClick = btnTestSmallSizeClick
end
object cbDynamicArray: TRadioButton
Left = 232
Top = 10
Width = 113
Height = 17
Caption = 'amDynamicArray'
TabOrder = 2
end
object cbSlicedArray: TRadioButton
Left = 343
Top = 10
Width = 113
Height = 17
Caption = 'amSlicedArray'
Checked = True
TabOrder = 3
TabStop = True
end
object eSliceSize: TEdit
Left = 554
Top = 8
Width = 65
Height = 21
TabOrder = 4
Text = '10000'
end
object eSliceBufferMpl: TEdit
Left = 704
Top = 8
Width = 65
Height = 21
TabOrder = 5
Text = '1.1'
end
end
object XPManifest: TXPManifest
Left = 696
Top = 40
end
end
Loading

0 comments on commit 34d5fc9

Please sign in to comment.