Allgemein: Byte in andere Datentypen umwandeln?

NeWsOfTzzz · Beiträge: 233 D4 Prof

Also ich hab ein Byte, wie wandel ich das in ein Char um? Ich meine da könnte man noch theoretisch ne Routine schreiben, die das Byte einliest und ein Char ausspuckt, wäre aber viel Schreibarbeit.
Ok ich hab die nächsten 4 Bytes, wie wandel ich die in Integer um? Auch hier könnte ich theoretisch eine Routine schreiben die das ausrechnet.
Aber wäre das Leben denn nicht viel schöner, wenn Delphi diese Funktionen bereitstellt? Zumindestens Byte to Char wäre hilfreich ^^ Der Rest dürfte net so schwer sein..

Luzzifus · Beiträge: 200 Win2K D6 Prof

man könnte ja ganz einfach CHR(x) nehmen um aus nem einzelnen byte nen char zu machen :p

NeWsOfTzzz · Beiträge: 233 D4 Prof

1. byte<>shortint..
2. thx ich wollte doch nur nen funktionsnamen hören ^^
aber mit anderen typen gibt´s das net oder?

Luzzifus · Beiträge: 200 Win2K D6 Prof

vom umfang her ists das gleiche, shortint ist mit vorzeichen (-128 .. +127) und byte ohne (0 .. 255).

für welche anderen typen hättst du's denn noch gerne? ^^

NeWsOfTzzz · Beiträge: 233 D4 Prof

Jepp den Unterschied meinte ich ja.. Naja am besten für Integer.. aber noch besser wäre byte to char(=chr) und char to byte sowie byte[0..3] to integer und integer to byte[0..3]

Luzzifus · Beiträge: 200 Win2K D6 Prof

CHR(x) -> wandelt byte in char um
ORD(x) -> wandelt char in byte um

und was du mit byte[0..3] to integer und integer to byte[0..3] meinst versteh ich nicht ganz. willst du die ascii-codes aneinandergehängt haben oder wat? :shock:

NeWsOfTzzz · Beiträge: 233 D4 Prof

damit meinte ich 4 bytes in ein integer zu verwandeln (das ja bekanntlich aus 4 bytes besteht) und umgekehrt wäre auch praktisch..

.Chef · Beiträge: 1112

Integer <> Bytearray kannst du über einen Pointer machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

var
  buf : array[0..3] of Byte;
  i : ^Integer;
begin
  i:=Addr(buf[0]);
  ShowMessage(InttoStr(i^));

Gruß,
Jörg

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

jasocul · Verfasst: Di 26.10.04 12:46

Vielleicht funktioniert das mit TypCasting:
IntegerVar := Integer(ArrayOf4ByteVar)

Habe ich aber so noch nicht ausprobiert. Und ob dabei was sinnvolles rauskommt ???

NeWsOfTzzz · Beiträge: 233 D4 Prof

achso cool ^^ und von daher kann ich mir die bytes auch bestimmt mit der addresse von nem integer holen nur für jedes byte die addresse + 1 oder ?
ps: ich hab keine integer() funktion nur int() und die wandelt real in integer um..

Luzzifus · Beiträge: 200 Win2K D6 Prof

das hier überträgt die vier bytes eines 4elementigen byte arrays auf ein 32bit integer. die einzelnen werte der bytes gehen logischerweise verloren (bis auf das letzte), aber die gesetzten bits werden 1:1 übertragen..

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function ByteArToInt(b: Array of Byte): Integer;
var
  i,x: Integer;
begin
  x:=0;
  if length(b) <> 4 then exit;
  for i:=0 to 3 do
  begin
    x:=x shl 8;
    x:=x+b[i];
  end;
  ByteArToInt:=x;
end;

NeWsOfTzzz · Beiträge: 233 D4 Prof

hm mal gucken
irgendwie raff ich dat net lol

.Chef · Beiträge: 1112

Für den umgekehrten Weg poste ich mal noch eine andere äußerst coole Variante:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

var
  b : array[0..3] of Byte;
  i : Integer;
begin
  i:=$ABCDEF12;
  Move(i,b[0],4);

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

jasocul · Verfasst: Di 26.10.04 12:57

Beispiel:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String[3]; // Ist im Prinzip nichts anderes als ein array [0..3] of Byte;
  Z: Integer;
begin
  s:='ABC';
  z := Integer(s);
  ShowMessage(IntToStr(z));
end;

Getestet und funktioniert.

Luzzifus · Beiträge: 200 Win2K D6 Prof

na super

aber meine lösung find ich auch hübsch :twisted:

NeWsOfTzzz · Beiträge: 233 D4 Prof

integer() hab ich net

aber .chef´s byte to integer klappt PERFEKT °°
aber zum zweiten:
i:=$ABCDEF12;
Move(i,b[0],4);
WAs soll denn das erste sein?

jasocul · Verfasst: Di 26.10.04 13:06

@Luzzifus:
Ich fürchte nur, dass NWOT damit überfordert ist. Erklär ihm doch mal was Bit-Verschiebungen sind.

.Chef · Beiträge: 1112

NeWsOfTzzz hat folgendes geschrieben:

WAs soll denn das erste sein?

Das ...

NeWsOfTzzz hat folgendes geschrieben:

i:=$ABCDEF12;

... ist lediglich ein Beispielwert gewesen. Ich dachte, dass sieht man.

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

NeWsOfTzzz · Beiträge: 233 D4 Prof

Jo schon klar.. aber ich muss i doch vorher nichts zuweisen? oder doch?

.Chef · Beiträge: 1112

Theoretisch musst du nichts zuweisen. Das Bytearray bekommt dann eben genau den zufälligen Wert, der gerade in i rumlungert.

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme