unit2.pas

pdu编码的软件源代码

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  str1:string;
implementation

{$R *.DFM}

function Encode2(var s:WideString):String;
var
i,len:Integer;
cur:Integer;
t:String;
begin
Result:='';
len:=Length(s);
i:=1;
while i<=len do
begin
cur:=ord(s[i]);
//BCD转换
FmtStr(t,'%4.4X',[cur]);
Result:=Result+t;
inc(i);
end;
str1:=result;
end;
procedure TForm2.SpeedButton1Click(Sender: TObject);
var
temp:widestring;
begin
temp:=memo1.Text;
encode2(temp);
memo2.Text:=str1;
end;

procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
close;
end;

end.