unit1.~pas

来自「RS232串口通讯随书源码」· ~PAS 代码 · 共 59 行

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    txtInput: TEdit;
    Label1: TLabel;
    cmdCalc: TButton;
    Label2: TLabel;
    txtString: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    txtANSI: TEdit;
    txtWide: TEdit;
    cmdClose: TButton;
    procedure cmdCalcClick(Sender: TObject);
    procedure cmdCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//以下程序计算字符串的长度
procedure TForm1.cmdCalcClick(Sender: TObject);
var
  InStrW:WideString;
  InStrA:ANSIString;
  INStr :String;
begin
  //同样的字符串，指定给不同的字符串类型
  InStr:=txtInput.Text;
  InStrA:=txtInput.Text;
  InStrW:=txtInput.Text;
  //同样的函数，用来计算不同类型的字符串
  txtString.text:=IntToStr(Length(InStr));
  txtANSI.text:=IntToStr(Length(InStrA));
  txtWide.text:=IntToStr(Length(InStrW));
end;

procedure TForm1.cmdCloseClick(Sender: TObject);
begin
  Close; //结束程序
end;

end.