Changeset 108 for trunk/Packages

Timestamp:

Feb 11, 2022, 11:31:42 AM (3 years ago)

Author:

chronos

Message:

• Fixed: Do not update interface in contact properties if the listview doesn't have handle yet.
• Added: Synced update of full name and name parts in contact form.
• Modified: Improved image loading code by image format.

File:

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

trunk/Packages/Common/UCommon.pas

@@ -13 +13 @@
 type
   TArrayOfByte = array of Byte;
-  TArrayOfString = array of string;
   TExceptionEvent = procedure(Sender: TObject; E: Exception) of object;
 
@@ -51 +50 @@
 function ComputerName: string;
 procedure DeleteFiles(APath, AFileSpec: string);
+function Explode(Separator: Char; Data: string): TStringArray;
 procedure ExecuteProgram(Executable: string; Parameters: array of string);
 procedure FileDialogUpdateFilterFileType(FileDialog: TOpenDialog);
@@ -65 +65 @@
 function LoadFileToStr(const FileName: TFileName): AnsiString;
 function LoggedOnUserNameEx(Format: TUserNameFormat): string;
-function MergeArray(A, B: array of string): TArrayOfString;
+function MergeArray(A, B: array of string): TStringArray;
 function OccurenceOfChar(What: Char; Where: string): Integer;
 procedure OpenWebPage(URL: string);
@@ -291 +291 @@
 end;
 
-function Explode(Separator: char; Data: string): TArrayOfString;
-begin
-  Result := nil;
-  SetLength(Result, 0);
-  while Pos(Separator, Data) > 0 do begin
-    SetLength(Result, Length(Result) + 1);
-    Result[High(Result)] := Copy(Data, 1, Pos(Separator, Data) - 1);
-    Delete(Data, 1, Pos(Separator, Data));
-  end;
+function Explode(Separator: Char; Data: string): TStringArray;
+var
+  Index: Integer;
+begin
+  Result := Default(TStringArray);
+  repeat
+    Index := Pos(Separator, Data);
+    if Index > 0 then begin
+      SetLength(Result, Length(Result) + 1);
+      Result[High(Result)] := Copy(Data, 1, Index - 1);
+      Delete(Data, 1, Index);
+    end else Break;
+  until False;
   SetLength(Result, Length(Result) + 1);
   Result[High(Result)] := Data;
@@ -509 +513 @@
 end;
 
-function MergeArray(A, B: array of string): TArrayOfString;
-var
-  I: Integer;
-begin
-  Result := Default(TArrayOfString);
+function MergeArray(A, B: array of string): TStringArray;
+var
+  I: Integer;
+begin
+  Result := Default(TStringArray);
   SetLength(Result, Length(A) + Length(B));
   for I := 0 to Length(A) - 1 do