erstmal schon mal recht herzlichen dank für die lösung.... jetzt habe ich zu dieser aber noch ganz viele blöde anfängerfragen
zum einen vermisse ich hier eine variable von typ int... muss ja einen eingabewert machen.... wen ich jetzt zum beispiel die 120 umwandeln möchte brauche ich doch eine variable der ich diese 120 zuordnen kann oder?
dann verstehe ich leider immer noch nicht was dieses cardinal ist
und wieso muss ich am ende die vergleichszahl verdoppeln?
function ZahlAsBinaryString(Zahl: Cardinal): String;
//Variable Vergleichszahl deklarieren
var Vergleichszahl: Cardinal;
begin
//Vergleichszahl und Rückgabewert vorbelegen
Vergleichszahl := 1;
Result := '';
//Schleife (Ende, wenn das Ergebnis 32 Stellen hat)
while Length(Result) < SizeOf(Cardinal) * 8 do
begin
//binärer Vergleich
if (Zahl and Vergleichszahl) = Vergleichszahl then
Result := '1' + Result
else
Result := '0' + Result;
//Vergleichszahl verdoppeln
Vergleichszahl := Vergleichszahl * 2;
end;
end;