Array in einer function mit Werten füllen

[scp]

Probier mal

Delphi-Quellcode:

function  Arrayreset(var x: array of integer): integer;    // var hinzugefügt
  var 
  i:integer; 
  begin 
        for i:=0 to high(x) do 
          x[i]:=55; 
  end;