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

Timestamp:

Jan 17, 2022, 10:11:05 PM (3 years ago)

Author:

chronos

Message:

• Modified: Eliminated compilation hints from Common package.

File:

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

trunk/Packages/Common/UCommon.pas

@@ -6 +6 @@
 
 uses
-  {$ifdef Windows}Windows,{$endif}
-  {$ifdef Linux}baseunix,{$endif}
+  {$IFDEF WINDOWS}Windows,{$ENDIF}
+  {$IFDEF UNIX}baseunix,{$ENDIF}
   Classes, SysUtils, StrUtils, Dialogs, Process, LCLIntf,
   FileUtil; //, ShFolder, ShellAPI;
@@ -35 +35 @@
   DLLHandle1: HModule;
 
-{$IFDEF Windows}
+{$IFDEF WINDOWS}
   GetUserNameEx: procedure (NameFormat: DWORD;
     lpNameBuffer: LPSTR; nSize: PULONG); stdcall;
@@ -292 +292 @@
 function Explode(Separator: char; Data: string): TArrayOfString;
 begin
+  Result := nil;
   SetLength(Result, 0);
   while Pos(Separator, Data) > 0 do begin
@@ -346 +347 @@
   Name: UtsName;
 begin
+  Name := Default(UtsName);
   fpuname(Name);
   Result := Name.Nodename;
@@ -505 +507 @@
   I: Integer;
 begin
+  Result := Default(TArrayOfString);
   SetLength(Result, Length(A) + Length(B));
   for I := 0 to Length(A) - 1 do