Changeset 90 for trunk/Packages/Common/UGeometric.pas

Timestamp:

Feb 2, 2022, 2:55:58 PM (3 years ago)

Author:

chronos

Message:

• Modified: Build under Lazarus 2.2.0.
• Modified: Updated Common package.
• Added: Read Me file with app description and development information.
• Added: Test form available in debug mode from Tools menu with list of test cases to better support app testability.

File:

• trunk/Packages/Common/UGeometric.pas (modified) (1 diff)

trunk/Packages/Common/UGeometric.pas

@@ -96 +96 @@
   I: Integer;
 begin
+  Result := Default(TPointArray);
   SetLength(Result, Length(P));
   for I := 0 to High(P) do