Int in Binär umwandeln

[krügi]

Hi alle zusammen!

Gibt es eine Möglichkeit (Funktion), einen Integerwert in die 0-1-Folge umzuwandeln?

Gruß krügi

[MikeS]

moin

ich wüßte nicht das delphi eine zur verfügung stellt, aber schreib doch deine eigene! :wink:

[krügi]

Hmmm....!

Einen Versuch war's wert. Trotzdem Danke!

krügi

[fylo]

hi

hab da 2 funktionen aus dem studium, ob sie "noch" funktionieren weiß ich nicht mehr 100%ig :lol:
aber testen kannst sie ja mal...

Delphi-Quellcode:

function IntToBin(Value: Longint; Digits: Integer): string; 
var 
  i: Integer; 
begin 
  Result := '' 
  for i := Digits downto 0 do 
    if Value and (1 shl i) <> 0 then 
      Result := Result + '1' 
  else 
    Result := Result + '0' 
end;

oder

Delphi-Quellcode:

function IntToBin(d: Longint): string; 
var 
  x, p: Integer; 
  bin: string; 
begin 
  bin := '' 
  for x := 1 to 8 * SizeOf(d) do 
  begin 
    if Odd(d) then bin := '0' + bin 
    else 
      bin := '1' + bin; 
    d := d shr 1; 
  end; 
  Delete(bin, 1, 8 * ((Pos('0', bin) - 1) div 8)); 
  Result := bin; 
end;

[Tyrael Y.]

Kann es sein, daß die zweite Variante die Inverse zurückgibt ?

[fylo]

hi

kann sein. Dann musst du einfach '0' und '1' tauschen. :gruebel:

[Tyrael Y.]

jo genau, ist halt die Inverse, wenn ich den Code mal im Kopf durchgehe beim einfachen Besipiel von 3

[fylo]

ja ist schon eine Weile her, dass ich denn für Programmierungstechnik in der Uni gebraucht hab... :-D