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

Timestamp:

Jan 14, 2022, 10:34:53 AM (3 years ago)

Author:

chronos

Message:

• Modified: Use latest stable Lazarus 2.2.0 for build.
• Modified: Updated Common package to version 0.9.

File:

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

trunk/Packages/Common/UCommon.pas

@@ -85 +85 @@
 function TryHexToInt(Data: string; var Value: Integer): Boolean;
 function TryBinToInt(Data: string; var Value: Integer): Boolean;
+procedure SortStrings(Strings: TStrings);
 
 
@@ -677 +678 @@
 end;
 
+procedure SortStrings(Strings: TStrings);
+var
+  Tmp: TStringList;
+begin
+  Strings.BeginUpdate;
+  try
+    if Strings is TStringList then begin
+      TStringList(Strings).Sort;
+    end else begin
+      Tmp := TStringList.Create;
+      try
+        Tmp.Assign(Strings);
+        Tmp.Sort;
+        Strings.Assign(Tmp);
+      finally
+        Tmp.Free;
+      end;
+    end;
+  finally
+    Strings.EndUpdate;
+  end;
+end;
+
 
 initialization