Ver código fonte

add first implementation in delphi

Eren Yilmaz 6 anos atrás
commit
257d181439

+ 4 - 0
.gitignore

@@ -0,0 +1,4 @@
+*.~*
+Win32
+.idea
+__pycache__

+ 158 - 0
delphi/Schachdomino.dpr

@@ -0,0 +1,158 @@
+program Schachdomino;
+
+{$APPTYPE CONSOLE}
+
+{$R *.res}
+
+uses
+  System.SysUtils;
+
+const BOARD_SIZE = 8;
+
+type TBoard = Array[1..BOARD_SIZE,1..BOARD_SIZE] of Integer;
+type TResult = record
+  possible:Boolean;
+  field:TBoard;
+  tryCount:Integer;
+end;
+
+const
+  sLineBreak = {$IFDEF LINUX} AnsiChar(#10) {$ENDIF}
+               {$IFDEF MSWINDOWS} AnsiString(#13#10) {$ENDIF};
+
+
+var LogFile:TextFile;
+
+// Write a board to console and log file
+procedure WriteBoard(field:TBoard);
+var
+  S1: String;
+  C1: Integer;
+  C2: Integer;
+begin
+  S1:='[';
+  for C2 := 1 to BOARD_SIZE do begin
+    S1:=S1 + sLineBreak;
+    for C1 := 1 to BOARD_SIZE do begin
+      S1:=S1 + Format('%2d',[field[C1,C2]])+ ', ';
+    end;
+  end;
+  S1:=S1 + ']';
+  Writeln(S1);
+  Writeln(logFile,S1);
+end;
+
+// Write placing a brick at a given position and check if it is still possible
+// to fill the remaining free space of the board
+function tryBrick(posX,posY:Integer; field:TBoard; TryCount:Integer; BrickNum:Integer):TResult;
+var
+  nextBrickX: Integer;
+  nextBrickY: Integer;
+  newField: TBoard;
+  resultRight: TResult;
+  resultBot: TResult;
+  rightPossible: Boolean;
+  botPossible: Boolean;
+begin
+  if (posX=BOARD_SIZE) and (posY=BOARD_SIZE) then begin
+    result.possible:=True;
+    result.field:=field;
+    result.tryCount:=TryCount+1;
+    Exit;
+  end;
+
+  if posX = BOARD_SIZE then begin
+    nextBrickX:=1;
+    nextBrickY:=posY+1;
+  end else begin
+    nextBrickX:=posX+1;
+    nextBrickY:=posY;
+  end;
+
+  Result.possible:=false;
+  Result.tryCount:=TryCount;
+
+  if field[posX,posY]<>0 then begin
+    Result:=tryBrick(nextBrickX,nextBrickY,field,TryCount,BrickNum);
+    Exit;
+  end else begin
+    //rechts
+    rightPossible:=((posX+2<=BOARD_SIZE-1) or ((posY<=BOARD_SIZE-1) and (posX+2<=BOARD_SIZE)))
+      and (field[posX+1,posY]=0)
+      and (field[posX+2,posY]=0);
+    if rightPossible then begin
+      newField:=field;
+      newField[posX,posY]:=BrickNum;
+      newField[posX+1,posY]:=BrickNum;
+      newField[posX+2,posY]:=BrickNum;
+      resultRight:=tryBrick(nextBrickX,nextBrickY,newField,Result.tryCount,BrickNum+1);
+      Result.tryCount:=resultRight.tryCount;
+      if resultRight.possible then begin
+        Result:=resultRight;
+        Exit;
+      end
+    end;
+
+    //unten
+    botPossible:=((posY+2<=BOARD_SIZE-1) or ((posX<=BOARD_SIZE-1) and (posY+2<=BOARD_SIZE)))
+      {and (field[posX,posY+1]=0)  //always true
+      and (field[posX,posY+2]=0)};
+    if botPossible then begin
+      newField:=field;
+      newField[posX,posY]:=BrickNum;
+      newField[posX,posY+1]:=BrickNum;
+      newField[posX,posY+2]:=BrickNum;
+      resultBot:=tryBrick(nextBrickX,nextBrickY,newField,Result.tryCount,BrickNum+1);
+      Result.tryCount:=resultBot.tryCount;
+      Result.possible:=resultBot.possible;
+      if resultBot.possible then begin
+        Result:=resultBot;
+        Exit;
+      end
+    end;
+  end;
+
+  if not rightPossible and not botPossible then begin
+    result.tryCount:=result.tryCount+1;
+    Writeln('Try No. ' + IntToStr(result.TryCount) + ':');
+    Writeln(logFile, 'Try No. ' + IntToStr(result.TryCount) + ':');
+    WriteBoard(field);
+  end;
+end;
+
+// Write a result to console and log file
+procedure WriteResult(result:TResult);
+var
+  C1: Integer;
+  C2: Integer;
+  S1: string;
+begin
+  if result.possible then begin
+    Writeln('It is possible to fill this board.');
+    Writeln(LogFile, 'It is possible to fill this board.');
+    Writeln('This is the result:');
+    Writeln(LogFile, 'This is the result:');
+    WriteBoard(result.field);
+  end else begin
+    Writeln('It is not possible to fill this board.');
+    Writeln(LogFile, 'It is not possible to fill this board.');
+  end;
+  Writeln('Program finished after '+IntToStr(result.tryCount) + ' tries. A log has been written to log.txt');
+  Writeln(LogFile, 'Program finished after '+IntToStr(result.tryCount) + ' tries. A log has been written to log.txt');
+  ReadLn;
+end;
+
+
+// main program
+var
+  Field: TBoard;
+  result:TResult;
+begin
+  AssignFile(logFile, 'log.txt');
+  ReWrite(logFile);
+
+  result := tryBrick(1,1,Field,0,1);
+  WriteResult(result);
+
+  CloseFile(logFile);
+end.

+ 166 - 0
delphi/Schachdomino.dproj

@@ -0,0 +1,166 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <ProjectGuid>{8E3C0E91-3C3C-4BFB-B0B0-0F625D206815}</ProjectGuid>
+        <ProjectVersion>14.6</ProjectVersion>
+        <FrameworkType>None</FrameworkType>
+        <MainSource>Schachdomino.dpr</MainSource>
+        <Base>True</Base>
+        <Config Condition="'$(Config)'==''">Debug</Config>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
+        <TargetedPlatforms>1</TargetedPlatforms>
+        <AppType>Console</AppType>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='OSX32' and '$(Base)'=='true') or '$(Base_OSX32)'!=''">
+        <Base_OSX32>true</Base_OSX32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+        <Base_Win32>true</Base_Win32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+        <Base_Win64>true</Base_Win64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
+        <Cfg_1>true</Cfg_1>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
+        <Cfg_1_Win32>true</Cfg_1_Win32>
+        <CfgParent>Cfg_1</CfgParent>
+        <Cfg_1>true</Cfg_1>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
+        <Cfg_2>true</Cfg_2>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base)'!=''">
+        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
+        <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
+        <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
+        <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="'$(Base_OSX32)'!=''">
+        <DCC_UsePackage>bindcompfmx;DBXSqliteDriver;fmx;rtl;dbrtl;DbxClientDriver;bindcomp;inetdb;IndySystem;DBXInterBaseDriver;DataSnapClient;DataSnapCommon;DataSnapServer;DataSnapProviderClient;xmlrtl;DbxCommonDriver;ibxpress;dbxcds;DBXMySQLDriver;IndyProtocols;bindcompdbx;bindengine;soaprtl;FMXTee;DBXOracleDriver;CustomIPTransport;dsnap;DBXInformixDriver;fmxase;IndyCore;CloudService;DBXFirebirdDriver;FmxTeeUI;inet;fmxobj;inetdbxpress;DBXSybaseASADriver;fmxdae;dbexpress;DataSnapIndy10ServerTransport;$(DCC_UsePackage)</DCC_UsePackage>
+        <DCC_ConsoleTarget>true</DCC_ConsoleTarget>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win32)'!=''">
+        <DCC_UsePackage>DelphiSockets;bindcompfmx;DBXSqliteDriver;frxDB18;vcldbx;fmx;rtl;dbrtl;DbxClientDriver;TeeDB;frx18;bindcomp;inetdb;IndySystem;inetdbbde;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapCommon;DBXOdbcDriver;DataSnapServer;Tee;GLScene_RunTime;DataSnapProviderClient;xmlrtl;svnui;DBXSybaseASEDriver;DbxCommonDriver;ibxpress;vclimg;frxe18;dbxcds;DBXMySQLDriver;DatasnapConnectorsFreePascal;MetropolisUILiveTile;IndyProtocols;GLScene_Sounds_RunTime;bindcompdbx;vclactnband;bindengine;vcldb;soaprtl;vcldsnap;bindcompvcl;FMXTee;TeeUI;vclie;vcltouch;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;GLScene_Parallel_RunTime;vclribbon;VclSmp;dsnap;DBXInformixDriver;Intraweb;fmxase;vcl;DataSnapConnectors;IndyCore;GLScene_Physics_RunTime;CloudService;DBXMSSQLDriver;CodeSiteExpressPkg;dsnapcon;DBXFirebirdDriver;FmxTeeUI;inet;fmxobj;GLScene_Cg_RunTime;vclx;inetdbxpress;webdsnap;svn;DBXSybaseASADriver;fmxdae;TransComp;bdertl;dbexpress;adortl;DataSnapIndy10ServerTransport;$(DCC_UsePackage)</DCC_UsePackage>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+        <DCC_ConsoleTarget>true</DCC_ConsoleTarget>
+        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win64)'!=''">
+        <DCC_UsePackage>bindcompfmx;DBXSqliteDriver;fmx;rtl;dbrtl;DbxClientDriver;TeeDB;bindcomp;inetdb;IndySystem;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapCommon;DBXOdbcDriver;DataSnapServer;Tee;DataSnapProviderClient;xmlrtl;DBXSybaseASEDriver;DbxCommonDriver;ibxpress;vclimg;dbxcds;DBXMySQLDriver;DatasnapConnectorsFreePascal;MetropolisUILiveTile;IndyProtocols;bindcompdbx;vclactnband;bindengine;vcldb;soaprtl;vcldsnap;bindcompvcl;FMXTee;TeeUI;vclie;vcltouch;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;vclribbon;VclSmp;dsnap;DBXInformixDriver;Intraweb;fmxase;vcl;DataSnapConnectors;IndyCore;CloudService;DBXMSSQLDriver;dsnapcon;DBXFirebirdDriver;FmxTeeUI;inet;fmxobj;vclx;inetdbxpress;webdsnap;DBXSybaseASADriver;fmxdae;dbexpress;adortl;DataSnapIndy10ServerTransport;$(DCC_UsePackage)</DCC_UsePackage>
+        <DCC_ConsoleTarget>true</DCC_ConsoleTarget>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1)'!=''">
+        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+        <DCC_DebugDCUs>true</DCC_DebugDCUs>
+        <DCC_Optimize>false</DCC_Optimize>
+        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+        <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
+        <DCC_RemoteDebug>true</DCC_RemoteDebug>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
+        <DCC_RemoteDebug>false</DCC_RemoteDebug>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2)'!=''">
+        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+        <DCC_DebugInformation>false</DCC_DebugInformation>
+    </PropertyGroup>
+    <ItemGroup>
+        <DelphiCompile Include="$(MainSource)">
+            <MainSource>MainSource</MainSource>
+        </DelphiCompile>
+        <BuildConfiguration Include="Release">
+            <Key>Cfg_2</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Base">
+            <Key>Base</Key>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Debug">
+            <Key>Cfg_1</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+    </ItemGroup>
+    <ProjectExtensions>
+        <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+        <Borland.ProjectType/>
+        <BorlandProject>
+            <Delphi.Personality>
+                <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">1031</VersionInfo>
+                    <VersionInfo Name="CodePage">1252</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 Name="CFBundleName"/>
+                    <VersionInfoKeys Name="CFBundleDisplayName"/>
+                    <VersionInfoKeys Name="UIDeviceFamily"/>
+                    <VersionInfoKeys Name="CFBundleIdentifier"/>
+                    <VersionInfoKeys Name="CFBundleVersion"/>
+                    <VersionInfoKeys Name="CFBundlePackageType"/>
+                    <VersionInfoKeys Name="CFBundleSignature"/>
+                    <VersionInfoKeys Name="CFBundleAllowMixedLocalizations"/>
+                    <VersionInfoKeys Name="UISupportedInterfaceOrientations"/>
+                    <VersionInfoKeys Name="CFBundleExecutable"/>
+                    <VersionInfoKeys Name="CFBundleResourceSpecification"/>
+                    <VersionInfoKeys Name="LSRequiresIPhoneOS"/>
+                    <VersionInfoKeys Name="CFBundleInfoDictionaryVersion"/>
+                    <VersionInfoKeys Name="CFBundleDevelopmentRegion"/>
+                </VersionInfoKeys>
+                <Source>
+                    <Source Name="MainSource">Schachdomino.dpr</Source>
+                </Source>
+            </Delphi.Personality>
+            <Deployment/>
+            <Platforms>
+                <Platform value="OSX32">False</Platform>
+                <Platform value="Win32">True</Platform>
+                <Platform value="Win64">False</Platform>
+            </Platforms>
+        </BorlandProject>
+        <ProjectFileVersion>12</ProjectFileVersion>
+    </ProjectExtensions>
+    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
+</Project>

