was mkinzler versucht zu sagen ist:
Delphi-Quellcode:
function DezinHex (var ewert : integer):integer;
var ergebnis, n : integer;
Feld : array of integer;
begin
n := 0;// Alle Dynamischen Array's fangen mit 0 an.
repeat
setlength(Feld,high(Feld)+2);
ergebnis := ewert div 2;
Feld[n] := ewert mod 2;
inc(n);
until (ergebnis <= 0);
ewert := ergebnis;
end;
Allerdings solltest du deiner Function einen Rückgabe wert Geben. Das machst dann mit Result :=
und auf dein Array must ja auch noch Lesend zugreifen, sonst bringt es dir ja gar nichts das du es gebaut hast.