1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

procedure Tfrmzahlenwandeln.dual_hexadezimal();
const
  hex_zahlen = '0123456789ABCDEF';
var
  eingabe : String;
  i, ergebnis : Integer;
begin

  eingabe := Edit1.Text;    <-- Edit1 ist das Eingabefeld

  if Length(eingabe)>4 then
    ShowMessage('Fehler: Überlauf');
  if (Length(eingabe)=0) or (StrToIntDef(eingabe,-1)=-1) then
    ShowMessage('Bitte eine Zahl eingeben');

      ergebnis:=0;
      Edit2.Text := '0';    <-- Edit2 ist das Ausgabefeld

  for i:=1 to Length(eingabe) do
  begin
    ergebnis:=ergebnis*2;
    ergebnis:=ergebnis+StrToInt(eingabe[i]);
  end;

  //Starte ganz hinten
  i:=length(text);
  repeat
    eingabe:='';
    repeat
      eingabe:=text[i]+eingabe;
      Dec(i);  
    until (i=0) or (Length(eingabe)=4);
    //Dem Ergebnis das Hexadezimalzeichen hinzufügen
    ergebnis := hex_zahlen[StrToInt(eingabe)+1]+ergebnis;  <-- Fehler: "Inkompatible Typen"
  until i=0;
  Edit2.Text := IntToStr(ergebnis);

end;                    

1:
2:
3:
4:

function HexToInt(HexNum: string): Integer; 
begin 
  Result:=StrToInt('$' + HexNum); 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

function BinToInt(Value: string): Integer;
var
  i, iValueSize: Integer;
begin
  Result := 0;
  iValueSize := Length(Value);
  for i := iValueSize downto 1 do
    if Value[i] = '1' then Result := Result + (1 shl (iValueSize - i));
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  zahl : Integer;
begin
  zahl := StrToInt(Edit1.Text);

  try
    Edit2.Text := IntToHex(zahl,0);
  except
    messagedlg('Fehler bei der Verarbeitung - Bitte wiederholen',mtWarning,[mbOK], 0);
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Function IntToBin(IntWert : Integer):String;
Var Ref              : String;
    Calc              : Integer;
    Zeiger            : Integer;
    Ausg             : String;
Begin
   Ausg:='';
    Ref:='01';
  Calc:=Wert;
   Repeat
      Zeiger:=Calc-(Trunc(Calc/2)*2)+1; // Rest aus der Teilung ermitteln und da rest 0 oder 1 ist für Zeiger +1
      Ausg:=Ref[Zeiger]+Ausg;
      Calc:=Trunc(Trunc/2); 
   until Calc:=0; // ende der Berechnung
   While Length(Ausg) (*) 16 then Ausg:='0'+Ausg; // Auf Wortlänge bringen, bzw. anpasen auf gewünschte Länge
   Result:=Ausg;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

FunctionBinToInt(BinaerWert : String):Integer;
Var     Calc              : Integer;
          i                    : Integer;
         
Begin
   Calc:=0;
   For i:=0 to Length(Wert) -1 do 
  begin
     if BinaerWert[ Length(Wert)-i]='1' then Calc:=Calc+Power(2,i); // 2^0 =1, 2^1=2, 2^2=4 etc.....
  end;
   Result:=Ausg;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

var
  zahl, ergebnis : String;
  int_wert : integer;
begin
  zahl := Edit1.Text;
  int_wert := StrToInt('$' + zahl);

  if int_wert = 0 then
    Edit2.Text := '0';

  ergebnis := IntToStr(int_wert mod 2);

  repeat
    int_wert := int_wert div 2;
    ergebnis := IntToStr(int_wert mod 2)+ergebnis;
  until int_wert = 0;

  Edit2.Text := ergebnis;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var
  int_wert, i, laenge : Integer;
  inhalt, ergebnis : String;
begin
  inhalt := Edit1.Text;
  int_wert := 0;
  laenge := Length(inhalt);

  for i := laenge downto 1 do
    if inhalt[i] = '1' then int_wert := int_wert + (1 shl (laenge - i));

  ergebnis := IntToHex(int_wert,0);
  edit2.Text := ergebnis;
end;