LazStats: Add forgotten unit Utils. Some simplification in BackRegUnit, CoxRegunit, StepFwdMRUnit

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7356 8e941d3f-bd1b-0410-a28a-d453659cc2b4

applications/lazstats/source/units/utils.pas

@@ -0,0 +1,28 @@
+unit Utils;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, StdCtrls;
+
+function AnySelected(AListbox: TListBox): Boolean;
+
+implementation
+
+function AnySelected(AListBox: TListBox): Boolean;
+var
+  i: Integer;
+begin
+  Result := false;
+  for i := 0 to AListbox.Items.Count-1 do
+    if AListbox.Selected[i] then
+    begin
+      Result := true;
+      exit;
+    end;
+end;
+
+end.
+