Problem mit Integer zu Binär

Moin,

mittels folgendem Code (Danke an Luckie

) wandle ich Integerzahlen ins Binärformat um:

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,

Problem mit Integer zu Binär

Problem mit Integer zu Binär

Forumregeln