+ 8 - 0
delphi/Schachdomino.dproj.local

@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<Transactions>
+    <Transaction>1899.12.30 00:00:00.000.849,=C:\Users\Eren\Documents\RAD Studio\Projekte\Unit1.pas</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.032,C:\Users\Eren\Programme\Project1.dproj=C:\Users\Eren\Programme\Schachdomino\Schachdomino.dproj</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.792,C:\Users\Eren\Documents\RAD Studio\Projekte\Project1.dproj=C:\Users\Eren\Programme\Project1.dproj</Transaction>
+  </Transactions>
+</BorlandProject>

+ 723 - 0
delphi/Schachdomino.dsk

@@ -0,0 +1,723 @@
+[Closed Files]
+File_0=TSourceModule,'c:\program files (x86)\embarcadero\rad studio\11.0\SOURCE\RTL\SYS\System.SysUtils.pas',0,1,5304,1,5325,0,0,,
+File_1=TSourceModule,'C:\Users\Eren\Programme\Zinsmanager\Unit1.pas',0,1,28,50,64,0,0,,
+File_2=TSourceModule,'c:\program files (x86)\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.Controls.pas',0,1,7320,1,7341,0,0,,
+File_3=TSourceModule,'C:\Users\Eren\Programme\Netze\Netz1\Unit1.pas',0,1,144,28,160,0,0,,
+File_4=TSourceModule,'c:\users\Eren\Programme\Resources\MyUtils\UMyUtils.pas',0,1,45,94,67,0,0,,
+File_5=TSourceModule,'C:\Users\Eren\Programme\Netze\Netz1\UGlobals.pas',0,1,10,62,40,0,0,,
+File_6=TSourceModule,'c:\users\Eren\Programme\Resources\MyUtils\cscsv_785.pas',0,1,89,30,100,0,0,,
+File_7=TSourceModule,'C:\Users\Eren\Programme\Netze\Netz1\UReservoir.pas',0,1,366,36,386,0,0,,
+File_8=TSourceModule,'c:\program files (x86)\embarcadero\rad studio\11.0\source\rtl\common\System.Classes.pas',0,1,8580,44,8591,0,0,,
+File_9=TSourceModule,'c:\program files (x86)\embarcadero\rad studio\11.0\SOURCE\RTL\SYS\System.pas',0,1,1,1,11,0,0,,
+File_10=TSourceModule,'C:\Users\Eren\Programme\Netze\Netz1\cscsv_785.pas',0,1,1,11,1,0,0,,
+File_11=TSourceModule,'C:\Users\Eren\Programme\Resources\Important Units Delphi\cscsv_785.pas',0,1,1,11,1,0,0,,
+File_12=TSourceModule,'c:\program files (x86)\embarcadero\rad studio\11.0\source\rtl\common\System.Win.ComObj.pas',0,1,61,59,1466,0,0,,
+File_13=TSourceModule,'c:\program files (x86)\embarcadero\rad studio\11.0\source\rtl\common\System.Math.pas',0,1,3809,1,3830,0,0,,
+File_14=TSourceModule,'c:\program files (x86)\embarcadero\rad studio\11.0\SOURCE\VCL\Vcl.StdCtrls.pas',0,1,3430,1,3091,0,0,{{1650,4}
+
+[Modules]
+Module0=C:\Users\Eren\Programme\Schachdomino\Schachdomino.dproj
+Count=1
+EditWindowCount=1
+
+[C:\Users\Eren\Programme\Schachdomino\Schachdomino.dproj]
+ModuleType=TBaseProject
+
+[EditWindow0]
+ViewCount=1
+CurrentEditView=C:\Users\Eren\Programme\Schachdomino\Schachdomino.dpr
+View0=0
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=0
+Width=10000
+Height=9287
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=10000
+ClientHeight=9287
+DockedToMainForm=1
+BorlandEditorCodeExplorer=BorlandEditorCodeExplorer@EditWindow0
+TopPanelSize=0
+LeftPanelSize=1531
+LeftPanelClients=DockSite3,DockSite0
+LeftPanelData=00000800010100000000681400000000000001FB050000000000000100000000A711000009000000446F636B5369746533010000000247240000000000000200000000A20A000009000000446F636B5369746530FFFFFFFF
+RightPanelSize=2573
+RightPanelClients=DockSite2,MessageView,ToolForm
+RightPanelData=000008000101000000006814000000000000010D0A000000000000010000000229180000000000000200000000EF08000009000000446F636B53697465320200000000DE11000008000000546F6F6C466F726D0100000000472400000F0000004D65737361676556696577466F726DFFFFFFFF
+BottomPanelSize=0
+BottomPanelClients=DockSite1
+BottomPanelData=0000080001000100000009000000446F636B5369746531613D000000000000005E06000000000000FFFFFFFF
+BottomMiddlePanelSize=0
+BottomMiddlePanelClients=GraphDrawingModel
+BottomMiddelPanelData=0000080001000100000010000000477261706844726177696E67566965772522000000000000009506000000000000FFFFFFFF
+
+[View0]
+CustomEditViewType=TEditView
+Module=C:\Users\Eren\Programme\Schachdomino\Schachdomino.dpr
+CursorX=53
+CursorY=16
+TopLine=13
+LeftCol=1
+Elisions=
+Bookmarks=
+EditViewName=C:\Users\Eren\Programme\Schachdomino\Schachdomino.dpr
+
+[Watches]
+Count=0
+
+[WatchWindow]
+WatchColumnWidth=120
+WatchShowColumnHeaders=1
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=0
+Width=3841
+Height=1102
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=3841
+ClientHeight=1102
+TBDockHeight=213
+LRDockWidth=13671
+Dockable=1
+StayOnTop=0
+
+[Breakpoints]
+Count=0
+
+[EmbarcaderoWin32Debugger_AddressBreakpoints]
+Count=0
+
+[EmbarcaderoWin64Debugger_AddressBreakpoints]
+Count=0
+
+[EmbarcaderoOSXDebugger_AddressBreakpoints]
+Count=0
+
+[Main Window]
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=0
+State=2
+Left=141
+Top=278
+Width=8976
+Height=8565
+MaxLeft=-6
+MaxTop=-9
+MaxWidth=8976
+MaxHeight=8565
+ClientWidth=10000
+ClientHeight=9787
+BottomPanelSize=9287
+BottomPanelClients=EditWindow0
+BottomPanelData=0000080000000000000000000000000000000000000000000000000100000000000000000C0000004564697457696E646F775F30FFFFFFFF
+
+[ProjectManager]
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=0
+Width=1429
+Height=5704
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=1429
+ClientHeight=5704
+TBDockHeight=5926
+LRDockWidth=2353
+Dockable=1
+StayOnTop=0
+
+[MessageView]
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=691
+Width=2906
+Height=2889
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=2906
+ClientHeight=2889
+TBDockHeight=7120
+LRDockWidth=2906
+Dockable=1
+StayOnTop=0
+
+[ToolForm]
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=247
+Top=23
+Width=1453
+Height=5935
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=1453
+ClientHeight=5935
+TBDockHeight=5935
+LRDockWidth=1482
+Dockable=1
+StayOnTop=0
+
+[PropertyInspector]
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=0
+Width=1729
+Height=4037
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=1729
+ClientHeight=4037
+TBDockHeight=7056
+LRDockWidth=2159
+Dockable=1
+StayOnTop=0
+SplitPos=105
+
+[TFileExplorerForm]
+PercentageSizes=1
+Create=1
+Visible=0
+Docked=1
+State=0
+Left=-1101
+Top=-8
+Width=2865
+Height=6231
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=2865
+ClientHeight=6231
+TBDockHeight=6231
+LRDockWidth=2865
+Dockable=1
+StayOnTop=0
+
+[TemplateView]
+PercentageSizes=1
+Create=1
+Visible=0
+Docked=1
+State=0
+Left=-1206
+Top=283
+Width=276
+Height=352
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=276
+ClientHeight=352
+TBDockHeight=352
+LRDockWidth=276
+Dockable=1
+StayOnTop=0
+Name=120
+Description=334
+filter=1
+
+[DebugLogView]
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=0
+Width=3841
+Height=1102
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=3841
+ClientHeight=1102
+TBDockHeight=407
+LRDockWidth=4971
+Dockable=1
+StayOnTop=0
+
+[ThreadStatusWindow]
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=0
+Width=3841
+Height=1102
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=3841
+ClientHeight=1102
+TBDockHeight=213
+LRDockWidth=7435
+Dockable=1
+StayOnTop=0
+Column0Width=145
+Column1Width=100
+Column2Width=115
+Column3Width=250
+Column4Width=250
+
+[LocalVarsWindow]
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=0
+Width=3841
+Height=1102
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=3841
+ClientHeight=1102
+TBDockHeight=1546
+LRDockWidth=3494
+Dockable=1
+StayOnTop=0
+
+[CallStackWindow]
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=0
+Width=3841
+Height=1102
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=3841
+ClientHeight=1102
+TBDockHeight=2074
+LRDockWidth=3494
+Dockable=1
+StayOnTop=0
+
+[FindReferencsForm]
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=0
+Width=865
+Height=6889
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=865
+ClientHeight=6889
+TBDockHeight=2324
+LRDockWidth=2159
+Dockable=1
+StayOnTop=0
+
+[RefactoringForm]
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=0
+Width=1729
+Height=4324
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=1729
+ClientHeight=4324
+TBDockHeight=3213
+LRDockWidth=2847
+Dockable=1
+StayOnTop=0
+
+[ToDo List]
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=0
+Width=865
+Height=6889
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=865
+ClientHeight=6889
+TBDockHeight=1148
+LRDockWidth=3694
+Dockable=1
+StayOnTop=0
+Column0Width=148
+Column1Width=12
+Column2Width=93
+Column3Width=45
+Column4Width=51
+SortOrder=3
+ShowHints=1
+ShowChecked=1
+
+[DataExplorerContainer]
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=0
+Width=2906
+Height=6889
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=2906
+ClientHeight=6889
+TBDockHeight=4889
+LRDockWidth=7176
+Dockable=1
+StayOnTop=0
+
+[ModelViewTool]
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=0
+Width=2906
+Height=6889
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=2906
+ClientHeight=6889
+TBDockHeight=4889
+LRDockWidth=5335
+Dockable=1
+StayOnTop=0
+
+[ClassBrowserTool]
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=0
+Width=1729
+Height=6889
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=1729
+ClientHeight=6889
+TBDockHeight=3167
+LRDockWidth=1859
+Dockable=1
+StayOnTop=0
+
+[MetricsView]
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=0
+Width=865
+Height=6889
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=865
+ClientHeight=6889
+TBDockHeight=4833
+LRDockWidth=3576
+Dockable=1
+StayOnTop=0
+
+[QAView]
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=0
+Width=865
+Height=6889
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=865
+ClientHeight=6889
+TBDockHeight=4833
+LRDockWidth=3576
+Dockable=1
+StayOnTop=0
+
+[GraphDrawingModel]
+PercentageSizes=1
+Create=1
+Visible=0
+Docked=1
+State=0
+Left=369
+Top=868
+Width=2882
+Height=3231
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=2882
+ClientHeight=3231
+TBDockHeight=3231
+LRDockWidth=2882
+Dockable=1
+StayOnTop=0
+
+[BreakpointWindow]
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=0
+Width=3841
+Height=1102
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=3841
+ClientHeight=1102
+TBDockHeight=1546
+LRDockWidth=8788
+Dockable=1
+StayOnTop=0
+Column0Width=200
+Column1Width=75
+Column2Width=200
+Column3Width=200
+Column4Width=200
+Column5Width=75
+Column6Width=75
+
+[StructureView]
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=0
+Width=1729
+Height=6889
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=1729
+ClientHeight=6889
+TBDockHeight=3685
+LRDockWidth=1906
+Dockable=1
+StayOnTop=0
+
+[fmGrepResults]
+PercentageSizes=1
+Create=1
+Visible=0
+Docked=0
+State=0
+Left=2706
+Top=1194
+Width=4647
+Height=7648
+MaxLeft=-6
+MaxTop=-9
+ClientWidth=4553
+ClientHeight=7287
+TBDockHeight=7648
+LRDockWidth=4647
+Dockable=1
+StayOnTop=0
+
+[fmMacroLibrary]
+PercentageSizes=1
+Create=1
+Visible=0
+Docked=0
+State=0
+Left=3571
+Top=2324
+Width=2906
+Height=5398
+MaxLeft=-6
+MaxTop=-9
+ClientWidth=2812
+ClientHeight=5037
+TBDockHeight=5398
+LRDockWidth=2906
+Dockable=1
+StayOnTop=0
+
+[Castalia Statistics]
+PercentageSizes=1
+Create=1
+Visible=0
+Docked=0
+State=0
+Left=0
+Top=0
+Width=1553
+Height=4704
+MaxLeft=-6
+MaxTop=-9
+ClientWidth=1459
+ClientHeight=4343
+TBDockHeight=4704
+LRDockWidth=1553
+Dockable=1
+StayOnTop=0
+
+[BorlandEditorCodeExplorer@EditWindow0]
+PercentageSizes=1
+Create=1
+Visible=0
+Docked=0
+State=0
+Left=0
+Top=0
+Width=1835
+Height=6213
+MaxLeft=-6
+MaxTop=-9
+ClientWidth=1741
+ClientHeight=5852
+TBDockHeight=6213
+LRDockWidth=1835
+Dockable=1
+StayOnTop=0
+
+[DockHosts]
+DockHostCount=4
+
+[DockSite0]
+HostDockSite=DockLeftPanel
+DockSiteType=1
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=511
+Width=1729
+Height=4556
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=1729
+ClientHeight=4556
+TBDockHeight=4556
+LRDockWidth=2106
+Dockable=1
+StayOnTop=0
+TabPosition=1
+ActiveTabID=RefactoringForm
+TabDockClients=ToDo List,RefactoringForm,FindReferencsForm,MetricsView,QAView
+
+[DockSite1]
+HostDockSite=DockBottomPanel
+DockSiteType=1
+PercentageSizes=1
+Create=1
+Visible=0
+Docked=1
+State=0
+Left=0
+Top=23
+Width=3841
+Height=1333
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=3841
+ClientHeight=1333
+TBDockHeight=1333
+LRDockWidth=3841
+Dockable=1
+StayOnTop=0
+TabPosition=1
+ActiveTabID=DebugLogView
+TabDockClients=DebugLogView,BreakpointWindow,ThreadStatusWindow,CallStackWindow,WatchWindow,LocalVarsWindow
+
+[DockSite2]
+HostDockSite=DockRightPanel
+DockSiteType=1
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=23
+Width=1429
+Height=5935
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=1429
+ClientHeight=5935
+TBDockHeight=5935
+LRDockWidth=2906
+Dockable=1
+StayOnTop=0
+TabPosition=1
+ActiveTabID=ProjectManager
+TabDockClients=ProjectManager,ModelViewTool,DataExplorerContainer,TFileExplorerForm,TemplateView
+
+[DockSite3]
+HostDockSite=DockLeftPanel
+DockSiteType=1
+PercentageSizes=1
+Create=1
+Visible=1
+Docked=1
+State=0
+Left=0
+Top=23
+Width=1729
+Height=4269
+MaxLeft=-1
+MaxTop=-1
+ClientWidth=1729
+ClientHeight=4269
+TBDockHeight=7120
+LRDockWidth=1729
+Dockable=1
+StayOnTop=0
+TabPosition=1
+ActiveTabID=PropertyInspector
+TabDockClients=StructureView,ClassBrowserTool,PropertyInspector
+

BIN
delphi/Schachdomino.identcache


BIN
delphi/Schachdomino.res


+ 10 - 0
delphi/Schachdomino.stat

@@ -0,0 +1,10 @@
+[Stats]
+EditorSecs=849
+DesignerSecs=1
+InspectorSecs=1
+CompileSecs=9092
+OtherSecs=12
+StartTime=31.12.2017 15:24:18
+RealKeys=0
+EffectiveKeys=0
+DebugSecs=442

+ 2 - 0
delphi/Schachdomino_project.tvsconfig

@@ -0,0 +1,2 @@
+<?xml version="1.0"?>
+<TgConfig Version="3" SubLevelDisabled="False" />