unit UZahlensysteme;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 =
class(TForm)
zahledt: TEdit;
ausgabepanel: TPanel;
RadioGroup1: TRadioGroup;
RadioGroup2: TRadioGroup;
wandelnbutton: TButton;
clearbutton: TButton;
procedure clearbuttonClick(Sender: TObject);
procedure wandelnbuttonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.clearbuttonClick(Sender: TObject);
begin
zahledt.text := '
';
ausgabepanel.caption := '
';
end;
{function DezinDual (var ewert : integer):String;
var n, divwert, modwert : integer; Feld : array of integer;
begin
n := 0;
while ewert > 0 do
begin
setlength(Feld,high(Feld)+2);
divwert := ewert div 2;
ewert := divwert;
modwert := ewert mod 2;
Feld[n] := modwert;
inc(n);
end;
end; }
function DezinHex (ewert : integer):
String;
var Erg:
String;
begin
erg :='
';
while ewert > 0
do begin
erg := inttostr(ewert
mod 2) + erg;
ewert := ewert
div 2;
end;
result:= erg;
end;
procedure TForm1.wandelnbuttonClick(Sender: TObject);
var ewert, ergebnis, Feld, n, erg : integer;
begin
ewert := strtoint(zahledt.text);
//DezinDual (ewert);
DezinHex (ewert);
ausgabepanel.Caption := inttostr(erg);
//ausgabepanel.caption := inttostr(Feld[n]);
//ausgabepanel.caption := IntToHex(ewert,4);
end;
end.