Перевод чисел

Примечание. Перед шестнадцатеричным числом надо вводить знак $.

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, 
  Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm_convertion }
 
  TForm_convertion = class(TForm)
    Button_convertion: TButton;
    Edit_dec: TEdit;
    Edit_hex: TEdit;
    Label_hex: TLabel;
    Label_dec: TLabel;
    Label_title2: TLabel;
    Label_title3: TLabel;
    Label_title4: TLabel;
    Label_title1: TLabel;
    procedure Button_convertionClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form_convertion: TForm_convertion;
 
implementation
 
{$R *.lfm}
 
{ TForm_convertion }
 
procedure TForm_convertion.Button_convertionClick(Sender: TObject);
begin
  Label_hex.Caption:= IntToHex(StrToInt(Edit_dec.Text),1);
  Label_dec.Caption:= IntToStr(StrToInt(Edit_hex.Text));
end;
 
end.

Добавить комментарий