Einzelnen Beitrag anzeigen

Benutzerbild von Panschi
Panschi

Registriert seit: 30. Aug 2011
Ort: Sauerland
51 Beiträge
 
Delphi XE2 Enterprise
 
#1

Problem mit Bit-Manipulation

  Alt 9. Sep 2011, 07:40
Delphi-Version: 5
Hallo Forum,
Ich bin gerade dabei ein Übungsprogramm zu schreiben um die Manipulation von Zahlen mit Hilfe der Bit-Befehle (OR, AND, XOR etc.) in Delphi umzusetzen und zu verstehen. Soweit klappen auch alle Befehle, nur beim NOT Befehl hab ich meine Schwierigkeiten.
(Habe 2 Edit eingabefelder - EdtEingabe, EdtEingabe2 - und für jede Bit Operation einen Button)
Hier mein Quelltext:

Delphi-Quellcode:
procedure TForm1.BtnClick(Sender: TObject);
var Ergebnis: Integer;
    hilfswert: Integer;

begin
  Eingabe := StrToInt(EdtEingabe.Text);
  Eingabe2 := StrToInt(EdtEingabe2.Text);

  if Sender = BtnNot then
  begin
    Ergebnis := NOT Eingabe; //?????
    LblErgebnis.Caption := IntToStr(Ergebnis);
  end;

  if Sender = BtnAnd then
  begin
    Ergebnis := eingabe AND eingabe2;
    LblErgebnis.Caption := IntToStr(Ergebnis);
  end;

  if Sender = BtnOR then
  begin
    Ergebnis := Eingabe OR Eingabe2;
    LblErgebnis.Caption := IntToStr(Ergebnis);
  end;

  if Sender = BtnXOR then
  begin
    Ergebnis := Eingabe XOR Eingabe2;
    LblErgebnis.Caption := IntToStr(Ergebnis);
  end;

  if Sender = BtnShl then
  begin
    hilfswert := StrToInt(InputBox('SHL', 'Geben sie einen Wert für die SHL Funktion ein', '2'));
    Ergebnis := Eingabe SHL hilfswert;
    LblErgebnis.Caption := IntToStr(Ergebnis);
    EdtEingabe2.Text := '0';
  end;

  if Sender = BtnShr then
  begin
    hilfswert := StrToInt(InputBox('SHR', 'Geben sie einen Wert für die SHR Funktion ein', '2'));
    Ergebnis := Eingabe SHR hilfswert;
    LblErgebnis.Caption := IntToStr(Ergebnis);
    EdtEingabe2.Text := '0';
  end;
end;
Hoffe es ist nicht ein allzu dummer fehler
Warum mögen Frauen OOP-Programmierer? Weil sie Klasse haben
  Mit Zitat antworten Zitat