debug-Versionen neu

5 files changed, 131 insertions, 48 deletions

diff --git a/.gitignore b/.gitignore
index 09ebc93..f769ec7 100644
--- a/.gitignore
+++ b/.gitignore
@@ -18,3 +18,4 @@ backup
 *.bak
 lib/*
 raetsel
+raetsel-debug
diff --git a/raetsel.lpi b/raetsel.lpi
index 77e790c..b172cfa 100644
--- a/raetsel.lpi
+++ b/raetsel.lpi
@@ -13,7 +13,7 @@
     <i18n>
       <EnableI18N LFM="False"/>
     </i18n>
-    <BuildModes Count="2">
+    <BuildModes Count="4">
       <Item1 Name="linux_64bits" Default="True"/>
       <Item2 Name="win10_64bits">
         <CompilerOptions>
@@ -39,6 +39,66 @@
           </Linking>
         </CompilerOptions>
       </Item2>
+      <Item3 Name="linux_64bits-debug">
+        <CompilerOptions>
+          <Version Value="11"/>
+          <Target>
+            <Filename Value="raetsel-debug"/>
+          </Target>
+          <SearchPaths>
+            <IncludeFiles Value="$(ProjOutDir)"/>
+            <OtherUnitFiles Value="../units"/>
+            <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
+          </SearchPaths>
+          <CodeGeneration>
+            <TargetCPU Value="x86_64"/>
+            <TargetOS Value="linux"/>
+          </CodeGeneration>
+          <Linking>
+            <Options>
+              <Win32>
+                <GraphicApplication Value="True"/>
+              </Win32>
+            </Options>
+          </Linking>
+          <Other>
+            <CustomOptions Value="-dDEBUG"/>
+            <OtherDefines Count="1">
+              <Define0 Value="DEBUG"/>
+            </OtherDefines>
+          </Other>
+        </CompilerOptions>
+      </Item3>
+      <Item4 Name="win10_64bits-debug">
+        <CompilerOptions>
+          <Version Value="11"/>
+          <Target>
+            <Filename Value="raetsel-debug"/>
+          </Target>
+          <SearchPaths>
+            <IncludeFiles Value="$(ProjOutDir)"/>
+            <OtherUnitFiles Value="../units"/>
+            <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
+          </SearchPaths>
+          <CodeGeneration>
+            <TargetCPU Value="x86_64"/>
+            <TargetOS Value="win64"/>
+          </CodeGeneration>
+          <Linking>
+            <Options>
+              <Win32>
+                <GraphicApplication Value="True"/>
+              </Win32>
+            </Options>
+          </Linking>
+          <Other>
+            <CustomOptions Value="-dDEBUG"/>
+            <OtherDefines Count="1">
+              <Define0 Value="DEBUG"/>
+            </OtherDefines>
+          </Other>
+        </CompilerOptions>
+      </Item4>
     </BuildModes>
     <PublishOptions>
       <Version Value="2"/>
diff --git a/raetsel.lpr b/raetsel.lpr
index 672f9ca..720aa2b 100644
--- a/raetsel.lpr
+++ b/raetsel.lpr
@@ -12,9 +12,21 @@ uses
 {$R *.res}
 
 begin
+  {$IFDEF DEBUG}
+  writeln('Anfang');
+  {$ENDIF}
   requireDerivedFormResource:=true;
   application.initialize;
+  {$IFDEF DEBUG}
+  writeln('application.initialize;');
+  {$ENDIF}
   application.createForm(tForm1, form1);
+  {$IFDEF DEBUG}
+  writeln('application.createForm(tForm1, form1);');
+  {$ENDIF}
   application.run;
+  {$IFDEF DEBUG}
+  writeln('application.run;');
+  {$ENDIF}
 end.
 
diff --git a/raetsel.lps b/raetsel.lps
index e0413a6..1b7bfc1 100644
--- a/raetsel.lps
+++ b/raetsel.lps
@@ -7,8 +7,9 @@
       <Unit0>
         <Filename Value="raetsel.lpr"/>
         <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
-        <CursorPos X="66" Y="13"/>
+        <CursorPos X="30" Y="19"/>
         <UsageCount Value="62"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -18,8 +19,8 @@
         <ComponentName Value="Form1"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <TopLine Value="19"/>
-        <CursorPos X="43" Y="16"/>
+        <TopLine Value="43"/>
+        <CursorPos X="59" Y="55"/>
         <UsageCount Value="62"/>
         <Loaded Value="True"/>
       </Unit1>
@@ -37,7 +38,6 @@
       <Unit3>
         <Filename Value="raetselunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
         <TopLine Value="812"/>
         <CursorPos X="50" Y="844"/>
@@ -155,125 +155,128 @@
         <UsageCount Value="10"/>
       </Unit19>
     </Units>
+    <OtherDefines Count="1">
+      <Define0 Value="DEBUG"/>
+    </OtherDefines>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
-        <Filename Value="raetselunit.pas"/>
-        <Caret Line="511" Column="82" TopLine="495"/>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="40" Column="19" TopLine="32"/>
       </Position1>
       <Position2>
         <Filename Value="unit1.pas"/>
-        <Caret Line="40" Column="19" TopLine="32"/>
+        <Caret Line="16" Column="41"/>
       </Position2>
       <Position3>
         <Filename Value="unit1.pas"/>
-        <Caret Line="16" Column="41"/>
+        <Caret Line="17" Column="42"/>
       </Position3>
       <Position4>
         <Filename Value="unit1.pas"/>
-        <Caret Line="17" Column="42"/>
+        <Caret Line="18" Column="39"/>
       </Position4>
       <Position5>
         <Filename Value="unit1.pas"/>
-        <Caret Line="18" Column="39"/>
+        <Caret Line="46" Column="44" TopLine="13"/>
       </Position5>
       <Position6>
         <Filename Value="unit1.pas"/>
-        <Caret Line="46" Column="44" TopLine="13"/>
+        <Caret Line="67" Column="45" TopLine="34"/>
       </Position6>
       <Position7>
         <Filename Value="unit1.pas"/>
-        <Caret Line="67" Column="45" TopLine="34"/>
+        <Caret Line="72" Column="42" TopLine="39"/>
       </Position7>
       <Position8>
-        <Filename Value="unit1.pas"/>
-        <Caret Line="72" Column="42" TopLine="39"/>
-      </Position8>
-      <Position9>
         <Filename Value="raetselunit.pas"/>
         <Caret Line="824" Column="55" TopLine="808"/>
-      </Position9>
-      <Position10>
+      </Position8>
+      <Position9>
         <Filename Value="raetselunit.inc"/>
         <Caret Line="766" Column="55" TopLine="758"/>
+      </Position9>
+      <Position10>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="555" Column="43" TopLine="547"/>
       </Position10>
       <Position11>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="555" Column="43" TopLine="547"/>
+        <Caret Line="566" Column="21" TopLine="547"/>
       </Position11>
       <Position12>
-        <Filename Value="raetselunit.pas"/>
-        <Caret Line="566" Column="21" TopLine="547"/>
-      </Position12>
-      <Position13>
         <Filename Value="raetsel.lpr"/>
         <Caret Line="13" Column="66"/>
-      </Position13>
-      <Position14>
+      </Position12>
+      <Position13>
         <Filename Value="unit1.pas"/>
         <Caret Line="4" Column="57"/>
+      </Position13>
+      <Position14>
+        <Filename Value="raetselunit.inc"/>
+        <Caret Line="766" Column="55" TopLine="758"/>
       </Position14>
       <Position15>
         <Filename Value="raetselunit.inc"/>
-        <Caret Line="766" Column="55" TopLine="758"/>
       </Position15>
       <Position16>
         <Filename Value="raetselunit.inc"/>
+        <Caret Line="738" Column="22" TopLine="706"/>
       </Position16>
       <Position17>
-        <Filename Value="raetselunit.inc"/>
-        <Caret Line="738" Column="22" TopLine="706"/>
-      </Position17>
-      <Position18>
         <Filename Value="raetsel.lpr"/>
         <Caret Line="13" Column="66"/>
+      </Position17>
+      <Position18>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="563" Column="62" TopLine="525"/>
       </Position18>
       <Position19>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="563" Column="62" TopLine="525"/>
+        <Caret Line="169" Column="46" TopLine="152"/>
       </Position19>
       <Position20>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="169" Column="46" TopLine="152"/>
+        <Caret Line="170" Column="21" TopLine="152"/>
       </Position20>
       <Position21>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="170" Column="21" TopLine="152"/>
+        <Caret Line="2"/>
       </Position21>
       <Position22>
-        <Filename Value="raetselunit.pas"/>
-        <Caret Line="2"/>
-      </Position22>
-      <Position23>
         <Filename Value="raetselunit.inc"/>
         <Caret Line="714" Column="70" TopLine="706"/>
+      </Position22>
+      <Position23>
+        <Filename Value="raetselunit.pas"/>
+        <Caret Line="170" Column="21" TopLine="138"/>
       </Position23>
       <Position24>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="170" Column="21" TopLine="138"/>
+        <Caret Line="42" Column="38" TopLine="22"/>
       </Position24>
       <Position25>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="42" Column="38" TopLine="22"/>
+        <Caret Line="227" Column="39" TopLine="196"/>
       </Position25>
       <Position26>
         <Filename Value="raetselunit.pas"/>
-        <Caret Line="227" Column="39" TopLine="196"/>
+        <Caret Line="732" Column="46" TopLine="701"/>
       </Position26>
       <Position27>
-        <Filename Value="raetselunit.pas"/>
-        <Caret Line="732" Column="46" TopLine="701"/>
+        <Filename Value="raetselunit.inc"/>
+        <Caret Line="714" Column="61" TopLine="706"/>
       </Position27>
       <Position28>
         <Filename Value="raetselunit.inc"/>
-        <Caret Line="714" Column="61" TopLine="706"/>
+        <Caret Line="688" Column="63" TopLine="678"/>
       </Position28>
       <Position29>
-        <Filename Value="raetselunit.inc"/>
-        <Caret Line="688" Column="63" TopLine="678"/>
-      </Position29>
-      <Position30>
         <Filename Value="raetselunit.pas"/>
         <Caret Line="812" Column="66" TopLine="808"/>
+      </Position29>
+      <Position30>
+        <Filename Value="unit1.pas"/>
+        <Caret Line="16" Column="43" TopLine="28"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>
diff --git a/unit1.pas b/unit1.pas
index 84cda28..cf26780 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -45,7 +45,13 @@ end;
 
 procedure tForm1.formCreate(sender: tObject);
 begin
+  {$IFDEF DEBUG}
+  writeln('procedure tForm1.formCreate(sender: tObject);');
+  {$ENDIF}
   application.createForm(tForm2, form2);
+  {$IFDEF DEBUG}
+  writeln('application.createForm(tForm2, form2);');
+  {$ENDIF}
   case form2.showmodal of
     mrBuchstabenraetsel:
       raetsel:=tBuchstabenRaetsel.create(form1);
@@ -54,6 +60,7 @@ begin
     else begin
       raetsel:=nil;
       application.terminate;
+      exit;
     end;
   end;
   raetsel.onSetCaption:=@onSetCaption;