Update TechniSatAPI.pas

Minor changes.
feuster · Dec 15, 2019 · 8197a93 · 8197a93
1 parent 919ed47
commit 8197a93
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/TechniSatAPI.pas b/TechniSatAPI.pas
@@ -288,12 +288,16 @@ function tsapi_BtnCodeByName(ButtonName: String): Byte;
   //set default result to invalid button
   Result:=128;
 
+  //Check if string is not empty
+  if ButtonName='' then
+    exit;
+
   //allow also KEY_ for BTN_
   if LeftStr(UpperCase(ButtonName),4)='KEY_' then
     ButtonName:=StringReplace(ButtonName, 'KEY_', 'BTN_', [rfReplaceAll, rfIgnoreCase]);
 
-  //Check if string is not empty and starts with BTN_
-  if (ButtonName<>'') and (LeftStr(UpperCase(ButtonName),4)<>'BTN_') then
+  //Check if string starts with BTN_
+  if LeftStr(UpperCase(ButtonName),4)<>'BTN_' then
     exit;
 
   //Read code from array
@@ -310,7 +314,6 @@ function tsapi_BtnCodeByName(ButtonName: String): Byte;
 function tsapi_BtnDescByName(ButtonName: String): String;
 //read button description from given button name
 begin
-  //set default result to invalid button
   Result:=tsapi_BtnDescByCode(tsapi_BtnCodeByName(ButtonName));
 end;