Moin,

mittels folgendem Code (Danke an Luckie ) wandle ich Integerzahlen ins Binärformat um:

markieren

Code:

function IntToBin(Int: Integer): String;
var
  i : Integer;
begin
  Result := '';
  for i := 7 downto 0 do
  Result := Result + IntToStr((Int shr i) and 1);
end;

Es kunktioniert auch alles gut, nur leider steht dann bei der Ausgabe z.b. wenn ich 7 umrechne erhalte ich: 00000111. Wie kann ich aber die überflüssigen Nullen vor der eigentlichen Zahl löschen? Also das nur die "richtige" Zahl, in dem Falle 111 da steht ?

Vielen Dank,

Entweder im String direkt löschen (Delete, Pos) oder mittels Format.

Ja, mit Pos und Delete hab ichs schonmal versucht, aber leider waren dann alle Nullen weg. Das Problem ist auch das, dass ich ja nicht weiß wann die "richtige" Zahl beginnt...

Vielleicht geht's mit

While Pos('0', s) = 1 do Delete(s, 1, 1) S ist natürlich der String.

Mit dieser Funktion macht er keine Nullen voran:

zusammenfalten · markieren

Delphi-Quellcode:

function DezToBin(Zahl: Int64): String;
begin
  Result:='';
  repeat
    if Zahl mod 2 =0 then
    begin
      Result := '0' + Result;
    end else
    begin
      Result := '1' + Result;
    end;
    Zahl := Zahl div 2;
  until Zahl = 0;
end;

markieren

Code:

(Zahl: Int64)

Hm, is das Integer64 ? Gibs das in D3 schon ??
Mein D3 sagt undefinierter Bezeichner !

Dann nimm doch einfach integer.

Ok, vielen Dank !

Zitat:

Das Problem ist auch das, dass ich ja nicht weiß wann die "richtige" Zahl beginnt

Na wenn du von links durchgehst, wenn die erste 1 kommt, bzw. wenn nur noch ein Zeichen übrig was null ist.

Hier was fixes...
glaub ich

zusammenfalten · markieren

Delphi-Quellcode:

Function   IntToBinString( Const Value:   Integer; Trim: Boolean = False ): String;
Var   i:         Byte;
Begin
   SetLength( Result, 32 );
   For   i := 31 Downto 0 Do Begin
      If ( Value And ( $80000000 Shr ( 31 - i ) )Shr i ) = 1
         Then Result[ 32 - i ] := '1'
         Else Result[ 32 - i ] := '0';
   End;
   If Trim Then Result := Copy( Result, Pos( '1', Result ), Length( Result ) );
End;

Bye