Skip to content

Commit 47d2c22

Browse files
delphidabblerdelphidabbler
committed
Add license comments to files containing snippets from csdb
1 parent 1900194 commit 47d2c22

File tree

7 files changed

+56
-83
lines changed

7 files changed

+56
-83
lines changed

‎csdb/tests/Cat-Arrays/UArraysCatSnippets.pas

Lines changed: 9 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,12 @@
1+
{
2+
* This file was generated from the DelphiDabbler Code Snippets Database.
3+
* The source code is licensed under the MIT license, copyright © 2005-2020,
4+
* Peter Johnson (https://gravatar.com/delphidabbler) and Contributors. The
5+
* full license and a list of contributors can be found in the `LICENSE` and
6+
* `CONTRIBUTORS` files at
7+
* https://github.com/delphidabbler/code-snippets/tree/master/csdb/collection
8+
}
9+
110
unit UArraysCatSnippets;
211

312
{$UNDEF Generics}

‎csdb/tests/Cat-Date/UDateCatSnippets.pas

Lines changed: 7 additions & 16 deletions
Original file line numberDiff line numberDiff line change
@@ -1,19 +1,10 @@
11
{
2-
* This unit may be freely distributed and used on the condition that this
3-
* comment is not removed from the unit.
4-
*
5-
* The unit was generated automatically from a selection of source code taken
6-
* from the Code Snippets Database at http://delphidabbler.com/url/csdb.
7-
*
8-
* The source code contained in this unit is made available on an "AS IS" basis,
9-
* WITHOUT WARRANTY OF ANY KIND, either express or implied. The code is used
10-
* entirely at your own risk.
11-
*
12-
* Generated on : Thu, 03 Oct 2013 11:03:43 GMT.
13-
* Generated by : DelphiDabbler CodeSnip Release 4.8.1.
14-
*
15-
* The latest version of CodeSnip is available from the DelphiDabbler website at
16-
* http://delphidabbler.com/url/codesnip-home.
2+
* This file was generated from the DelphiDabbler Code Snippets Database.
3+
* The source code is licensed under the MIT license, copyright © 2005-2020,
4+
* Peter Johnson (https://gravatar.com/delphidabbler) and Contributors. The
5+
* full license and a list of contributors can be found in the `LICENSE` and
6+
* `CONTRIBUTORS` files at
7+
* https://github.com/delphidabbler/code-snippets/tree/master/csdb/collection
178
}
189

1910
unit UDateCatSnippets;
@@ -277,7 +268,7 @@ function DateMonthEnd(const DT: TDateTime): TDateTime;
277268
function DateMonthStart(const DT: TDateTime): TDateTime;
278269
{Returns the first day of the month containing the given date.}
279270
var
280-
Day, Month, Year: Word;
271+
Day, Month, Year: Word;
281272
begin
282273
SysUtils.DecodeDate(DT, Year, Month, Day);
283274
Result := SysUtils.EncodeDate(Year, Month, 1);

‎csdb/tests/Cat-Drive/UDriveCatSnippets.pas

Lines changed: 7 additions & 16 deletions
Original file line numberDiff line numberDiff line change
@@ -1,19 +1,10 @@
11
{
2-
* This unit may be freely distributed and used on the condition that this
3-
* comment is not removed from the unit.
4-
*
5-
* The unit was generated automatically from a selection of source code taken
6-
* from the Code Snippets Database at http://www.delphidabbler.com/codesnip.
7-
*
8-
* The source code contained in this unit is made available on an "AS IS" basis,
9-
* WITHOUT WARRANTY OF ANY KIND, either express or implied. The code is used
10-
* entirely at your own risk.
11-
*
12-
* Generated on : Thu, 27 May 2010 15:23:00 GMT.
13-
* Generated by : DelphiDabbler CodeSnip Release 3.6.0.
14-
*
15-
* The latest version of CodeSnip is available from the DelphiDabbler website at
16-
* http://www.delphidabbler.com/software/codesnip.
2+
* This file was generated from the DelphiDabbler Code Snippets Database.
3+
* The source code is licensed under the MIT license, copyright © 2005-2020,
4+
* Peter Johnson (https://gravatar.com/delphidabbler) and Contributors. The
5+
* full license and a list of contributors can be found in the `LICENSE` and
6+
* `CONTRIBUTORS` files at
7+
* https://github.com/delphidabbler/code-snippets/tree/master/csdb/collection
178
}
189

1910
unit UDriveCatSnippets;
@@ -256,7 +247,7 @@ procedure ListDrives(const List: Classes.TStrings);
256247
begin
257248
// Get buffer size and allocate it
258249
BufSize := Windows.GetLogicalDriveStrings(0, nil);
259-
GetMem(Drives, BufSize * SizeOf(Char));
250+
GetMem(Drives, BufSize * SizeOf(Char));
260251
try
261252
// Get #0 delimited drives list and convert to string list
262253
if Windows.GetLogicalDriveStrings(BufSize, Drives) = 0 then

‎csdb/tests/Cat-Hex/UHexCatSnippets.pas

Lines changed: 6 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -1,19 +1,10 @@
11
{
2-
* This unit may be freely distributed and used on the condition that this
3-
* comment is not removed from the unit.
4-
*
5-
* The unit was generated automatically from a selection of source code taken
6-
* from the Code Snippets Database at http://www.delphidabbler.com/codesnip.
7-
*
8-
* The source code contained in this unit is made available on an "AS IS" basis,
9-
* WITHOUT WARRANTY OF ANY KIND, either express or implied. The code is used
10-
* entirely at your own risk.
11-
*
12-
* Generated on : Mon, 22 Feb 2010 13:20:24 GMT.
13-
* Generated by : DelphiDabbler CodeSnip Release 3.5.1.
14-
*
15-
* The latest version of CodeSnip is available from the DelphiDabbler website at
16-
* http://www.delphidabbler.com/software/codesnip.
2+
* This file was generated from the DelphiDabbler Code Snippets Database.
3+
* The source code is licensed under the MIT license, copyright © 2005-2020,
4+
* Peter Johnson (https://gravatar.com/delphidabbler) and Contributors. The
5+
* full license and a list of contributors can be found in the `LICENSE` and
6+
* `CONTRIBUTORS` files at
7+
* https://github.com/delphidabbler/code-snippets/tree/master/csdb/collection
178
}
189

1910
unit UHexCatSnippets;

‎csdb/tests/Cat-Maths/UMathsCatSnippets.pas

Lines changed: 8 additions & 17 deletions
Original file line numberDiff line numberDiff line change
@@ -1,19 +1,10 @@
11
{
2-
* This unit may be freely distributed and used on the condition that this
3-
* comment is not removed from the unit.
4-
*
5-
* The unit was generated automatically from a selection of source code taken
6-
* from the Code Snippets Database at http://www.delphidabbler.com/url/csdb.
7-
*
8-
* The source code contained in this unit is made available on an "AS IS" basis,
9-
* WITHOUT WARRANTY OF ANY KIND, either express or implied. The code is used
10-
* entirely at your own risk.
11-
*
12-
* Generated on : Thu, 18 Apr 2013 23:27:42 GMT.
13-
* Generated by : DelphiDabbler CodeSnip Release 4.4.0.
14-
*
15-
* The latest version of CodeSnip is available from the DelphiDabbler website at
16-
* http://www.delphidabbler.com/url/codesnip-home.
2+
* This file was generated from the DelphiDabbler Code Snippets Database.
3+
* The source code is licensed under the MIT license, copyright © 2005-2020,
4+
* Peter Johnson (https://gravatar.com/delphidabbler) and Contributors. The
5+
* full license and a list of contributors can be found in the `LICENSE` and
6+
* `CONTRIBUTORS` files at
7+
* https://github.com/delphidabbler/code-snippets/tree/master/csdb/collection
178
}
189

1910
unit UMathsCatSnippets;
@@ -167,7 +158,7 @@ procedure MinMidMax(const A, B, C: Double; out Min, Mid, Max: Double); overload;
167158
floating point numbers, A, B and C and returns them in Min, Mid and Max
168159
respectively.}
169160

170-
procedure MinMidMax(const A, B, C: Extended; out Min, Mid, Max: Extended);
161+
procedure MinMidMax(const A, B, C: Extended; out Min, Mid, Max: Extended);
171162
overload;
172163
{Finds the minimum, middle and maximum values of three extended precision
173164
floating point numbers, A, B and C and returns them in Min, Mid and Max
@@ -756,7 +747,7 @@ procedure MinMidMax(const A, B, C: Double; out Min, Mid, Max: Double); overload;
756747
end;
757748
end;
758749

759-
procedure MinMidMax(const A, B, C: Extended; out Min, Mid, Max: Extended);
750+
procedure MinMidMax(const A, B, C: Extended; out Min, Mid, Max: Extended);
760751
overload;
761752
{Finds the minimum, middle and maximum values of three extended precision
762753
floating point numbers, A, B and C and returns them in Min, Mid and Max

‎csdb/tests/Cat-String/UStringCatSnippets.pas

Lines changed: 11 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,12 @@
1+
{
2+
* This file was generated from the DelphiDabbler Code Snippets Database.
3+
* The source code is licensed under the MIT license, copyright © 2005-2020,
4+
* Peter Johnson (https://gravatar.com/delphidabbler) and Contributors. The
5+
* full license and a list of contributors can be found in the `LICENSE` and
6+
* `CONTRIBUTORS` files at
7+
* https://github.com/delphidabbler/code-snippets/tree/master/csdb/collection
8+
}
9+
110
unit UStringCatSnippets;
211

312
{$IFNDEF FPC}
@@ -35,7 +44,7 @@ function IsNumeric(Value: string; const AllowFloat: Boolean;
3544

3645
function SplitString(const AText, ADelimiter: string): Classes.TStringList;
3746

38-
procedure ParseStr(const StrToParse: string; const Delimiter: Char;
47+
procedure ParseStr(const StrToParse: string; const Delimiter: Char;
3948
const Words: Classes.TStringList);
4049

4150
implementation
@@ -97,7 +106,7 @@ function SplitString(const AText, ADelimiter: string): Classes.TStringList;
97106
Result.Add(LTxt);
98107
end;
99108

100-
procedure ParseStr(const StrToParse: string; const Delimiter: Char;
109+
procedure ParseStr(const StrToParse: string; const Delimiter: Char;
101110
const Words: Classes.TStringList);
102111
var
103112
TmpInStr: string;

‎csdb/tests/Cat-WinSys/UWinSysCatSnippets.pas

Lines changed: 8 additions & 17 deletions
Original file line numberDiff line numberDiff line change
@@ -1,19 +1,10 @@
11
{
2-
* This unit may be freely distributed and used on the condition that this
3-
* comment is not removed from the unit.
4-
*
5-
* The unit was generated automatically from a selection of source code taken
6-
* from the Code Snippets Database at http://www.delphidabbler.com/codesnip.
7-
*
8-
* The source code contained in this unit is made available on an "AS IS" basis,
9-
* WITHOUT WARRANTY OF ANY KIND, either express or implied. The code is used
10-
* entirely at your own risk.
11-
*
12-
* Generated on : Thu, 27 May 2010 16:17:52 GMT.
13-
* Generated by : DelphiDabbler CodeSnip Release 3.6.0.
14-
*
15-
* The latest version of CodeSnip is available from the DelphiDabbler website at
16-
* http://www.delphidabbler.com/software/codesnip.
2+
* This file was generated from the DelphiDabbler Code Snippets Database.
3+
* The source code is licensed under the MIT license, copyright © 2005-2020,
4+
* Peter Johnson (https://gravatar.com/delphidabbler) and Contributors. The
5+
* full license and a list of contributors can be found in the `LICENSE` and
6+
* `CONTRIBUTORS` files at
7+
* https://github.com/delphidabbler/code-snippets/tree/master/csdb/collection
178
}
189

1910
unit UWinSysCatSnippets;
@@ -148,7 +139,7 @@ function GetRegistryString(const RootKey: Windows.HKEY;
148139

149140
function IsMediaCenterOS: Boolean;
150141
const
151-
SM_MEDIACENTER = 87; // metrics flag not defined in Windows unit
142+
SM_MEDIACENTER = 87; // metrics flag not defined in Windows unit
152143
begin
153144
Result := Windows.GetSystemMetrics(SM_MEDIACENTER) <> 0;
154145
end;
@@ -162,7 +153,7 @@ function IsRemoteSession: Boolean;
162153

163154
function IsTabletOS: Boolean;
164155
const
165-
SM_TABLETPC = 86; // metrics flag not defined in Windows unit
156+
SM_TABLETPC = 86; // metrics flag not defined in Windows unit
166157
begin
167158
Result := Windows.GetSystemMetrics(SM_TABLETPC) <> 0;
168159
end;

0 commit comments

Comments
 (0)