Changeset 98 for trunk/Packages/Common/UCommon.pas

Timestamp:

Feb 4, 2022, 12:09:04 PM (3 years ago)

Author:

chronos

Message:

• Fixed: Build warnings.
• Added: KAddressBook samples.
• Added: vCard 2.1 specification.

File:

• trunk/Packages/Common/UCommon.pas (modified) (3 diffs)

trunk/Packages/Common/UCommon.pas

@@ -84 +84 @@
 function SplitString(var Text: string; Count: Word): string;
 function StripTags(const S: string): string;
-function TryHexToInt(Data: string; var Value: Integer): Boolean;
-function TryBinToInt(Data: string; var Value: Integer): Boolean;
+function TryHexToInt(Data: string; out Value: Integer): Boolean;
+function TryBinToInt(Data: string; out Value: Integer): Boolean;
 procedure SortStrings(Strings: TStrings);
 
@@ -247 +247 @@
 end;
 
-function TryHexToInt(Data: string; var Value: Integer): Boolean;
+function TryHexToInt(Data: string; out Value: Integer): Boolean;
 var
   I: Integer;
@@ -263 +263 @@
 end;
 
-function TryBinToInt(Data: string; var Value: Integer): Boolean;
+function TryBinToInt(Data: string; out Value: Integer): Boolean;
 var
   I: Integer;