2 Zahlen in einer?

[LoL]

Hi

ich weis meine Frage ist eventuell etwas seltsam aber:
Kann man 2 beliebige Integer Zahlen in einer Loginteger so speichern das man sie hinterher auch wieder "auseinender" bekommt?

[Stefan Dieler]

Hallo,

ich denke das wird gehen!
Erst als String zusammenketten und dann in LongInt wandeln.
Wenn die Zahlen immer gleich die gleiche Länge haben, dann kannst du sie ja wieder als String auseinanderschneiden und dann in Integer wandeln. Ansonsten musst du mindestens von einer Zahl die Länge speichern, die andere Länge der Zahl lässt sich ja dann errechnen.

[static_cast]

Hallo,

schau dir mal HiWord und LoWord an.

[LoL]

erstmal danke für deine antwort.

deine lösung würde gehen wenn ich weis wie groß die zahl ist bzw wieviel ziffern beide haben aber das weis ich nicht!
das ist ja das problem ich weis ja nicht wielang sie sind!
und mit 0en auffüllen kann ich ja nit
(zur info die 2 zahlen sind im bereich 0-1000)

[Stefan Dieler]

Hallo,

und wenn du die die Länge der ersten Zahl entweder als erstes oder als letztes mit speicherst??
Diese Zahl musst du nur dann auslesen und abschneiden, bevor du die eigentlichen Zahlen auslesen kannst.

[LoL]

gute idee so mach ichs!! danke :thumb:

[moritz]

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?

[LoL]

wenn man den Tipp von static_cast beachtet gehts sogar noch einfacher

Delphi-Quellcode:

var Longint0 : Longint;
begin
  Longint0 := LoWord(StrToInt(e1.Text)) or (LoWord(StrToInt(e2.Text)) shl 16);
  e3.Text := IntToStr(LoWord(Longint0));
  e4.Text := IntToStr(HiWord(Longint0));
end;