2Er Komplement nach Signed Char umwandeln

**hedie**

Hallo Zusammen...

Von einer Hardware erhalte ich über den ComPort eine 2er Komplement Zahl.
Diese liegt in einer integer Variabel (ist jedoch nur ein Byte gross!)

Diese würde ich nun gerne Umwandeln und in einer Signed Char Variabel abspeichern so dass ich danach die Werte 127 - -128 habe.

Wie kann man dies machen?

Danke schonmal

**DeddyH**

Kannst Du sie nicht einfach nach ShortInt casten? Oder habe ich Dich völlig falsch verstanden?

**hedie**

Zitat von DeddyH:

Kannst Du sie nicht einfach nach ShortInt casten? Oder habe ich Dich völlig falsch verstanden?

Was genau macht den das ShortInt?

**DeddyH**

ShortInt ist ein Byte mit Vorzeichen.

**hedie**

ah sehr schön

Gibt es auch noch eine funktion um ein ShortInt mit vorzeichen in einem Label auszugeben?

**DeddyH**

Wieso nicht einfachDeinLabel.Caption := IntToStr(ShortIntValue);

**hedie**

Weil dann das Label nur Werte von 0 - 127 anzeigt... Jedoch das vorzeichen nicht.

**hedie**

Das Casten mit ShortInt scheint nicht zu funktionieren...

Ich weiss das die Hardware korrekte 2er Komplement Daten Sendet... (Sehe ich im Debugmodus)

Nach dem ShortInt casting hat diese Variable jedoch nur den Wert von 0 - 127

**DeddyH**

Dann machst Du vielleicht etwas falsch. Ein kleiner Test bei mir (nur ein Button und ein Label auf der Form):

markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

  Label1.Caption := IntToStr(ShortInt(Random(256)));

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  Randomize;

end;

Klappt wunderbar.

**hedie**

Hat funktioniert... Besten Dank

Es lag am Datentyp bei der Sendenden Hardware

2Er Komplement nach Signed Char umwandeln

2Er Komplement nach Signed Char umwandeln

AW: 2Er Komplement nach Signed Char umwandeln

AW: 2Er Komplement nach Signed Char umwandeln

AW: 2Er Komplement nach Signed Char umwandeln

AW: 2Er Komplement nach Signed Char umwandeln

AW: 2Er Komplement nach Signed Char umwandeln

AW: 2Er Komplement nach Signed Char umwandeln

AW: 2Er Komplement nach Signed Char umwandeln

AW: 2Er Komplement nach Signed Char umwandeln

AW: 2Er Komplement nach Signed Char umwandeln

Forumregeln

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.540 Beiträge Delphi 11 Alexandria	#2 AW: 2Er Komplement nach Signed Char umwandeln 2. Jan 2011, 12:48 Kannst Du sie nicht einfach nach ShortInt casten? Oder habe ich Dich völlig falsch verstanden? Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

hedie Registriert seit: 12. Dez 2005 Ort: Schweiz 1.024 Beiträge Delphi XE6 Starter	#3 AW: 2Er Komplement nach Signed Char umwandeln 2. Jan 2011, 13:01 Zitat von DeddyH: Kannst Du sie nicht einfach nach ShortInt casten? Oder habe ich Dich völlig falsch verstanden? Was genau macht den das ShortInt? Claudio Tu was du nicht lassen kannst - http://endasmedia.ch
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.540 Beiträge Delphi 11 Alexandria	#4 AW: 2Er Komplement nach Signed Char umwandeln 2. Jan 2011, 13:04 ShortInt ist ein Byte mit Vorzeichen. Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

hedie Registriert seit: 12. Dez 2005 Ort: Schweiz 1.024 Beiträge Delphi XE6 Starter	#5 AW: 2Er Komplement nach Signed Char umwandeln 2. Jan 2011, 13:14 ah sehr schön Gibt es auch noch eine funktion um ein ShortInt mit vorzeichen in einem Label auszugeben? Claudio Tu was du nicht lassen kannst - http://endasmedia.ch
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.540 Beiträge Delphi 11 Alexandria	#6 AW: 2Er Komplement nach Signed Char umwandeln 2. Jan 2011, 13:16 Wieso nicht einfachDeinLabel.Caption := IntToStr(ShortIntValue); Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

hedie Registriert seit: 12. Dez 2005 Ort: Schweiz 1.024 Beiträge Delphi XE6 Starter	#7 AW: 2Er Komplement nach Signed Char umwandeln 2. Jan 2011, 13:18 Weil dann das Label nur Werte von 0 - 127 anzeigt... Jedoch das vorzeichen nicht. Claudio Tu was du nicht lassen kannst - http://endasmedia.ch
	Zitat

hedie Registriert seit: 12. Dez 2005 Ort: Schweiz 1.024 Beiträge Delphi XE6 Starter	#8 AW: 2Er Komplement nach Signed Char umwandeln 2. Jan 2011, 13:21 Das Casten mit ShortInt scheint nicht zu funktionieren... Ich weiss das die Hardware korrekte 2er Komplement Daten Sendet... (Sehe ich im Debugmodus) Nach dem ShortInt casting hat diese Variable jedoch nur den Wert von 0 - 127 Claudio Tu was du nicht lassen kannst - http://endasmedia.ch
	Zitat

hedie Registriert seit: 12. Dez 2005 Ort: Schweiz 1.024 Beiträge Delphi XE6 Starter	#10 AW: 2Er Komplement nach Signed Char umwandeln 2. Jan 2011, 13:55 Hat funktioniert... Besten Dank Es lag am Datentyp bei der Sendenden Hardware Claudio Tu was du nicht lassen kannst - http://endasmedia.ch
	Zitat