Code:
procedure TForm1.Button6Click(Sender: TObject);
Procedure Test(const tm:TMem);
begin
tm[0]:=55;
end;
var m:TMem;
begin
SetLength(m,1);
m[0]:= 22;
Test(m);
Memo1.Lines.Add(m[0].ToString)
end;
procedure TForm1.Button6Click(Sender: TObject);
Procedure Test(const tm:TMem);
begin
tm[0]:=55;
end;
var m:TMem;
begin
SetLength(m,1);
m[0]:= 22;
Test(m);
Memo1.Lines.Add(m[0].ToString)
end;
Da li to nove verzije Delphija više ne vode računa o tipu paramatara funkcije?