pascal/lina-components
1
0
Fork 0
mirror of https://bitbucket.org/Dennis07/lina-components.git synced 2025-08-24 21:49:04 +02:00
Code Issues Actions Releases Activity

Version 1.0 DEV 1.17e

Browse Source 
Signed-off-by: dennis07 <den.goehlert@t-online.de>
This commit is contained in:
dennis07
2018-03-09 05:54:25 +01:00
parent ce997cdbef
commit c882232413
4 changed files with 64 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Information/Links/Youtube-Channel.url Normal file
View File

@@ -0,0 +1,5 @@
[{000214A0-0000-0000-C000-000000000046}]
Prop3=19,11
[InternetShortcut]
IDList=
URL=https://www.youtube.com/channel/UC68AZlDOXbm2EqCTDiKRMyA

BIN
Package/Delphi_XE5/LINA_D_XE5.identcache
View File

Binary file not shown.

2
Source/uInit.pas
View File

@@ -77,7 +77,7 @@ implementation
procedure UnregisterPackageOnAbout;
begin
try
(BorlandIDEServices As IOTAAboutBoxServices).RemovePluginInfo(PluginIndex);
(BorlandIDEServices as IOTAAboutBoxServices).RemovePluginInfo(PluginIndex);
finally
AboutBitmap.Free;
end;

78
Source/uSysTools.pas
View File

@@ -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;