[Delphi] Decimaal naar binair converteren

[anoniem]

Hallo, Is er in delphi ook een standaard functie die decimale getallen om kan zetten naar binaire getallen? Ik heb in de help niets kunne vinden. Danku!

[anoniem]

Bedoel je IntToHex() of zo?

[anoniem]

Hoe wil je dat het resultaat eruit ziet? Als een string bestaande uit de karakters '0' en '1'?

[anoniem]

Iets van IntToBin() ja, maar dat bestaat volgens D7,0 niet. Een een string mag, wil ik uiteindelijk toch.

[anoniem]

Je kunt ook gemakkelijk zelf zoiets schrijven, je maakt een for loop die het aantal bits dat de variabele breed is loopt (in het geval van een 32 bits int dus 32 keer). Elke keer gebruik je [i:397321600e]and[/i:397321600e] om de meest rechtse bit te pakken, en vervolgens schuif je alle bits 1 naar rechts met [i:397321600e]shr[/i:397321600e], dus iets a la: [code:1:397321600e] function IntToBinStr(Getal: integer): string; var Bit,i : integer; GetalString: string; begin GetalString := ''; for i := 1 to SizeOf(Getal) * 8 do begin Bit := Getal and 1; GetalString := IntToStr(Bit) + GetalString; Getal := Getal shr 1; end; IntToBinStr := GetalString; end; [/code:1:397321600e]