Entwickler-Ecke
Algorithmen, Optimierung und Assembler - Dezimal -> Binär
ReddY - Sa 20.05.06 12:06
Titel: Dezimal -> Binär
Huhu!
Ich wollte fragen ob jemand eine gute Möglichkeit weiß wie man z.B. Zahlen wie 137, 784 ... die jedenfalls unter der zahl 1024 liegen in binär umwaneln kann! mit if-abfragen gibt es bei mir immer probleme.
ich wäre nett wenn ihr mir helfen könnten.
gruß
Blackheart666 - Sa 20.05.06 13:03
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| function IntToBin(i: int64): string;
begin
result := '';
while i > 0 do begin
result := inttostr(ord(odd(i))) + result;
i := i shr 1;
end;
if result = '' then result := '0';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := IntToBin(strtoint(edit1.text));
end; |
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!