Inhalt von untypisierter Parametern

[overmoon]

Ich arbeite gerade an einigen Methoden, die untypisierte Parameter benutzen und auch benutzen sollen. Jedoch gab es dabei einige Probleme; der Code wollte einfach nicht funktionieren.

Aus diesem Grund habe ich einfach mal eine kleine Prozedur mit untypisiertem Paramter genommen, um diese zu testen.

Delphi-Quellcode:

procedure Test(var Source);
var pI : ^Integer;
begin
     pI := @Source;
     ShowMessage(IntToStr(pI^)); inc(pI);
     ShowMessage(IntToStr(pI^));
end;

procedure TForm1.Button1Click(Sender: TObject);
var i : array of Integer;
begin
     SetLength(i,2);
     i[0] := 4;
     i[1] := 4;
     Test(i);
end;

Wie man sieht über gebe ich der Prozedur Test ein Array von Integern mit der Länge zwei.
Um zu testen, ob es in der Prozedur Test auch korrekt ankommt, gebe ich dort den Inhalt des Arrays aus. Natürlich habe ich erwartet, dass jetzt zweimal die 4 ausgegeben wird.

Das passiert aber nicht !

Warum ?

overmoon