Hi alle zusammen!

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

Gruß krügi

moin

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

Hmmm....!

Einen Versuch war's wert. Trotzdem Danke!

krügi

hi

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

zusammenfalten · markieren

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

zusammenfalten · markieren

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;

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

hi

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

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

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