还有，if语句是可以嵌套使用的。当if语句嵌套使用时，每一个else子句，总是与它前面离它“最近的”、且未配对过的if相匹配（即这个else是当该if条件不成立时才执行的）。

Delphi中 “=” 表示比较两边的值是否相等，返回一个True/False的bool类型值。比如 “a=b” 可以作为 if的判断条件，根据a和b的实际大小，进行if语句的跳转。如果要赋值，Delphi中不能直接使用“=”号，而需要使用“：=”，比如将b的值赋给a，表达为 “a ：= b”。

如果是判断键盘输入是否数字，可以用上面的算法，很全面了。

在Delphi中，用来截取字符的函数主要有LeftStr、MidStr和RightStr，它们都包含在StrUtils单元中。以下是这些函数的使用方法： LeftStr函数 功能：从左边开始截取指定长度的字符串。

首先，创建一个TStringList对象。然后设置Delimiter属性为'；-'；，这指定了字符串中的分隔符。接着设置DelimitedText属性为'；1234567-9'；，这就是你的输入字符串。最后，TStringList会自动将字符串按照指定的分隔符进行分割，并将分割后的部分存储在列表中。

StrRScan函数是一个在Delphi的SysUtils单元中定义的函数，用于从右往左搜索字符串中指定字符最后出现的位置。以下是该函数的详细说明：函数原型：function StrRScan： PChar；参数说明：Str：一个指向常量字符的指针，表示要搜索的字符串。Chr：一个字符，表示要在字符串中搜索的字符。

1、创建新项目：打开Delphi，创建一个新的VCL Forms应用程序。 添加组件：从工具栏中添加以下组件到窗体：串口组件（TserialPort）按钮（TButton）文本框（TEdit）配置串口组件。

2、下位机是直接控制设备获取设备状况的计算机，一般是PLC/单片机single chip microcomputer/slave computer/lower computer之类的。上位机发出的命令首先给下位机，下位机再根据此命令解释成相应时序信号直接控制相应设备。下位机不时读取设备状态数据（一般为模拟量），转换成数字信号反馈给上位机。

3、computer/lower computer之类的。上位机发出的命令首先给下位机，下位机再根据此命令解释成相应时序信号直接控制相应设备。下位机不时读取设备状态数据（一般为模拟量），转换成数字信号反馈给上位机。简言之如此，实际情况千差万别，但万变不离其宗：上下位机都需要编程，都有专门的开发系统。