unit3.pas

Delphi串口通信

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TeEngine, Series, Grids, ExtCtrls, TeeProcs, Chart;

Type TScanRecord = Packed Record
From,_To:Word;
Step:Word;
LitNum:Byte;
Mode:Byte;
Substance:String[40];
Concentration:String[15];
Date:TDateTime;
FilterFluor,Filter2Order:Byte;
End;

type
  TForm3 = class(TForm)
    Chart1: TChart;
    StringGrid1: TStringGrid;
    Series1: TFastLineSeries;
    Series2: TFastLineSeries;
    Series3: TFastLineSeries;
    Series4: TFastLineSeries;
    Series5: TFastLineSeries;
    OpenDialog1: TOpenDialog;
    CheckBox1: TCheckBox;
    procedure StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    CurrentStats:TScanRecord; // 桧纛痨圉