AGB  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein einzelne bytes in ein 4-byte int umwandeln

einzelne bytes in ein 4-byte int umwandeln

Ein Thema von JayZ · begonnen am 20. Mär 2017 · letzter Beitrag vom 23. Mär 2017
Antwort Antwort
Seite 1 von 3  1 23   
JayZ

Registriert seit: 14. Mai 2016
30 Beiträge
 
#1

einzelne bytes in ein 4-byte int umwandeln

  Alt 20. Mär 2017, 15:08
hallo

es gibt doch in c++ den operator >> mit dem man irgendwie bytes rumschrieben kann. kann man in delphi irgendwie 4 bytes definieren und dann diese vier bytes zussamenfügen das es das ergiebt:

Delphi-Quellcode:
var
 b1, b2, b3, b4 : byte;
 int : integer;
begin
 b1 := $AB;
 b2 := $CD;
 b3 := $EF;
 b4 := $42;
// int := $ABCDEF42;
end;
am liebsten math operationen, ich krieg nur ein string gewrustel hin

dankeschon mal!
  Mit Zitat antworten Zitat
Geda

Registriert seit: 24. Jul 2015
20 Beiträge
 
Delphi XE8 Professional
 
#2

AW: einzelne bytes in ein 4-byte int umwandeln

  Alt 20. Mär 2017, 15:16
var
b1, b2, b3, b4 : byte;
int : integer;
begin
b1 := $AB;
b2 := $CD;
b3 := $EF;
b4 := $42;

int := b1;
int := (int shl 8) + b2;
int := (int shl 8) + b3;
int := (int shl 8) + b4;

ShowMessage(IntToHex(int, 8));


Gruß,

Geert
Geert
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
26.366 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#3

AW: einzelne bytes in ein 4-byte int umwandeln

  Alt 20. Mär 2017, 15:23
Es ginge auch mit einem varianten Record:
Delphi-Quellcode:
type
  TZahl = record
    case integer of
      1: (Zahl: integer);
      2: (b4, b3, b2, b1: Byte)
  end;


procedure TFormTest.FormCreate(Sender: TObject);
var
  Zahl: TZahl;
begin
  Zahl.b1 := $AB;
  Zahl.b2 := $CD;
  Zahl.b3 := $EF;
  Zahl.b4 := $42;
  ShowMessage(IntToHex(Zahl.Zahl, 8));
end;
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
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
4.501 Beiträge
 
Delphi 10.1 Berlin Starter
 
#4

AW: einzelne bytes in ein 4-byte int umwandeln

  Alt 20. Mär 2017, 15:44
Oder in einer Zeile ohne Records:

Int := (B1 shl 24) or (B2 shl 16) or (B3 shl 8) or B4;
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
JayZ

Registriert seit: 14. Mai 2016
30 Beiträge
 
#5

AW: einzelne bytes in ein 4-byte int umwandeln

  Alt 20. Mär 2017, 15:51
wow das sind aber viele möglichkeiten hehe
vielen vielen dank euch allen =)
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
5.504 Beiträge
 
Delphi 7 Personal
 
#6

AW: einzelne bytes in ein 4-byte int umwandeln

  Alt 20. Mär 2017, 15:55
oder so:

Delphi-Quellcode:
var
  i : integer;
  b : Array [0..3] of Byte absolute i;

begin
  b[0]:=$AB;
  b[1]:=$CD;
  b[2]:=$EF;
  b[3]:=$42;
end;
( Mavarik)

Gruß
K-H
Programme gehorchen nicht Deinen Absichten
sondern Deinen Anweisungen
Do it with Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe
Online

Registriert seit: 20. Jan 2006
Ort: Lübbecke
4.775 Beiträge
 
Delphi 10.2 Tokyo Architect
 
#7

AW: einzelne bytes in ein 4-byte int umwandeln

  Alt 20. Mär 2017, 15:58
Ähnlich dem, was DeddyH gezeigt hat, nur mit Bordmitteln:
Delphi-Quellcode:
var
  Zahl: LongRec; { in Sysutils }
begin
  Zahl.Bytes[0] := $AB;
  Zahl.Bytes[1] := $CD;
  Zahl.Bytes[2] := $EF;
  Zahl.Bytes[3] := $42;
  ShowMessage(Integer(Zahl).ToHexString(8));
end;
Oder unter Verwendung von Winapi.Windows:

  ShowMessage(MakeLong(MakeWord($42, $EF), MakeWord($CD, $AB)).ToHexString(8));
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Rollo62

Registriert seit: 15. Mär 2007
919 Beiträge
 
Delphi 10.1 Berlin Professional
 
#8

AW: einzelne bytes in ein 4-byte int umwandeln

  Alt 20. Mär 2017, 16:04
Die Frage die ich mir immer stelle ist: Was ist denn jetzt das Schnellste ?

DeddyHs und Mavariks Lösungen habe ich ja im Verdacht ganz gut zu sein.

Aber es könnte am Ende doch NeutralGeneral der Gewinner sein,
weil da der Compiler die Chance hat bis auf die Knochen zu optimieren.

Hat das schonmal mal einer vermessen ?

Rollo
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
4.501 Beiträge
 
Delphi 10.1 Berlin Starter
 
#9

AW: einzelne bytes in ein 4-byte int umwandeln

  Alt 20. Mär 2017, 16:17
Die Record-Varianten (und das absolute) sind wahrscheinlich am schnellsten weil da quasi gar nichts gerechnet wird.
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."

Geändert von Neutral General (20. Mär 2017 um 16:23 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
5.504 Beiträge
 
Delphi 7 Personal
 
#10

AW: einzelne bytes in ein 4-byte int umwandeln

  Alt 20. Mär 2017, 16:40
Frage:
muß das nicht packed record sein?
oder ist das bei varianten Records automatisch dabei?

Gruß
K-H
Programme gehorchen nicht Deinen Absichten
sondern Deinen Anweisungen
Do it with Delphi Programming
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:09 Uhr.
Powered by vBulletin® Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2017 by Daniel R. Wolf