Problem mit Integer zu Binär

[Kedariodakon]

Noch besser:

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 ( 1 Shl 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;

Oder gleich so:

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
      Result[ 32 - i ] := Chr( ( Value And ( 1 Shl i ) Shr i ) + $30 );
   End;
   If Trim Then Result := Copy( Result, Pos( '1', Result ), Length( Result ) );
End;

viel Spass damit

bye

[PierreB]

Wow, funzt gut.

Thanx

Falls Interesse besteht, würde ich mein Programm auch in der DP veröffentlichen...

[negaH]

Delphi-Quellcode:

function Bin(Value: Cardinal): String;
const
  Digit: array[Boolean] of Char = ('0', '1');
begin
  Result := '';
  while Value <> 0 do
  begin
    Result := Digit[Odd(Value)] + Result;
    Value := Value shr 1;
  end; 
end;

Sorry, aber eure Sourcen sind manchmal echt vorn Ar... Soll keine Beleidigung sein sondern nur ein Hinweis darauf das man in PASCAL wirklich einfach und elegant programmieren kann.

Gruß Hagen