unit1.pas

来自「《参透Delphi Kylix》通过131个事例」· PAS 代码 · 共 64 行

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    EditOne: TEdit;
    EditThree: TEdit;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    EditTwo: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure EditTwoKeyPress(Sender: TObject; var Key: Char);
    procedure EditOneKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    FStrSvr1, FStrSvr2: IJuComStrServer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses ComObj;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FStrSvr1 := CreateComObject(Class_JuComStrServer) as IJuComStrServer;
  FStrSvr1.Text := '';
  FStrSvr2 := CreateComObject(Class_JuComStrServer) as IJuComStrServer;
  FStrSvr2.Text := '';
end;

procedure TForm1.EditTwoKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    FStrSvr2.Text := EditTwo.Text;
    EditThree.Text := FStrSvr2.LowerCase();
  end;
end;

procedure TForm1.EditOneKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    FStrSvr1.Text := EditOne.Text;
    EditThree.Text := FStrSvr1.UpperCase();
  end;
end;

end.