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

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