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 DezinHex (
var ewert : integer):integer;
var ergebnis, n : integer;
Feld :
array [1..n]
of integer; -----> Constand expression expected
begin
n := 1;
repeat
ergebnis := ewert
div 2;
Feld[n] := ewert
mod 2;
inc(n);
until (ergebnis <= 0);
ewert := ergebnis;
end;
procedure TForm1.wandelnbuttonClick(Sender: TObject);
var ewert : integer;
begin
ewert := strtoint(zahledt.text);
DezinHex (ewert);
ausgabepanel.caption := inttostr(ewert);
end;
end.