Forum: Programmieren allgemein
by JayZ,
23. Mär 2017
stimmt, danke für den hinweis! =)
Forum: Programmieren allgemein
by JayZ,
23. Mär 2017
Wow an eine inline assembly lösung dachte ich gar nicht. (Zum glück habe ich mir das vor ein paar wochen angefangen anzueignen :D)
So gehts: (shr eax, 16 ; wars ;))
procedure TForm1.btn1Click(Sender: TObject);
var
LInt : integer;
LB1, LB2, LB3, LB4 : Byte;
begin
Forum: Programmieren allgemein
by JayZ,
21. Mär 2017
geil danke! da werden mir ja ganz neue seiten von delphi gezeit :D nur so aus interesse... gibts da auch ne möglichkeit mit shl und shr die nicht allzu komplex ist? :stupid:
Forum: Programmieren allgemein
by JayZ,
21. Mär 2017
Sorry das ich nochmal nachfrage aber gäbe es auch so einen einzeiler (pro byte) um das umgekehrte zu machen?
Also zb:
Int := $ABCDEF42;
byte1 := $AB; // get first byte from int
byte2 := $CD; // get 2nd byte from int
byte3 := $EF; // get 3rd byte from int
byte4 := $42; // get 4th byte from int
Forum: Programmieren allgemein
by JayZ,
20. Mär 2017
wow das sind aber viele möglichkeiten hehe
vielen vielen dank euch allen =)
Forum: Programmieren allgemein
by JayZ,
20. Mär 2017
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:
var
b1, b2, b3, b4 : byte;
int : integer;
begin
b1 := $AB;