Problem mit Bit-Manipulation

[Panschi]

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 :-D

[DeddyH]

Und was soll da jetzt falsch sein?

[Panschi]

Bei dem NOT befehl gibt er mir die Eingabe um 1 erhöht nur negativ aus

Quasi Eignabe: 4
Ausgabe: -5

[DeddyH]

Und was hast Du erwartet? Bekommst Du das gewünschte Ergebnis, wenn Du nicht integer, sondern Cardinal nimmst?

[Panschi]

Cardinal bewirkt das gleiche Ergebnis...

Aber wenn ich das richtig verstanden habe, dann müsste bei 4 (also 0100), 11 (1011) herauskommen oder?

[DeddyH]

Und was ist mit den restlichen 28 Bit?

[edit] Nochmal zum Verständnis:

Code:

//integer = 32 Bit
00000000000000000000000000000100 // = 4
11111111111111111111111111111011 // = not 4

[/edit]

[Panschi]

hm... dann wäre die 4 ja 0000 0000 0000 0000 0000 0000 0000 0100 und bei NOT würde dann 1111 1111 1111 1111 1111 1111 1111 1011 herausbekommen... das wäre dann ja doch ein bisschen größer als erwartet

[Panschi]

das wäre 16 777 211

[DeddyH]

Sicher?

[edit] Du musst Dich schon auf den gewünschten Zahlenbereich einschränken, indem Du entweder einen anderen Datentyp nimmst oder mit einer Konstanten ver"and"est. [/edit]

[Panschi]

2^31 = 2 147 483 648 :oops: okay

[himitsu]

Und genau das ist richtig.

das höste Bit ist quasi das "-"
und damit die 0 nicht doppelt vorkommt, gibt es kein "-0", weswegen dann natürlich die negativen Darstellungen um 1 verschoben sind.
> Zweierkomplement

Laß dir das Ergebnis und den Eingang doch einfach mal Hexadezimal oder Binär ausgeben.

[Panschi]

okay... wenn ich die NOT Funktion anwende und das Ergebnis in Binär ausgebe stimmts schonmal

[DeddyH]

Es hätte mich auch gewundert, wenn nicht. Wie gesagt, Du kannst zur Not noch AND-verknüpfen, wenn Du Dich auf eine bestimmte Bitbreite einschränken willst.

[Panschi]

Danke schonmal für die Antworten :thumb: Dann probiere ich das mit dem AND jetzt mal noch aus

[Alex.G]

Delphi-Quellcode:

(not zahl1) and (not 2147483648);

Könnte man das auch verwenden? :lol:

[DeddyH]

Zitat:

Zitat von Panschi (Beitrag 1122800)

Aber wenn ich das richtig verstanden habe, dann müsste bei 4 (also 0100), 11 (1011) herauskommen oder?

Delphi-Quellcode:

ShowMessage(IntToStr(not 4 and $0000000F));

:zwinker:

[himitsu]

Verwende auch mal Cardinal (LongWord) statt dem Integer (LongInt).

Dazu dann noch IntToStr und StrToInt64, für die Umwandlung.


Bedenke, daß es 2147483648 im "Integer" nicht gibt.
Es funktioniert nur, da dieses zufällig (falls überhaupt) in einen Int64 umgewandelt wird.

Der Compiler verwendet selten Cardinal und versucht es öfters gegen Integer/Int64 zu casten.

Wärend $80000000 in einen Integer paßt, da bei der Hexadezimaldarstellung vom Compiler standardmäßig kein "-" erwartet wird und es somit in 32 Bit reinpaßt.

[Panschi]

:-Dcool, danke für die :thumb: so läufts endlich :-D

Das mit dem Cardinal werd ich mir mal genauer angucken :-D

[DeddyH]

Der Unterschied zwischen Integer und Cardinal ist einfach der, dass Integer vorzeichenbehaftet ist, d.h. das höchstwertige Bit bestimmt, ob es sich um eine positive oder negative Zahl handelt.

[Panschi]

ah okay... und bei Cardinal würde die Zahl dann positiv bleiben

[DeddyH]

Exakt. Schau doch einfach mal in die Hilfe zu den verschiedenen ganzzahligen Datentypen, da stehen alle Informationen, die Du brauchst.

[Panschi]

mach ich! danke :-D