Etwa so:
Delphi-Quellcode:
//Das Array mit den Zahlen 1 bis 'laenge' füllen
procedure fillArray(a:Pinteger;laenge:integer);
asm
@@1:mov [eax+edx*4-4],edx
dec edx
jnz @@1
end;
procedure TForm1.Button1Click(Sender: TObject);
var a:
array of integer;
i:integer;
begin
setlength(a,5);
fillarray(pointer(a),5);
for i:=0
to 4
do memo1.lines.add(inttostr(a[i]));
end;
Edit:
Zitat:
Ja das ganze sollte auch eher eine Übung sein als irgendwas sinnvolles
Ich wollte dich nur von Übungen abbringen, die du so nicht brauchst.