unit1.pas

来自「Delphi编程技巧5」· PAS 代码 · 共 47 行

unit Unit1;
  //                 http://www.ProgZed.com
interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;

    procedure Button1Click(Sender: TObject);

  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);


    var i:integer; // variable pour les chiffres du Edit1

        begin
         i:= StrToInt(edit1.text);     // on receuille le contenu du edit en Integer
             Edit2.text := inttoHex(i,10); //Ici on transforme en HEX avec 10 chiffres
             end;





end.