Accept sexadecimal input

Author: pchev

component/indiclient/pu_indigui.lfm

@@ -1,41 +1,42 @@
 object f_indigui: Tf_indigui
   Left = 572
-  Height = 520
+  Height = 525
   Top = 53
-  Width = 670
+  Width = 677
   Caption = 'INDI'
-  ClientHeight = 520
-  ClientWidth = 670
-  DesignTimePPI = 95
+  ClientHeight = 525
+  ClientWidth = 677
   OnClose = FormClose
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnShow = FormShow
   object dev: TPageControl
     Left = 0
-    Height = 425
+    Height = 429
     Top = 0
-    Width = 670
+    Width = 677
     Align = alClient
+    ParentFont = False
     TabOrder = 0
   end
   object Splitter1: TSplitter
     Cursor = crVSplit
     Left = 0
     Height = 5
-    Top = 425
-    Width = 670
+    Top = 429
+    Width = 677
     Align = alBottom
     Beveled = True
     ParentColor = False
     ResizeAnchor = akBottom
   end
   object msg: TMemo
     Left = 0
-    Height = 90
-    Top = 430
-    Width = 670
+    Height = 91
+    Top = 434
+    Width = 677
     Align = alBottom
+    ParentFont = False
     ReadOnly = True
     ScrollBars = ssAutoVertical
     TabOrder = 1

component/indiclient/pu_indigui.pas

@@ -585,6 +585,43 @@ function SXToStr(de: double): string;
   Result := d + ':' + m + ':' + s;
 end;
 
+function StrToSX(sx: string): double;
+const sep = ':';
+var
+  s, p: integer;
+  t: string;
+begin
+  try
+    sx := StringReplace(sx, ' ', '0', [rfReplaceAll]);
+    if copy(sx, 1, 1) = '-' then
+      s := -1
+    else
+      s := 1;
+    p := pos(sep, sx);
+    if p = 0 then
+      Result := StrToFloatDef(sx, -9999)
+    else
+    begin
+      t := copy(sx, 1, p - 1);
+      Delete(sx, 1, p);
+      Result := StrToIntDef(t, 0);
+      p := pos(sep, sx);
+      if p = 0 then
+        Result := Result + s * StrToIntDef(sx, 0) / 60
+      else
+      begin
+        t := copy(sx, 1, p - 1);
+        Delete(sx, 1, p);
+        Result := Result + s * StrToIntDef(t, 0) / 60;
+        Result := Result + s * StrToFloatDef(sx, 0) / 3600;
+      end;
+    end;
+  except
+    Result := -9999;
+  end;
+
+end;
+
 function IndiFormatFloat(x: double; fmt: string): string;
 begin
   if copy(fmt, Length(fmt), 1) = 'm' then
@@ -602,6 +639,20 @@ function IndiFormatFloat(x: double; fmt: string): string;
   end;
 end;
 
+function IndiStr2Float(txt, fmt: string; out value: double): integer;
+begin
+  if copy(fmt, Length(fmt), 1) = 'm' then begin
+    value:=StrToSX(txt);
+    if value=-9999 then
+      result:=1
+    else
+      result:=0;
+  end
+  else begin
+    val(txt, value, result);
+  end;
+end;
+
 procedure Tf_indigui.CreateNumberWidget(iprop: TIndiProp);
 var
   lbl: TLabel;
@@ -1036,11 +1087,15 @@ procedure Tf_indigui.SetButtonClick(Sender: TObject);
         entry := TEdit(iprop.entry.Objects[j]);
         if entry.Text <> '' then
         begin
-          val(entry.Text, Value, er);
-          if er = 0 then
+          er:=IndiStr2Float(entry.Text,nvp.np[i].format,Value);
+          if er = 0 then begin
             nvp.np[i].Value := Value;
+            buf := buf + nvp.np[i].Name + '=' + FloatToStr(nvp.np[i].Value) + ' ';
+          end
+          else begin
+            buf := buf + nvp.np[i].Name + ' not numeric ' +entry.Text+ ' ';
+          end;
           entry.Clear;
-          buf := buf + nvp.np[i].Name + '=' + FloatToStr(nvp.np[i].Value) + ' ';
         end;
       end;
       indiclient.sendNewNumber(nvp);