Problem mit Integer zu Binär

[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