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