Thema: Delphi 2 Zahlen in einer?

Einzelnen Beitrag anzeigen

moritz

Registriert seit: 18. Apr 2003
1.037 Beiträge
 
#7

Re: 2 Zahlen in einer?

  Alt 11. Apr 2005, 15:21
Integer und Longint sind das selbe. Aber klar kannst du das. Wenn du z.B. zwei Bytes in einem Word speichern willst, geht das so:
Delphi-Quellcode:
type
  TTwoBytes = Array[0..1] of Byte;

function BytesToWord(Byte1, Byte2: Byte): Word;
begin
  Result := Byte2 + Byte1 shl 8;
end;

function WordToBytes(lWord: Word): TTwoBytes;
begin
  Result[0] := Byte(lWord shr 8);
  Result[1] := Byte(lWord);
end;
Ah, eine Frage noch: Wieso willst du das machen?
"Optimistisch ist diejenige Weltanschauung, die das Sein höher als das Nichts stellt und so die Welt und das Leben als etwas an sich Wertvolles bejaht."
Albert Schweitzer
  Mit Zitat antworten Zitat