From c88223241307aacb35134d1458646eeaa4777b9a Mon Sep 17 00:00:00 2001
From: dennis07 <den.goehlert@t-online.de>
Date: Fri, 9 Mar 2018 05:54:25 +0100
Subject: [PATCH] Version 1.0 DEV 1.17e

Signed-off-by: dennis07 <den.goehlert@t-online.de>
---
 Information/Links/Youtube-Channel.url    |   5 ++
 Package/Delphi_XE5/LINA_D_XE5.identcache | Bin 1145 -> 1242 bytes
 Source/uInit.pas                         |   2 +-
 Source/uSysTools.pas                     |  78 +++++++++++++++++------
 4 files changed, 64 insertions(+), 21 deletions(-)
 create mode 100644 Information/Links/Youtube-Channel.url

diff --git a/Information/Links/Youtube-Channel.url b/Information/Links/Youtube-Channel.url
new file mode 100644
index 0000000..74a85eb
--- /dev/null
+++ b/Information/Links/Youtube-Channel.url
@@ -0,0 +1,5 @@
+[{000214A0-0000-0000-C000-000000000046}]
+Prop3=19,11
+[InternetShortcut]
+IDList=
+URL=https://www.youtube.com/channel/UC68AZlDOXbm2EqCTDiKRMyA
diff --git a/Package/Delphi_XE5/LINA_D_XE5.identcache b/Package/Delphi_XE5/LINA_D_XE5.identcache
index 19e95d5eb209e2c2f79b54baf65551e93a7b0a93..16dff5735435be01c58f7a0d6cb6ca73869ffd31 100644
GIT binary patch
delta 100
zcmey#af_3YcOzpRV_-<KRZKxqetJ=2u0mR7PHM4&Muml$W=v{sQeshZVoGXJeoRqf
zib8QoX-Z~(jG>X9K}>OeX;E@&Oi@WrOmcp1Zhl@&aAk2xYObDdVoAot4H27<Gj3u6
E018tjUH||9

delta 15
Wcmcb``ICc@XCq@B<K_p9znB0mj0Lj*

diff --git a/Source/uInit.pas b/Source/uInit.pas
index b04d46e..5dcc75a 100644
--- a/Source/uInit.pas
+++ b/Source/uInit.pas
@@ -77,7 +77,7 @@ implementation
   procedure UnregisterPackageOnAbout;
   begin
     try
-      (BorlandIDEServices As IOTAAboutBoxServices).RemovePluginInfo(PluginIndex);
+      (BorlandIDEServices as IOTAAboutBoxServices).RemovePluginInfo(PluginIndex);
     finally
       AboutBitmap.Free;
     end;
diff --git a/Source/uSysTools.pas b/Source/uSysTools.pas
index d9fed60..93f9fe8 100644
--- a/Source/uSysTools.pas
+++ b/Source/uSysTools.pas
@@ -541,25 +541,25 @@ type
   function Prime(X: Integer): Boolean; overload;
   function Prime(X: Cardinal): Boolean; overload;
   { Bedingungsroutinen }
-  function IfThenElse(Condition: Boolean; TrueValue, FalseValue: Variant): Variant; overload;
-  function IfThenElse(Condition: Boolean; TrueValue: Variant): Variant; overload;
-  function IfThenElse(Condition: Boolean; TrueValue: Pointer; FalseValue: Pointer = nil): Pointer; overload;
-  function IfThenElse(Condition: Boolean; TrueValue: PChar; FalseValue: PChar = nil): PChar; overload;
-  function IfThenElse(Condition: Boolean; TrueValue: Char; FalseValue: Char = #0): Char; overload;
-  function IfThenElse(Condition: Boolean; TrueValue: String; FalseValue: String = ''): String; overload;
-  function IfThenElse(Condition: Boolean; TrueValue: ShortString; FalseValue: ShortString = ''): ShortString; overload;
-  function IfThenElse(Condition: Boolean; TrueValue: Byte; FalseValue: Byte = 0): Byte; overload;
-  function IfThenElse(Condition: Boolean; TrueValue: Word; FalseValue: Word = 0): Word; overload;
-  function IfThenElse(Condition: Boolean; TrueValue: Cardinal; FalseValue: Cardinal = 0): Cardinal; overload;
-  function IfThenElse(Condition: Boolean; TrueValue: UInt64; FalseValue: UInt64 = 0): UInt64; overload;
-  function IfThenElse(Condition: Boolean; TrueValue: ShortInt; FalseValue: ShortInt = 0): SmallInt; overload;
-  function IfThenElse(Condition: Boolean; TrueValue: SmallInt; FalseValue: SmallInt = 0): SmallInt; overload;
-  function IfThenElse(Condition: Boolean; TrueValue: Integer; FalseValue: Integer = 0): Integer; overload;
-  function IfThenElse(Condition: Boolean; TrueValue: Int64; FalseValue: Int64 = 0): Int64; overload;
-  function IfThenElse(Condition: Boolean; TrueValue: Currency; FalseValue: Currency = 0): Currency; overload;
-  function IfThenElse(Condition: Boolean; TrueValue: Single; FalseValue: Single = 0): Single; overload;
-  function IfThenElse(Condition: Boolean; TrueValue: Double; FalseValue: Double = 0): Double; overload;
-  function IfThenElse(Condition: Boolean; TrueValue: Extended; FalseValue: Extended = 0): Extended; overload;
+  function IfThenElse(Condition: Boolean; TrueValue, FalseValue: Variant): Variant; overload; inline;
+  function IfThenElse(Condition: Boolean; TrueValue: Variant): Variant; overload; inline;
+  function IfThenElse(Condition: Boolean; TrueValue: Pointer; FalseValue: Pointer = nil): Pointer; overload; inline;
+  function IfThenElse(Condition: Boolean; TrueValue: PChar; FalseValue: PChar = nil): PChar; overload; inline;
+  function IfThenElse(Condition: Boolean; TrueValue: Char; FalseValue: Char = #0): Char; overload; inline;
+  function IfThenElse(Condition: Boolean; TrueValue: String; FalseValue: String = ''): String; overload; inline;
+  function IfThenElse(Condition: Boolean; TrueValue: ShortString; FalseValue: ShortString = ''): ShortString; overload; inline;
+  function IfThenElse(Condition: Boolean; TrueValue: Byte; FalseValue: Byte = 0): Byte; overload; inline;
+  function IfThenElse(Condition: Boolean; TrueValue: Word; FalseValue: Word = 0): Word; overload; inline;
+  function IfThenElse(Condition: Boolean; TrueValue: Cardinal; FalseValue: Cardinal = 0): Cardinal; overload; inline;
+  function IfThenElse(Condition: Boolean; TrueValue: UInt64; FalseValue: UInt64 = 0): UInt64; overload; inline;
+  function IfThenElse(Condition: Boolean; TrueValue: ShortInt; FalseValue: ShortInt = 0): ShortInt; overload; inline;
+  function IfThenElse(Condition: Boolean; TrueValue: SmallInt; FalseValue: SmallInt = 0): SmallInt; overload; inline;
+  function IfThenElse(Condition: Boolean; TrueValue: Integer; FalseValue: Integer = 0): Integer; overload; inline;
+  function IfThenElse(Condition: Boolean; TrueValue: Int64; FalseValue: Int64 = 0): Int64; overload; inline;
+  function IfThenElse(Condition: Boolean; TrueValue: Currency; FalseValue: Currency = 0): Currency; overload; inline;
+  function IfThenElse(Condition: Boolean; TrueValue: Single; FalseValue: Single = 0): Single; overload; inline;
+  function IfThenElse(Condition: Boolean; TrueValue: Double; FalseValue: Double = 0): Double; overload; inline;
+  function IfThenElse(Condition: Boolean; TrueValue: Extended; FalseValue: Extended = 0): Extended; overload; inline;
   { Sonstige }
   function PointAdd(A,B: TPoint): TPoint;
   function PointSub(A,B: TPoint): TPoint;
@@ -612,6 +612,8 @@ type
   procedure BFInterpret(const S: String; var P: Pointer; var ReadBuffer, WriteBuffer: TIntegerArray); overload;
   procedure ExtractChars(var Text: String; Chars: array of Char); overload;
   procedure ExtractChars(var Text: String; Chars: TCharSet); overload;
+  procedure DeleteChars(var Text: String; Chars: array of Char); overload;
+  procedure DeleteChars(var Text: String; Chars: TCharSet); overload;
   procedure SetPrivilege(const Name: PChar; Value: Boolean); overload;
   procedure SetPrivilege(const Name: String; Value: Boolean); overload;
 
@@ -2180,7 +2182,7 @@ begin
   end;
 end;
 
-function IfThenElse(Condition: Boolean; TrueValue: ShortInt; FalseValue: ShortInt = 0): SmallInt;
+function IfThenElse(Condition: Boolean; TrueValue: ShortInt; FalseValue: ShortInt = 0): ShortInt;
 begin
   if Condition then
   begin
@@ -3913,6 +3915,42 @@ begin
   Text := OutPut;
 end;
 
+procedure DeleteChars(var Text: String; Chars: array of Char); overload;
+var
+  Current: PChar;
+  OutPut: String;
+begin
+  Current := PChar(Text);
+  SetLength(OutPut,0);
+  while Current^ <> #0 do
+  begin
+    if ArrayPos(Current^,Chars) = -1 then
+    begin
+      OutPut := OutPut + Current^;
+    end;
+    Inc(Current);
+  end;
+  Text := OutPut;
+end;
+
+procedure DeleteChars(var Text: String; Chars: TCharSet); overload;
+var
+  Current: PChar;
+  OutPut: String;
+begin
+  Current := PChar(Text);
+  SetLength(OutPut,0);
+  while Current^ <> #0 do
+  begin
+    if not (Current^ in Chars) then
+    begin
+      OutPut := OutPut + Current^;
+    end;
+    Inc(Current);
+  end;
+  Text := OutPut;
+end;
+
 procedure SetPrivilege(const Name: PChar; Value: Boolean); overload;
 var
   Token: THandle;