Delphi 实现千分表读取的代码

以下是使用 Delphi 实现千分表（也称为千分尺）读取的代码示例。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btnRead: TButton;
    Label1: TLabel;
    procedure btnReadClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  // 每个刻度代表的值
  ScaleValue = 0.001;

function ReadVernierCaliper: Double;
var
  DCB: TDCB;
  CommPort: string;
  hCom: THandle;
  BytesRead: DWORD;
  Buffer: array[0..1023] of Byte;
  i: Integer;
  VernierValue: Double;
begin
  // 打开串口
  CommPort := 'COM1'; // 指定串口号
  hCom := CreateFile(PChar(CommPort), GENERIC_READ or GENERIC_WRITE, 0, nil,
    OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  // 初始化串口设置
  FillChar(DCB, SizeOf(DCB), 0);
  DCB.DCBLength := SizeOf(DCB);
  DCB.BaudRate := 9600; // 波特率
  DCB.ByteSize := 8; // 数据位
  DCB.StopBits := ONESTOPBIT; // 停止位
  DCB.Parity := NOPARITY; // 校验位
  SetCommState(hCom, DCB);
  // 读取数据
  ReadFile(hCom, Buffer, SizeOf(Buffer), BytesRead, nil);
  // 关闭串口
  CloseHandle(hCom);
  // 解析数据
  VernierValue := 0;
  for i := 0 to BytesRead - 1 do
  begin
    if (Buffer[i] = $0D) or (Buffer[i] = $0A) then
      Break;
    if (Buffer[i] >= $30) and (Buffer[i] <= $39) then
      VernierValue := VernierValue * 10 + (Buffer[i] - $30);
    if Buffer[i] = $2E then
      Break;
  end;
  Result := VernierValue * ScaleValue;
end;

procedure TForm1.btnReadClick(Sender: TObject);
begin
  Label1.Caption := Format('当前读数：%.3f mm', [ReadVernierCaliper]);
end;

end.

说明：

- `ReadVernierCaliper` 函数用于读取千分表的数据，返回读数的浮点数值。
- `btnReadClick` 事件处理程序在按钮点击时调用 `ReadVernierCaliper` 函数，并将读数显示在标签 `Label1` 上。

使用前需要替换 `CommPort` 变量为实际使用的串口号，并根据需要修改波特率、数据位、停止位和校验位等串口设置。